LETRA DE COLUNA NO VBA EXCEL

USUARIO.EXCLUIDOS 03/09/2007 17:33:13
#233931
Pessoal, por favor,

Alguém conhece alguma propriedade ou método em VBA que permita armazenar numa variável a letra de uma coluna?
Eu só consigo armazenar o número da coluna.
Por exemplo: 

sub coluna

dim nc as byte
range("a1").select
nc=activecell.column
range("c1")=nc

end Sub


Neste exemplo, será colocado na célula c1 o valor de 1 que refere-se a coluna A. Eu preciso colocar o valor A ao invés de 1.
Alguém conhece como fazer isto?
Grato
TUNUSAT 04/09/2007 09:25:31
#233986 Resposta escolhida
JASF,

Veja se é isto:

==============
Sub coluna()
Dim nc As String
    Range("a1").Select
    nc = ActiveCell.Address
    nc = Mid(nc, InStr(nc, "$") + 1, Len(nc) - InStrRev(nc, "$"))
    Range("c1") = nc
End Sub

==============

Explicação:
O "Address" traz: "$A$1".
As funçõezinhas abaixo só ajustam para pegar o que estiver entre "$".

[]'s,
Tunusat.
USUARIO.EXCLUIDOS 04/09/2007 13:00:09
#234025
Tunusat,
Obrigado pela ajuda. Funcionou.
Abs.
USUARIO.EXCLUIDOS 04/09/2007 13:05:57
#234028
Encerrando o tópico e pontuando o Tunusat.

Favor encerrar seus tópicos após conclusões dos mesmos
Tópico encerrado , respostas não são mais permitidas
Voltar