Problemas con la macro

[mrocf]

¡ Ahora te quiero ver, mi estimado Sebastián !!!

Sigue -por favor- estas instrucciones:

a) Haz una copia de tu archivo en otra parte del disco por si las cosas se salen de control, ¿verdad?.

b) Haz clic con el botón derecho de tu ratón en la etiqueta de la hoja (abajo a la izquierda) y selecciona la opción: Ver código.

c) En la ventana que se te abrirá pegarás el siguiente código:

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 1 Then Exit Sub
Dim Celda As Range
  
  Set Celda = [E65536].End(xlUp).Offset(1, 0)

  Application.EnableEvents = False
  Range(Celda, Celda.Offset(7, 0)) = 1 + WorksheetFunction.Max([E:E])
  Range(Celda.Offset(0, 1), Celda.Offset(7, 1)) = Date & " " & Time
  [A5:B12].Copy Range(Celda.Offset(0, 2), Celda.Offset(7, 2))
  Application.EnableEvents = True

Set Celda = Nothing
End Sub

d) Cierra todas las ventanas que tienen que ver con Visual Basic y retorna al Excel.

e) Guarda tu archivo.
______________________________________________

A partir de ese momento, ¿qué es lo que debería pasar?...

• En el mejor de los casos: luego que el archivo se actualice con la info de la Web, la misma debería copiarse según lo conversado.
  
  
• En cualquier otro caso: tendrás que describir con mucha tranquilidad y precisión lo que ves en tu planilla.

______________________________________________

Aquí estoy suponiendo que la actualizacón desde la Web origina un solo evento Worksheet_Change.

De no ser así, tendremos que ver lo que ocurre.

Suerte y saludos.
Cacho