Consulta de Excel

Lo primero Feliz Navidad y un grandioso año 2007 junto a quienes te rodean.
En excel como puedo por ejemplo ingresar un dato en la hoja1 celda A1 y que en la hoja 2 ingrese en A1, después ingresar una segunda información en hoja1 celda a1 y en la hoja como esta ocupada a1 con información anterior aparezca A2, y así sucesivamente vaya agregando información que se ingresa en la columna seleccionada.
Muchas Gracias y Felicidades a todos en www.todoexpertos.com
Respuesta
1

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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas