Como saber cual es la columna........

04/07/2004 - 03:43 por Luis | Informe spam
que corresponde a su indice?

Es decir, en VBA si hago

Columns("A").Column

el resultado es 1. Pero lo que necesito es sabiendo el 1
como averiguo la letra que le corresponde?
Es que trabajaba con las letras pero tengo problemillas a
partir de la columna "AA"

Gracias, Luis.

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
04/07/2004 - 10:17 | Informe spam
"Luis" escribió en el mensaje news:2564101c46168$475a74a0$
que corresponde a su indice?

Es decir, en VBA si hago

Columns("A").Column

el resultado es 1. Pero lo que necesito es sabiendo el 1
como averiguo la letra que le corresponde?
Es que trabajaba con las letras pero tengo problemillas a
partir de la columna "AA"

Gracias, Luis.



Para convertir un número de columna en su/s letra/s puedes usar lo siguiente:

MsgBox Replace(Left(Columns(50).Address, InStr(Columns(50).Address, ":") - 1), "$", "") 'Para la columna AX

pero normalmente no es necesario usar esto en VBA porque se puede hacer referencia a cualquier rango usando su propiedad Cells, la cual admite números tanto para las filas como para las columnas.
Un saludo.


Fernando Arroyo
MS MVP - Excel
Respuesta Responder a este mensaje
#2 Luis
04/07/2004 - 22:52 | Informe spam
"Luis" escribió en


el mensaje news:2564101c46168$475a74a0$
que corresponde a su indice?

Es decir, en VBA si hago

Columns("A").Column

el resultado es 1. Pero lo que necesito es sabiendo el




1
como averiguo la letra que le corresponde?
Es que trabajaba con las letras pero tengo




problemillas a
partir de la columna "AA"

Gracias, Luis.



Para convertir un número de columna en su/s letra/s


puedes usar lo siguiente:

MsgBox Replace(Left(Columns(50).Address, InStr


(Columns(50).Address, ":") - 1), "$", "") 'Para la
columna AX

pero normalmente no es necesario usar esto en VBA porque


se puede hacer referencia a cualquier rango usando su
propiedad Cells, la cual admite números tanto para las
filas como para las columnas.
Un saludo.


Fernando Arroyo
MS MVP - Excel

.



Gracias por tu ayuda Fernando.

Me hiciste ver la luz, y al final me Žhe creado una
funcioncilla como esta:


Function txtcol(col As Integer) As String

On Error GoTo errores

If col < 27 Then
txtcol = Mid$(Columns(col).Address, 2, 1)
Else
txtcol = Mid$(Columns(col).Address, 2, 2)
End If

Exit Function
errores:
MsgBox "Error: " & Err.Description, vbCritical,
nom_empresa

End Function

Ya ves, más simple imposible. Solo tiene un pequeño
fallo, si te sales de rangos. Es decir, si pones col<1 o
col>254, pero bueno, eso seria facil de solucionar

Gracias otra vez.

Hasta otra!

Luis.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida