Extraer una fila de una hoja en base a una consulta y pegarla en otra hoja
Mi problema es extraer una fila en base a una consulta que me haga un cuadro dialogo sobre un dato en la columna (a) y pegarla entera en otra hoja para poder tratar dicho datos puesto que son muchos registros en horizontal.
1 Respuesta
Respuesta de Elsa Matilde
1
REspondí algo similar en consulta anterior. Aquí mencionas un cuadro de diálogo y que la búsqueda se realice en col A.
Esta macro hace esto, faltaría ajustar la fila destino que consideré como la primer fila libre... ajusta la línea donde dice: filx =
Sub copiaDatos()
'x Elsamatilde
'fila destino en hoja 2: se toma la primer fila libre ----- AJUSTAR
filx = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row + 1
dato = InputBox("Ingrese dato a copiar", "SOLICITUD")
'si cancela el mensaje, cancela el evento
If IsEmpty(dato) Then Exit Sub
'busca el dato en hoja activa, col A
Set busco = Range("B:B").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si lo encontró copia la fila completa en hoja 2
If Not busco Is Nothing Then
Range("A" & busco.Row).EntireRow.Copy Destination:=Sheets("Hoja2").Range("A" & filx)
'opcional: pasar a la hoja2
Sheets("Hoja2").Select
Range("A" & filx).Select
Else
MsgBox "No se encontró el dato buscado en col A", , "ERROR"
End If
Set busco = Nothing
End SubSi las respuestas resuelven tu consulta no olvides valorarlas (excelente o bueno) para darlas por cerradas.
