Convertir columna

[Antoni]

Hola:

Aqui os dejo 2 UDF para la conversión del nº de columna a letras y viceversa.

Function ColumnaALetras(Num As Range) As String

ColumnaALetras = Split(Cells(, Num.Value).Address, "$")(1)

End Function


Function LetrasAColumna(Num As Range) As String

LetrasAColumna = Val(Range(Num.Value & "1").Column)

End Function

[/CODE]

Como fórmulla:

[b][color=blue] =ColumnaALetras(A1)

=LetrasAColumna(A1)[/color][/b]

Saludos

[tuve]

Hola,

Una posible solución con fórmulas:

ColumnaALetras

=SUSTITUIR(DIRECCION(1;COLUMNA(NumCol);4);1;"")[/CODE]

LetrasAColumna

[CODE]=COLUMNA(INDIRECTO(LetraCol&1))[/CODE]

Un saludo máster Macro Antonio

[verzulsan]

Hola Antoni,

Muy ingeniosa la primera funcion ColumnaALetras.

Aun me quedaban unos minutos antes de partir de viaje y queria despedirme con un último pistoletazo

No le encuentro mucho sentido o no he entendido bien el motivo de las transformaciones numericas y de cadena en LetrasAColumna.

Val, devuelve un numerico valido, pero columna siempre devuelve un tipo numerico luego la funcion devuelve una cadena, ¿entonces para que la anterior transformacion que ademas no hacia falta?

Así tendria mas sentido:

Function LetrasAColumna(Num As Range) As Integer

LetrasAColumna = Range(Num.Value & "1").Column

End Function[/CODE]

Un saludo y arividerchi

[Antoni]

Hola Santi:

Pues tienes razón, se me debe haber ido la olla.

Felices Holydais.

PD.

Saludos tuve