Macros cortas#1 obtener la columna en letras o en números

[Antoni]

Con esta función inicio una serie de pequeños aportes de macros y funciones que pueden ser de utilidad.

Obtener la columna en letras o en números

Function Columna(col)

If IsNumeric(col) = True Then

   Columna = Mid(Split(Columns(col).Address, ":")(1), 2)

Else

   Columna = Columns(col).Column

End If

End Function[/CODE]

[CODE]Sub Macro1()
Número = Columna("DJ") 'Devuelve 114
End Sub[/CODE]

[CODE]Sub Macro2()
Letras = Columna(114) 'Devuelve "DJ"
End Sub[/CODE]

Paz y amor

.

[Gerson Pineda]

Con esta variante también puedes obtener la letra

Columna = VBA.Left(Columns(col).Address(0, 0), 1)[/PHP]

Saludos

[Antoni]

Con esta variante también puedes obtener la letra

Columna = VBA.Left(Columns(col).Address(0, 0), 1)[/PHP]

Saludos

Solo me funciona para las columnas de una sola letra.

.

[Gerson Pineda]

Solo me funciona para las columnas de una sola letra.

.

Opps:D tienes razón solo funciona para una letra

Siempre con Left pero en dos lineas (pero me gusta mas tu opción)

vp = VBA.InStr(1, Columns(col).Address(0, 0), ":")
Gcolumna = VBA.Left(Columns(col).Address(0, 0), vp - 1)[/PHP]

Saludos

[elunico22]

Excelente [uSER=46507]@Macro Antonio[/uSER] y [uSER=9328]@Gerson Pineda[/uSER] :

Yo hice uno en el que ingresas un numero y muestra la letra de la columna correspondiente. Aunque creo que es muy largo en comparación a sus códigos.

Ahi va.

Function NumLet(Num As Integer) As String
If Num > 16384 Then Exit Function
    dato = Cells(1, Num).Address
    NumLet = Mid(dato, 2, Len(dato) - 3)
End Function[/PHP]

Saludos

[Gerson Pineda]

[uSER=162796]@elunico22[/uSER] solo que tu UDF es para ingresar numero y la de Macro es para ambas (numero y letras)

Saludos

[Héctor Miguel]

hola, a todos !

solo una sugerencia:

cambiar el nombre de la UDF (ya existe una función integrada -en español- llamada "columna")

saludos,

hector.