Macro para buscar un dato, copiarlo y pegarlo en otro libro

Para Dante Amor...

Que tal amigo pues aquí te dejo un ejemplo de lo que requiero hacer, soy un poco torpe para usar algunas cosas ojala que con ese ejemplo me de a entender más, saludos y excelente día.

1 Respuesta

Respuesta
1

Te anexo la macro para copiar el bloque donde empieza la palabra "RESUMEN".

Sub Copiar_Datos()
'Por.Dante Amor
    Set l1 = ThisWorkbook
    Set h1 = l1.Sheets(2)
    h1.Rows("3:" & Rows.Count).ClearContents
    '
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccione archivo de excel"
        .Filters.Clear
        .Filters.Add "Todos los archivos", "*.*"
        .Filters.Add "Archivos excel", "*.xls*"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path & "\"
        If .Show Then
            Set l2 = Workbooks.Open(.SelectedItems.Item(1))
            Set h2 = l2.Sheets(1)
            Set b = h2.Columns("B").Find("RESUMEN", LookAt:=xlWhole, LookIn:=xlValues)
            If Not b Is Nothing Then
                u = b.Row + 1
                Do While h2.Cells(u, "B") <> ""
                    u = u + 1
                Loop
                h2.Range("B4:J" & u).Copy
                h1.Range("A3").PasteSpecial xlValues
                mensaje = "Datos Copiados"
            Else
                mensaje = "No existe la palabra RESUMEN en la columna B"
            End If
            Application.ScreenUpdating = True
            l2.Close False
            MsgBox mensaje
        End If
    End With
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas