Macros cortas#1 obtener la columna en letras o en números
publicado
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
.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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
Número = Columna("DJ") 'Devuelve 114
End Sub[/CODE]
Letras = Columna(114) 'Devuelve "DJ"
End Sub[/CODE]
Paz y amor
.