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
