Separar lineas
Estimados,
tengo una planilla de la cual exporto de un programa en la cual me muestra detalle de las facturas emitidas durante un mes lo que necesito hacer es que en la lineas 1 estén los datos un cliente y que después mediante alguna formula o macro la segunda y tercera linea queden sin nada y así con las próximas lineas que se vaya saltando dos lineas en blanco y la tercera con datos
Ejemplo
A B C
1 JAVIER XXXX
2 PEDRO XXXXX
3 JUAN XXXXXXX
Y debe quedar
A B C
1 JAVIER XXXXX
2
3
4 PEDRO XXXXXXX
5
6
7 JUAN XXXXXX
Espero me puedan ayudar
tengo una planilla de la cual exporto de un programa en la cual me muestra detalle de las facturas emitidas durante un mes lo que necesito hacer es que en la lineas 1 estén los datos un cliente y que después mediante alguna formula o macro la segunda y tercera linea queden sin nada y así con las próximas lineas que se vaya saltando dos lineas en blanco y la tercera con datos
Ejemplo
A B C
1 JAVIER XXXX
2 PEDRO XXXXX
3 JUAN XXXXXXX
Y debe quedar
A B C
1 JAVIER XXXXX
2
3
4 PEDRO XXXXXXX
5
6
7 JUAN XXXXXX
Espero me puedan ayudar
1 Respuesta
Respuesta de Cadipas spain
1
Prueba esta macro:
'------------------------------------
sub separ2lineas()
f = 1
Do While Cells(f, 1) <> ""
f = f + 1
rango = f & ":" & f + 1
Rows(rango).Insert Shift:=xlDown
f = f + 2
Loop
End Sub
'---------------------------------
'------------------------------------
sub separ2lineas()
f = 1
Do While Cells(f, 1) <> ""
f = f + 1
rango = f & ":" & f + 1
Rows(rango).Insert Shift:=xlDown
f = f + 2
Loop
End Sub
'---------------------------------
