¿Cómo copiar filas de una hoja a otra?
Hola que tal tengo la siguiente duda y ejemplo.
No Ticket Asunto asignado Estado
1 102530 Personalizar Juan perez Abierto
2 103245 Solicitud BAM Adriana Solis cerrado
3 104050 Cambio de PC Marco Guerrero Falta Bobo
Esto esta en la hoja1 y así va por filas y requiero una foromula para que en la hoja 2 me copie la fila con los datos que presento arriba pero que se pasen solo las filas que yo desee, es decir que si una dice abierto que a la hoja 2 dolo se pase las filas que digan abierto, espero me puedan ayudar o no se si se requiera macro y no se si me puedan decir como la hago o que fórmula puedo utilizar tengo windows xp office 2003
GRACIAS DE ANTEMANO POR SU AYUDA!
No Ticket Asunto asignado Estado
1 102530 Personalizar Juan perez Abierto
2 103245 Solicitud BAM Adriana Solis cerrado
3 104050 Cambio de PC Marco Guerrero Falta Bobo
Esto esta en la hoja1 y así va por filas y requiero una foromula para que en la hoja 2 me copie la fila con los datos que presento arriba pero que se pasen solo las filas que yo desee, es decir que si una dice abierto que a la hoja 2 dolo se pase las filas que digan abierto, espero me puedan ayudar o no se si se requiera macro y no se si me puedan decir como la hago o que fórmula puedo utilizar tengo windows xp office 2003
GRACIAS DE ANTEMANO POR SU AYUDA!
1 respuesta
Respuesta de Orlando Collarte
1
Crear una macro con este código:
Sub buscar()
Worksheets("Hoja1").Activate
Range("E2").Select
While ActiveCell.Value <> Empty
If ActiveCell.Value = "Cerrado" Then
Selection.EntireRow.Copy
Worksheets("Hoja2").Activate
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End If
Worksheets("Hoja1").Activate
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Pruébalo y me comentas
Sub buscar()
Worksheets("Hoja1").Activate
Range("E2").Select
While ActiveCell.Value <> Empty
If ActiveCell.Value = "Cerrado" Then
Selection.EntireRow.Copy
Worksheets("Hoja2").Activate
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End If
Worksheets("Hoja1").Activate
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Pruébalo y me comentas
