Buenos días Triby, esto es lo que me quedo.
te consulto a ver si esta bien porque me devuelve un error... evidentemente no lo estoy haciendo bien ja.
Código vb:
Ver originalPrivate Sub Worksheet_Change(ByVal Target As Range)
' Si la celda actualizada no es la que necesitas, entonces sales sin hacer cambios
If Intersect(Target, Me.Range("E4")) Is Nothing Then Exit Sub
' Desactivas detección de eventos para prevenir ciclo infinito
Application.EnableEvents = False
' ***********************
' Aquí agregas tu código para copiar, pegar y ejecutar la consulta
Range("E3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recupera datos").Select
Range("D3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Consulta").Select
Range("E3").Select
' ***********************
' Activas nuevamente la detección de eventos para poder continuar
Application.EnableEvents = True
End Sub
Te comento lo que estoy haciendo, para ver si me podes indicar donde le estoy errando..
Creo un macro, hago el copiar la celda de CONSULTA (E4), la pego en RECUPERA DATOS (D3), y vuelvo a CONSULTA (E4).
Detengo el Macro, entro a editarlo, agrego este codigo que me pasaste. Pero el macro me desaparece.
Es mas en estos intentos, me pego parte del codigo de VB en RECUPERA DATOS.
Uds. sabrá donde estoy pifiando.
Gracias por su tiempo.
Saludos.