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 ...
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 de jferg
1