Bom dia

Estou movendo teu tópico para o sub fórum VBA, pois este sub fórum é exclusivo para fórmulas.

Abraço.

OK!!

Desculpe-me!

Seria interessante saber um pouco mais do que deseja fazer, mas veja se lhe ajuda:

Sub Botão148_Clique()
'Se for selecinar uma coluna por vez
Dim x as long
Application.EnableEvents = False
'Atribui a x o valor da coluna de inicio, sendo G é setima coluna
For X=7 to 16
'Seleciona a celula G11
cells(11,x).Select
'Extende a seleção até a ultima linha da coluna
Selection.End(xlUp).Select
next
Application.EnableEvents = True
End Sub

Seria interessante saber um pouco mais do que deseja fazer, mas veja se lhe ajuda:

Sub Botão148_Clique()
'Se for selecinar uma coluna por vez
Dim x as long
Application.EnableEvents = False
'Atribui a x o valor da coluna de inicio, sendo G é setima coluna
For X=7 to 16
'Seleciona a celula G11
cells(11,x).Select
'Extende a seleção até a ultima linha da coluna
Selection.End(xlUp).Select
next
Application.EnableEvents = True
End Sub

Olá Reinaldo

Obrigado pela atenção!

Seria o seguinte:

Vou criar 2 botões um para avançar do Range "G13:P13" E outro para Regredir do Ranges "P13:G13"

Isso indo sempre de coluna por coluna...

Ex:

Quando clico no Botão "Avançar" ele vai da G13 para H13, clicando novamente ele vai de H13 para I13.... Até o limite!

E no botão regredir ele faz o inverso!

Grato!

PS:

Como se fosse uma caixa de rolagem!!

Eu tenho a planila congelada até a coluna F quero que ao apertar o comando "avançar" ele role as colunas de uma a uma no campo que não está congelado!

Seria interessante saber um pouco mais do que deseja fazer, mas veja se lhe ajuda:

Sub Botão148_Clique()
'Se for selecinar uma coluna por vez
Dim x as long
Application.EnableEvents = False
'Atribui a x o valor da coluna de inicio, sendo G é setima coluna
For X=7 to 16
'Seleciona a celula G11
cells(11,x).Select
'Extende a seleção até a ultima linha da coluna
Selection.End(xlUp).Select
next
Application.EnableEvents = True
End Sub

Bom dia Reinaldo!!

Creio que esse comando esteja quase ok, mas ele está indo direto da G para a P!!

Eu gostaria de ir percorrendo G, H, I, J, K, L, M, N, O, P....

E um outro comando para voltar! P, O,N, M, L, K, J, I, G...

Compreendes??

Grato!

Tente assim:
Sub Botão148_Clique()
'Se for selecinar uma coluna por vez
Dim X As Long, Y As Long
Application.EnableEvents = False
X = ActiveCell.Column
Y = ActiveCell.Row
If X >= 7 And X <= 17 Then
X = X + 1
Cells(Y, X).Select
'Extende a seleção até a ultima linha da coluna
Selection.End(xlUp).Select
End If
Application.EnableEvents = True
End Sub

Tente assim:
Sub Botão148_Clique()
'Se for selecinar uma coluna por vez
Dim X As Long, Y As Long
Application.EnableEvents = False
X = ActiveCell.Column
Y = ActiveCell.Row
If X >= 7 And X <= 17 Then
X = X + 1
Cells(Y, X).Select
'Extende a seleção até a ultima linha da coluna
Selection.End(xlUp).Select
End If
Application.EnableEvents = True
End Sub

Tu é o cara!!

Thanks!!