Macro para copiar datos de una hoja a una tabla con fecha especifica

Necesito una macro que copie los datos de una hoja (Dato 1 y Dato 2) con una fecha determinada y ubicarlo en la tabla de la otra hoja de manera lineal

Primero debe de buscar la fecha en la tabla y luego recién proceder a copiar.

En caso tenga ya data informar que se sobreescribira la información.

Gracias

Edson

1 Respuesta

Respuesta
2

Te anexo la macro

Sub CopiarDatos()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    '
    Set b = h2.Columns("A").Find(h1.[D4])
    If Not b Is Nothing Then
        If h2.Cells(b.Row, "B") <> "" Or h2.Cells(b.Row, "C") <> "" Then
            MsgBox "Ya existe data, la información se sobreescribirá"
        End If
        h2.Cells(b.Row, "B") = h1.[D6]
        h2.Cells(b.Row, "C") = h1.[D7]
    Else
        MsgBox "La fecha no existe"
    End If
End Sub

hola. Muchas gracias. Funciona muy bien.

me gustaría modificar que en vez de que busque si tiene datos en dos celdas lo haga en un rango de varias celdas de la misma fila. Lo que pasa es que mis datos a llenar son más de dos (tengo que llenar como 80 datos por fecha).

gracias

Podrías crear una nueva pregunta, al final del título de la pregunta puedes poner que va dirigida a Dante Amor, el detalle de la pregunta me explicas con ejemplos y con imágenes lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas