Ver Mensaje Individual
  #4 (permalink)  
Antiguo 09/08/2006, 09:52
Avatar de abrahamvj
abrahamvj
 
Fecha de Ingreso: julio-2006
Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 17 años, 9 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