Asignar valor de columna a una Variable...

Tengo un documento por ejemplo...
Columna A B C D E ... N
F       1                               texto1               texto2          texto3       texto4            texton
 I      2                               texto11             texto22        texto33     texto44          textonn
 L      3                               texto111           texto222      texto333      texto444     textonnn
A
Necesito primero recorrer la primera fila para todas las columnas ... La columna a la que debo llegar es BX ...
Como pongo en una variable la columna y como la incremento... No se por ejemplo variable = a
variable= a+1 De columna B
O como debo manejar el indice para que vaya recorriendo... .. Antes de esto encontré una subrutina que me da el valor de la ultima columna al a que debo llegar que es 76 (76 es igual a BX)
Sub EncontrarUltimaColumna()
Dim UltimaCol As Integer
If WorksheetFunction.CountA(Cells) > 0 Then
UltimaCol = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'MsgBox UltimaCol
End If
End Sub
Aquí el valor de UltimaCol lo da en numérico...
No se como manejar un indice para que recorra, las columnas A, B, C, DE hasta Bx ... Copie y pegue los datos que contiene la celda (que son textos) en la columna A ...

1 Respuesta

Respuesta
1
Sub Ultima Columna
Columna=1 'Puede empezar en cualquiera
Do while not isempty(Cells(Fila,Columna)) 'Fila es cualquier valor
Columna=Columna+1
Loop
msgbox "Ultima columna = " & Columna
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas