Copiar los datos de filas a columnas
Happy New Year!
Necesito copiar los datos de las filas a columnas mientras los datos de la fila no comience con "V00".
2 Respuestas
Respuesta de James Bond
1
Este es el resultado de la macro que según entiendo por tu información necesitas
Y esta es la macro
Sub COPIAR()
Set datos = Range("B2").CurrentRegion
With datos
F = .Rows.Count: C = .Columns.Count
Set destino = .Columns(C + 2).Resize(1, F)
x = 1
For I = 1 To F
NUM = .Cells(I, 1)
DER = UCase(Left(NUM, 3))
If DER = "V00" Then GoTo SIGUIENTE
destino.Cells(1, x) = NUM
x = x + 1
SIGUIENTE:
Next I
End With
destino.EntireColumn.AutoFit
Set destino = Nothing: Set datos = Nothing
End Sub