Buscar texto y seleccionar celda copiar pegar
Necesito una macro para buscar un texto en una hoja (h1), seleccionar la celda de la derecha
Después copiarla y pegarla en la celda H5 de otro libro (h2)
2 respuestas
Respuesta de Dante Amor
1
Revisa si lo siguiente te ayuda
Sub BuscarTotal()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim f As Range
'Libro1 con el dato "Total" y libro con la macro
Set sh1 = ThisWorkbook.Sheets("Factura")
'Libro2, destino donde se va a pegar el valor
Set sh2 = Workbooks("libro2.xlsx").Sheets("Hoja1")
'Busca en el libro1
Set f = sh1.Cells.Find("Total Factura", , xlValues, xlPart, , , False)
If Not f Is Nothing Then
'pega en el libro2
sh2.Range("H5").Value = f.Offset(0, 1).Value
End If
End Sub
Respuesta de joseq mmmm
' Busca texto "Total Factura" selecciona celda derecha copia y pega otro libro
Cells.Find(What:="Total Factura", After:=ActiveCell, LookIn:=xlFormulas2 _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(0, 1).Select
Selection.Copy
h2.Activate
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False