AJUDA VBA/EXCEL - Selecionar penultima coluna

[Homer Jay Simpson]

E ai galera alguem pode me ajudar

nao consigo nenhum codigo para usar em uma macro para selecionar a penultima coluna que tem alguma coisa escrita, para a ultima eu utilizo a funcao

Selection.End(xlToRight).Select

valeu

[Márcio Rodrigues]

Tente isto:

Sub SelecionaColuna()

Columns(Columns.Count - 1).Select

End Sub

[Homer Jay Simpson]

Tente isto:

Sub SelecionaColuna()

Columns(Columns.Count - 1).Select

End Sub

[Márcio Rodrigues]

Foi mal!!!

Tente isto:

Sub SelecionaColuna()

Ultima = Selection.End(xlToRight).Column

Set MyColuns = Union(Columns(Ultima - 1), Columns(Ultima))

MyColuns.Select

End Sub

Obs. O ideal seria você sabar qual a ultima coluna, porque usando End(xlToRight) dependendo de onde a celula ativa estiver, trará valores diferentes.

Veja se é por aí!!!!

[Homer Jay Simpson]

Foi mal!!!

Tente isto:

Sub SelecionaColuna()

Ultima = Selection.End(xlToRight).Column

Set MyColuns = Union(Columns(Ultima - 1), Columns(Ultima))

MyColuns.Select

End Sub

Obs. O ideal seria você sabar qual a ultima coluna, porque usando End(xlToRight) dependendo de onde a celula ativa estiver, trará valores diferentes.

Veja se é por aí!!!!

eu fiz um loop para saber qual a ultima coluna

Sub Macro2()

Dim y As Integer

Dim x As Integer

x = 3

y = 3

Sheets("Motivos PP-PAE").Select

While Not x > y

If (Cells(3, x).Value <> "") Then

y = y + 1

x = x + 1

Else

Cells(3, x).Select

x = x + 1

End If

Wend

End Sub

para adaptar a que você passou eu colocaria

ultimo = Cell(3,x).Select

??

a funcionou legal a q você passou valeu