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 de Dante Amor
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
.
