Extraer solo una parte de una bd por una condición
Hola aquí de nuevo con una duda que tal vez sea fácil o no pero como soy novata en esto mejor pregunto por que nada más no encuentro salida. Tengo una bd en excel en donde tengo información el esquema es como el siguiente.
codigo nombre observaciones
001 x no ha quedado
002 x en revision
003 y pendiente
004 z en revision
...
Quiero que los que sean por ejemplo de nombre POR solo extraer la fila de eso datos y pégalos en una hoja. Ojala me puedan ayudar.
codigo nombre observaciones
001 x no ha quedado
002 x en revision
003 y pendiente
004 z en revision
...
Quiero que los que sean por ejemplo de nombre POR solo extraer la fila de eso datos y pégalos en una hoja. Ojala me puedan ayudar.
1 respuesta
Respuesta de Luis_P
1
Ok. Entiendo que los datos están en col a - b -c
Entonces acá el macro:
Sub filtro()
Dim fila As Long
'4c7569735f50
Application.ScreenUpdating = False
fila = Application.WorksheetFunction.CountA(Sheets(2).Range("A:A")) + 1
Sheets(1).Select
Sheets(1).Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$5").AutoFilter Field:=2, Criteria1:="x"
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(2).Select
Sheets(2).Range("A" & fila).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(1).Select
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Copiado", vbInformation
End Sub
Los toma desde la hoja 1 y los copia en hoja2
Entonces acá el macro:
Sub filtro()
Dim fila As Long
'4c7569735f50
Application.ScreenUpdating = False
fila = Application.WorksheetFunction.CountA(Sheets(2).Range("A:A")) + 1
Sheets(1).Select
Sheets(1).Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$5").AutoFilter Field:=2, Criteria1:="x"
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(2).Select
Sheets(2).Range("A" & fila).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(1).Select
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Copiado", vbInformation
End Sub
Los toma desde la hoja 1 y los copia en hoja2
