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

"Luis" escribió en el mensaje news:2564101c46168$475a74a0$
Mostrar la cita

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

Mostrar la cita

"Luis" escribió en

el mensaje news:2564101c46168$475a74a0$
Mostrar la cita

Mostrar la cita

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
Mostrar la cita

Mostrar la cita

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

problemillas a
Mostrar la cita

Mostrar la cita

partir de la columna "AA"

Gracias, Luis.

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

puedes usar lo siguiente:
Mostrar la cita

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

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

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.
Mostrar la cita

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.
Mostrar la cita