Copiar varias filas con un dato en especifico
s), Necesito copiar los datos de las filas desde la columna "B" hasta la "H" de la hoja2, copiando solo los datos de las filas que contengan el mismo contenido de la columna "A" iguales a un txt_dato.text de un formulario UserForm1, pegándolos a la hoja1 a partir de la celda "B6".
1 respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro
Private Sub CommandButton1_Click()
'Por.Dante Amor
Application.ScreenUpdating = False
If TextBox1 = "" Then Exit Sub
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
Set r = h2.Columns("A")
Set b = r.Find(TextBox1, lookat:=xlWhole)
j = 6
If Not b Is Nothing Then
celda = b.Address
Do
'detalle
h2.Range(h2.Cells(b.Row, "B"), h2.Cells(b.Row, "H")).Copy
h1.Cells(j, "B").PasteSpecial xlValues
j = j + 1
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
Application.ScreenUpdating = False
Application.CutCopyMode = False
MsgBox "Copia terminada"
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
