|
Claro eso solo esta funcionando de un solo lado, tendrias ke hacer algunos ajustes :)
Sub copia2hojas()
Dim fila,fila1 As Integer
With Sheets("Hoja2")
fila = 1
fila1 = 1
Do While True
If IsEmpty(.Cells(fila, 1)) and IsEmpty(.cells(fila1,1) Then Exit Do
fila = fila + 1
fila1= fila1 + 1
Loop
End With
Sheets("Hoja2").cells(fila1-1,1)= Sheets("Hoja1").Cells(fila - 1, 1)
Sheets("Hoja3").cells(fila1-1,1)= Sheets("Hoja1").Cells(fila - 1, 1)
end sub
prueba codigo y anda modificando bytez :)
|