Consulta de Excel

Puedes lograr esto utilizando una macro en Excel para copiar datos de Hoja1 a Hoja2, asegurándote de que cada nuevo dato en Hoja1! A1 se agregue a la siguiente fila disponible en Hoja2. Aquí te dejo una macro que hará esto automáticamente:

Paso 1: Abrir el Editor de VBA

1. Abre tu archivo de Excel.

2. Presiona Alt + F11 para abrir el Editor de VBA.

Paso 2: Insertar el código VBA

1. En el Editor de VBA, haz clic derecho en VBAProject (TuArchivo.xlsx) y selecciona Insertar > Módulo.

2. Copia y pega el siguiente código en el módulo:

vba

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim ultimaFila As Long
    ' Establece las hojas
    Set ws1 = ThisWorkbook.Sheets("Hoja1")
    Set ws2 = ThisWorkbook.Sheets("Hoja2")
    ' Verifica si la celda modificada es A1 en Hoja1
    If Not Intersect(Target, ws1.Range("A1")) Is Nothing Then
        ' Encuentra la última fila vacía en Hoja2
        ultimaFila = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row + 1
        ' Copia el valor de A1 en Hoja1 a la siguiente fila disponible en Hoja2
        ws2.Cells(ultimaFila, 1).Value = ws1.Range("A1").Value
        ' Limpia el valor en A1 en Hoja1
        ws1.Range("A1").Value = ""
    End If
End Sub

Paso 3: Guardar y cerrar

1. Guarda el proyecto (Ctrl + S).

2. Cierra el Editor de VBA (Alt + Q).

Paso 4: Probar la funcionalidad

1. Vuelve a tu hoja de Excel.

2. Ingresa un dato en Hoja1! A1.

3. Después de presionar Enter, verás que el dato se copia a la siguiente fila disponible en Hoja2!A y Hoja1! A1 se limpia.

Cada vez que ingreses un nuevo dato en Hoja1! A1, la macro automáticamente lo transferirá a la siguiente fila disponible en Hoja2, manteniendo tus datos ordenados y sin sobrescribir información anterior.