PaigeWarner
New Member
- Joined
- May 27, 2020
- Messages
- 48
- Office Version
- 365
- Platform
- MacOS
Hello,
I am trying to do a Record Macro and filter out and Delete all lines that start with 51 in column D Purchasing Document. When I have my filter on and put 51* in the search field in column D, I get this pop-up message which then also stops the recording:
Here is what the code looks like in Visual Basic after auto stopping:
__________________________________________________________________________________
Sub PO_51_DELETE()
'
' PO_51_DELETE Macro
'
'
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$1329").AutoFilter Field := 4, Criteria1 := Array( _
"5100058294","5100217898","5105518931","5106444516","5106457849","5107405499", _
"5107583231","5107839718","5107897397","5107897399","5107934878","5107956289", _
"5108006056","5108010504","5108024465","5108048923","5108057848","5108057859", _
"5108057894","5108057895","5108057896","5108059075","5108065997","5108065998", _
"5108073276","5108073277","5108073278","5108073279","5108073280","5108073281", _
"5108073282","5108073283","5108073917","5108073918","5108073921","5108073940", _
"5108073941","5108073942","5108073958","5108073959","5108073960","5108073961", _
"5108073962","5108073963","5108073964","5108073965","5108073975","5108079163", _
"5108079165","5108079194","5108079198","5108079199","5108083441","5108083487", _
"5108083488","5108083489","5108083490","5108083491","5108092894","5108097166", _
"5108101387","5108101388","5108101389","5108101390","5108101391","5108101392", _
"5108101393","5108101417","5108102937","5108102942","5108102981","5108102986", _
"5108102987","5108102988","5108102989","5108102993","5108105785","5108106489", _
"5108107777","5108108399","5108109289","5108113645","5108113654","5108113666", _
"5108113668","5108113669","5108113670","5108118560","5108118571","5108119561", _
"5108119580","5108119581","5108119586","5108119587","5108119588","5108119589", _
"5108119592","5108119597","5108120128","5108120138","5108122281","5108122282", _
"5108122685","5108122698","5108123888","5108124882","5108124892","5108124897", _
"5108126034","5108126071","5108127455","5108127981","5108128562","5108129362", _
"5108129399","5108130076","5108130077","5108130600","5108132341","5108132362", _
"5108132363","5108132998","5108135389","5108135446","5108135450","5108136047", _
"5108136049","5108136052","5108136073","5108136086","5108136812","5108139197", _
"5108139198","5108139629","5108140964","5108141035","5108141036","5108141053", _
End Sub
__________________________________________________________________________________
Here is a copy and paste of the columns in the sheet for reference:
I am trying to do a Record Macro and filter out and Delete all lines that start with 51 in column D Purchasing Document. When I have my filter on and put 51* in the search field in column D, I get this pop-up message which then also stops the recording:
Here is what the code looks like in Visual Basic after auto stopping:
__________________________________________________________________________________
Sub PO_51_DELETE()
'
' PO_51_DELETE Macro
'
'
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$1329").AutoFilter Field := 4, Criteria1 := Array( _
"5100058294","5100217898","5105518931","5106444516","5106457849","5107405499", _
"5107583231","5107839718","5107897397","5107897399","5107934878","5107956289", _
"5108006056","5108010504","5108024465","5108048923","5108057848","5108057859", _
"5108057894","5108057895","5108057896","5108059075","5108065997","5108065998", _
"5108073276","5108073277","5108073278","5108073279","5108073280","5108073281", _
"5108073282","5108073283","5108073917","5108073918","5108073921","5108073940", _
"5108073941","5108073942","5108073958","5108073959","5108073960","5108073961", _
"5108073962","5108073963","5108073964","5108073965","5108073975","5108079163", _
"5108079165","5108079194","5108079198","5108079199","5108083441","5108083487", _
"5108083488","5108083489","5108083490","5108083491","5108092894","5108097166", _
"5108101387","5108101388","5108101389","5108101390","5108101391","5108101392", _
"5108101393","5108101417","5108102937","5108102942","5108102981","5108102986", _
"5108102987","5108102988","5108102989","5108102993","5108105785","5108106489", _
"5108107777","5108108399","5108109289","5108113645","5108113654","5108113666", _
"5108113668","5108113669","5108113670","5108118560","5108118571","5108119561", _
"5108119580","5108119581","5108119586","5108119587","5108119588","5108119589", _
"5108119592","5108119597","5108120128","5108120138","5108122281","5108122282", _
"5108122685","5108122698","5108123888","5108124882","5108124892","5108124897", _
"5108126034","5108126071","5108127455","5108127981","5108128562","5108129362", _
"5108129399","5108130076","5108130077","5108130600","5108132341","5108132362", _
"5108132363","5108132998","5108135389","5108135446","5108135450","5108136047", _
"5108136049","5108136052","5108136073","5108136086","5108136812","5108139197", _
"5108139198","5108139629","5108140964","5108141035","5108141036","5108141053", _
End Sub
__________________________________________________________________________________
Here is a copy and paste of the columns in the sheet for reference:
IDoc number | Partner number | Vendor Name | PO Number |
799889375 | 11121 | GHI Incorporated | 4700491539 |
799889371 | 11121 | GHI Incorporated | 4700583480 |
799888572 | 11121 | GHI Incorporated | 4700651978 |
799889377 | 11121 | GHI Incorporated | 4703011097 |
799925395 | 31415 | JKL Incorporated | 4703319968 |
799922758 | 31415 | JKL Incorporated | 4703481592 |
799679315 | 31415 | JKL Incorporated | 4703539860 |
799752589 | 31415 | JKL Incorporated | 4703539861 |
799925399 | 31415 | JKL Incorporated | 4703612696 |
799648832 | 16171 | MNO Incorporated | 4703619064 |
799648832 | 16171 | MNO Incorporated | 4703619065 |
799648832 | 16171 | MNO Incorporated | 4703619066 |
799648832 | 16171 | MNO Incorporated | 4703619068 |
799648832 | 16171 | MNO Incorporated | 4703619069 |
800018928 | 67891 | DEF Incorporated | 4703619070 |
800018928 | 67891 | DEF Incorporated | 4703619071 |
799648832 | 16171 | MNO Incorporated | 4703619073 |
799648832 | 16171 | MNO Incorporated | 4703619075 |
799648832 | 16171 | MNO Incorporated | 4703619078 |
800018928 | 67891 | DEF Incorporated | 4703619079 |
800018928 | 67891 | DEF Incorporated | 4703619080 |
799648832 | 16171 | MNO Incorporated | 4703619086 |
799648832 | 16171 | MNO Incorporated | 4703619087 |
799648832 | 16171 | MNO Incorporated | 4703619089 |
800018928 | 67891 | DEF Incorporated | 4703619090 |
800018928 | 67891 | DEF Incorporated | 4703619094 |
799648832 | 16171 | MNO Incorporated | 4703619096 |
799648832 | 16171 | MNO Incorporated | 4703637552 |
799648832 | 16171 | MNO Incorporated | 4703699082 |
800018928 | 67891 | DEF Incorporated | 4703699152 |
800018928 | 67891 | DEF Incorporated | 4703699153 |
799648832 | 16171 | MNO Incorporated | 4703729793 |
799648832 | 16171 | MNO Incorporated | 4703761017 |
799648832 | 16171 | MNO Incorporated | 4703771594 |
800018928 | 67891 | DEF Incorporated | 4703827161 |
800018928 | 67891 | DEF Incorporated | 4703830356 |
799889375 | 11121 | GHI Incorporated | 4703843760 |
799889371 | 11121 | GHI Incorporated | 4703857279 |
799888572 | 11121 | GHI Incorporated | 4703857280 |
799889377 | 11121 | GHI Incorporated | 4703869272 |
799925395 | 31415 | JKL Incorporated | 4703869273 |
799922758 | 31415 | JKL Incorporated | 4703875852 |
799679315 | 31415 | JKL Incorporated | 4703877151 |
799752589 | 31415 | JKL Incorporated | 4703883842 |