macro che restituisce il nome della colonna

[nicola_na78]

Ciao Amici, è possibile sapere tramite macro il nome della colonna della cella attiva???

grazie

Win xp
Office 2007

[ricky53]

Ciao,
con nome colonna intendi la lettera della colonna?

Esempio se ti trovi in "C6" tu vuoi ottenere "C"

Se ti occorre ciò puoi ottenerlo con:

Codice: Seleziona tutto

MsgBox "Colonna della cella attiva:  " & Chr(ActiveCell.Column + 64)

[Gigi_]

ciao...
y = ActiveCell.Column
Name = Cells(1, y).Value

[ricky53]

Ciao,

Per Gig: non puoi utilizzare "Name" come variabile perchè "Name" è una parola riservata.

[Gigi_]

cmq...

Codice: Seleziona tutto

Sub PosCellaSelezionata()
x = ActiveCell.Row
Y = ActiveCell.Column
MsgBox “Sei nella cella riga:” + Str(x) + ” colonna:” + Str(Y)
End Sub


@ricky53 .....giustissimo!!!
ma ho provato e mso2007 questa volta mi ha graziato non segnalandomi l'errore e non bloccandomi la routine (???)...

[nicola_na78]

Grazie amici!!!

[ricky53]

Ciao,
come hai applicato i suggerimenti?

[scossa]

Ciao,
con nome colonna intendi la lettera della colonna?

Esempio se ti trovi in "C6" tu vuoi ottenere "C"

Se ti occorre ciò puoi ottenerlo con:

Codice: Seleziona tutto

MsgBox "Colonna della cella attiva:  " & Chr(ActiveCell.Column + 64)

Ciao ricky,

hai provato cosa succede nel caso la cella attiva sia AA1 o colonna successiva?

Io propongo la mia solita udf:

Codice: Seleziona tutto

Function LettRifCol(Optional ByVal r As Range) As String
If r Is Nothing Then Set r = ActiveCell
LettRifCol = Replace(r.Parent.Cells(1, r.Column).Address(False, False), "1", "")
Set r = Nothing
End Function


[ricky53]

Ciao Nicola,
quanto ho proposta è applicabile dalla colonna "A" alla colonna "Z".

Utilizza la proposta di Scossa