Vb y excel evento enter

[lucho248]

Buenos dias, a ver si alguien me podra dar una mano con esta pavada.
realmente no tengo conocimientos en VisualBasic.

Tengo un archivo excel con tres pestañas:
Articulos / Recupera Datos / Consulta

Este archivo excel recupero datos de la base, y lo utilizo a modo de consulta.
Lo que pretendo es para optimizar a traves de algun macro u evento de teclado con el enter

Siempre estoy parado en la pestaña CONSULTA (E4) {Hoja-Celda}.
es cuando luego de ingresar el codigo del articulo en CONSULTA (E4) {Hoja-Celda}, al presionar ENTER, corte y pegue lo ingresado en RECUPERA DATOS (D3) {Hoja-Celda}.
Cortar y pegar es para que de esta forma me deja en blanco CONSULTA (E4), para continuar las consultas.

solo eso, el resto de cargar o buscar funciona. Es eso que no se como hacerlo
no se si excel tiene este evento o solo lo puedo resolver a traves de VisualB.

Cualquier ayuda sera super agradecida.
Abrazo de gol.

[Triby]

En el código de la hoja correspondiente a "CONSULTA" pega lo siguiente:

Código vb:

Private 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
    ' ***********************
 
    ' Activas nuevamente la detección de eventos para poder continuar
    Application.EnableEvents = True
End Sub
 

[lucho248]

Buenos días Triby, el lunes apenas llego a la oficina, lo pruebo y te cuento como me fue.
muchas gracias de nuevo por tomarte el tiempo.
Saludos.

[lucho248]

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:

Private 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.

[Perr0]

te estas moviendo entre hojas, eso es para un modulo,

tu pegas los valores así

Código:

Range("E3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recupera datos").Select
Range("D3").Select
ActiveSheet.Paste

debería ser así para mantenerse en la misma hoja del código

Código:

Sheets("Recupera datos").Range("D3") = Range("E3")

saludos