09/08/2006, 09:52
|
| | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 18 años, 5 meses Puntos: 18 | |
Estimado amigo, no lo he probado, pues no tengo ningun libro enlazado a internet, pero pienso que te podria resultar alog asi:
Private Sub worksheet_change(ByVal target As Range)
Sheets("Hoja1").Copy Before:=Sheets(1)
Sheets("hoja1").Select
End Sub
Aqui, ante cada cambio, se crea una copia de la hoja.
Otra forma es:
Private Sub worksheet_change(ByVal target As Range)
Call cambios
End Sub
Sub cambios()
Range("A1:A10").Select
Selection.Copy
Sheets("Hoja2").Select
Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("hoja1").Select
Range("a1").Select
Application.CutCopyMode = False
End Sub
Ahi, ante cada cambio, copia el rango y lo envia a la hoja2, y asi sucesivamente, uno debajo de otro. (en este, las celdas a1 y a2 de la hoja 2 deben estar llenas!!!)
El problema con ambas, es que si tu actualizas cada minuto!!!! tu libro desde internet, habran cambiso cada minuto y probabblemente en el segundo caso se llene la hoja o en el primero el libro quede demasiado extenso
Abraham |