Boa noite!!

Veja se te ajuda..
https://www.sendspace.com/file/hl5an8

Lembre se que em seu arquivo há uma rotina que bloqueia as células, terá que adaptar isso.

Att

Boa noite!!

Veja se te ajuda..
https://www.sendspace.com/file/hl5an8

Lembre se que em seu arquivo há uma rotina que bloqueia as células, terá que adaptar isso.

Att

Cara, vc é fera, me ajudou muito... obrigado.
Só queria perguntar mais uma coisa, como posso criar um código para aumentar as letras, exemplo, criei um botão para aumentar o numero como no exemplo
Sub somaum()
Range("G11").Value = Range("G11").Value + 1
End Sub

Como posso criar um que funcione para aumentar as letras, por exemplo de A a J, botão + aumenta de A para B e para C etc e o de diminuir decresce as letras??

At

Bom dia!!

Sinceramente eu não estou entendendo!

Você quer aumentar o tamanho da fonte, mudar de uma letra para outra, andar (selecionar), uma coluna ou oque?

Att

Bom dia!!

Sinceramente eu não estou entendendo!

Você quer aumentar o tamanho da fonte, mudar de uma letra para outra, andar (selecionar), uma coluna ou oque?

Att

Isso, quero mudar as letras de uma para outra, por exemplo um comando que mude de "A" até "J", uma após a outra e outro comando de volte a sequência de "J" até "A", também de uma em uma.

Bom dia!!

Neste caso você vai usar um controle ActiveX chamado SpinButton1.

Selecione o controle (SpinButton1), vá em propriedades (na guia Desenvolvedor -> Controles)
Em Min digite 1, em Max digite 10, escolha um local para linkcar o controle com uma célula.

Na célula que deseja o resultado (mostrar a letra), ponha uma formula PROCV,

Para ver as propriedades do controle leia:
http://hubpages.com/hub/Using-creating- ... Excel-2010
Ou use F1 para mais informações.

Att

Obrigado cara, sua ajuda é demais de valiosa para os menos entendido do assunto, continue assim sempre..

Vlw

Boa noite!!

Veja se te ajuda..
https://www.sendspace.com/file/hl5an8

Lembre se que em seu arquivo há uma rotina que bloqueia as células, terá que adaptar isso.

Att

Sub somaum()
Range("G11").Value = Range("G11").Value + 1
End Sub

At

Amigo, mais uma ajudinha por favor, gostaria que no codigo acima o valor máximo da célula seja 10 como posso especificar isso??

Boa tarde!!

Seria isso....?

Sub AleVBA_somaum()
    If Range("G11").Value < 10 Then
        Range("G11").Value = Range("G11").Value + 1
     Else: Exit Sub
    End If
End Sub

Att

Não deu amigo... gostaria que quando ele chegasse no 10 travasse no 10 ou quando voltasse até o 1 tbm travasse no 1(tipo o range fosse de 1 a 10). seria a mesma explicação que me deu em relação ao spinbutton acima, mínimo 1 e máximo 10, só que em VBA

Grato

Deu certo amigo, eu que copiei o código errado...

vlw mesmo brother

Boa noite!!

Eu fico feliz por ajuda, obrigado pelo retorno!!

Att