Convertir numero columna a letra

[Benito Bartolomé]

Hola a todos;

¿Hay algún procedimiento o función que me convierta el numero de una columna a letra?

Ejemplo:

Private Sub btnColumna_Click()
Dim tColumna As String
    Me.TextBox1 = 2
    tColumna =Me.TextBox1  "??????"  <-----Aquí me debería indicar la columna en formato texto
End Sub

 

Saludos y buen día a todos.

 

 

[Antoni]

Letra = Split(Cells(1, Número).Address, "$")(1)

 

[Benito Bartolomé]

Hace 1 hora, Antoni dijo:

Letra = Split(Cells(1, Número).Address, "$")(1)

 

Hola Antoni;

Había visto algo con el Split pero no fui capaz de implementar.

Lo he dejado así, a ver que te parece.

Private Sub btnColumna_Click()
Dim tColumna As Integer
    tColumna = Me.TextBox1
    letra = Split(Cells(1, tColumna).address, "$")(1)
    MsgBox letra
End Sub

Saludos y muchas como siempre.