Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel      Dicas


Questão 59:    Como achar o endereço de colunas

Quero fazer uma macro de forma que me apresente o endereço de determinada coluna. Por exemplo se a célula ativa for b2 a macro deverá apresentar o resultado $b:$b

Solução 59:      Macros VBA

Supondo que a célula ativa é c2 a macro abaixo soluciona a questão.

Sub MostraEndereço( )
Dim msg$, rcell As Range , rEcolumn As Range
Dim rColumnRange As Range
Set rcell = ThisWorkbook.Worksheets(1).Range("$c$2")
Set rEcolumn = rcell.Parent.Cells.EntireColumn(rcell.Column)
MsgBox rEcolumn(1).Address , , "O Range é : "
End Sub

Sendo b2 a célula ativa a macro abaixo apresenta o endereço da célula b1 e o endereço da coluna da célula ativa

Sub MostraEnderecos( )
Dim msg$ rcell As Range , rEcolumn As Range
Set rcell = ThisWorkbook.Worksheets(1).Range("$b$2")
Set rColumnRange = ThisWorkbook.Worksheets(1).Range("$b:$b")
Set rEcolumn = rcell.Parent.Cells.EntireColumn(rcell.Column)
msg = msg & "rColumnRange(1):" & rColumnRange(1).Address & vbCr
msg = msg & "rEcolumn (1):" & rEcolumn(1).Address & vbCr
MsgBox msg, , "Respostas : "
End Sub