Como se borra la fila de la hoja1 que fue copiada en la hoja 2
Tengo en una hoja1 un serie de datos y la macro que tengo copia las filas del la hoja1 que cumplan una condición, y los pasa a la hoja 2, pero quiero que se borre la fila de la hoja1 y no me deje espacio en blanco
Sub buscar()
filalibre = Sheets("hoja2").Range("m65000").End(xlUp).Row + 1
dato = InputBox("que dato buscamos???")
If dato = "" Then Exit Sub
Set buscado = ActiveSheet.Range("AN1:AN" & Range("m65000").End(xlUp).Row).Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not buscado Is Nothing Then
ubica = buscado.Address
Do
buscado.EntireRow.Copy Destination:=Sheets("hoja2").Cells(filalibre, 1)
filalibre = filalibre + 1
Set buscado = ActiveSheet.Range("AN1:AN" & Range("m65000").End(xlUp).Row).FindNext(buscado)
Loop While Not buscado Is Nothing And buscado.Address <> ubica
End If
End Sub.
1 Respuesta
Respuesta de Elsa Matilde
1
Te respondí en consulta similar, ¿entiendo qué se trata de la misma macro?
Te la reitero. Si algo no queda claro o necesitas otros ajustes, da por cerrada ( valorando) la consulta anterior y seguimos en ésta.
Sub buscar()
'ajustada x Elsamatilde
filalibre = Sheets("hoja2").Range("A65000").End(xlUp).Row + 1
dato = InputBox("que dato buscamos???")
If dato = "" Then Exit Sub
Application.ScreenUpdating = True
Set buscado = ActiveSheet.Range("A1:A" & Range("a65000").End(xlUp).Row).Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not buscado Is Nothing Then
Do
'se guarda la fila del dato encontrado
ubica = buscado.Row
buscado.EntireRow.Copy Destination:=Sheets("hoja2").Cells(filalibre, 1)
filalibre = filalibre + 1
Set buscado = ActiveSheet.Range("A1:A" & Range("a65000").End(xlUp).Row).FindNext(buscado)
Range("A" & ubica).EntireRow.Delete
On Error Resume Next
Loop While Not buscado Is Nothing And buscado.Row <> ubica - 1
End If
End SubSi las respuestas resolvieron tus consultas no olvides valorarlas para darlas por cerradas. Molesta tener consultas como 'pendientes' cuando han sido correctamente respondidas. (también en tu historial aparecen así).
Sdos!
