amend code already posted to divide sheets

R

rjmdc

Well-known Member
Joined
Apr 29, 2020
Messages
672
Office Version
  1. 365
Platform
  1. Windows
posted by dmt32 a while back
how can i amend this code:
1- to automatically filter column B by heading
2- it crashes when re-run

VBA Code: 
Sub FilterData()
    'DMT32
    Dim ws1Master As Worksheet, wsNew As Worksheet, wsFilter As Worksheet
    Dim Datarng As Range, FilterRange As Range, objRange As Range
    Dim rowcount As Long
    Dim colcount As Integer, FilterCol As Integer, FilterRow As Long
    Dim SheetName As String, msg As String




    'master sheet
    Set ws1Master = ActiveSheet


    'set the Column you
    'are filtering
top:
    On Error Resume Next
    Set objRange = Application.InputBox("Select Field Name To Filter", "Range Input", , , , , , 8)
    On Error GoTo 0
    If objRange Is Nothing Then
        Exit Sub
    ElseIf objRange.Columns.Count > 1 Then
        GoTo top
    End If


    FilterCol = objRange.Column
    FilterRow = objRange.Row


    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With


    On Error GoTo progend


    'add filter sheet
    Set wsFilter = Sheets.Add
    
    With ws1Master
        .Activate
        .Unprotect Password:=""  'add password if needed
        
        rowcount = .Cells(.Rows.Count, FilterCol).End(xlUp).Row
        colcount = .Cells(FilterRow, .Columns.Count).End(xlToLeft).Column


        If FilterCol > colcount Then
            Err.Raise 65000, "", "FilterCol Setting Is Outside Data Range.", "", 0
        End If


        Set Datarng = .Range(.Cells(FilterRow, 1), .Cells(rowcount, colcount))
        
        'extract Unique values from FilterCol
        .Range(.Cells(FilterRow, FilterCol), .Cells(rowcount, FilterCol)).AdvancedFilter _
                      Action:=xlFilterCopy, CopyToRange:=wsFilter.Range("A1"), Unique:=True
                      
        rowcount = wsFilter.Cells(wsFilter.Rows.Count, "A").End(xlUp).Row
        
        'set Criteria
        wsFilter.Range("B1").Value = wsFilter.Range("A1").Value


        For Each FilterRange In wsFilter.Range("A2:A" & rowcount)
        
            'check for blank cell in range
            If Len(FilterRange.Value) > 0 Then
            
                'add the FilterRange to criteria
                wsFilter.Range("B2").Value = FilterRange.Value
                'ensure tab name limit not exceeded
                SheetName = Trim(Left(FilterRange.Value, 31))
                
                'check if Filter sheet exists
                On Error Resume Next
                 Set wsNew = Worksheets(SheetName)
                    If wsNew Is Nothing Then
                        'if not, add new sheet
                        Set wsNew = Sheets.Add(after:=Worksheets(Worksheets.Count))
                        wsNew.Name = SheetName
                    Else
                        'clear existing data
                        wsNew.UsedRange.Clear
                    End If
                On Error GoTo progend
                'add / update
                Datarng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=wsFilter.Range("B1:B2"), _
                                       CopyToRange:=wsNew.Range("A1"), Unique:=False


            End If
            wsNew.UsedRange.Columns.AutoFit
            Set wsNew = Nothing
        Next
        
        .Select
    End With
    


progend:
    wsFilter.Delete
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With


    If Err > 0 Then MsgBox (Error(Err)), 16, "Error"
End Sub
 

Excel Facts

What does custom number format of ;;; mean?
Three semi-colons will hide the value in the cell. Although most people use white font instead.
Sort by date Sort by votes
try this

Rich (BB code): 
Option Explicit
Sub FilterNames()
    'dmt32 aug 2020
    Dim wsData As Worksheet, wsNames As Worksheet, wsFilter As Worksheet
    Dim Datarng As Range, FilterRange As Range
    Dim rowcount As Long
    Dim FilterCol As Variant
    
    On Error GoTo progend
'your master sheet
    Set wsData = ThisWorkbook.Worksheets("Sheet1")
    
'Column you are filtering
    FilterCol = "B"
    
    With Application
        .ScreenUpdating = False: .DisplayAlerts = False
    End With
'add filter sheet
    Set wsFilter = ThisWorkbook.Worksheets.Add
    
    With wsData
        .Activate
'add password if needed
        .Unprotect Password:=""
        
        Set Datarng = .Range("A1").CurrentRegion
        
'extract values from FilterCol'to filter sheet
        .Cells(1, FilterCol).Resize(Datarng.Rows.Count).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=wsFilter.Range("A1"), Unique:=True
        
        rowcount = wsFilter.Cells(wsFilter.Rows.Count, "A").End(xlUp).Row
'set Criteria
        wsFilter.Range("B1").Value = wsFilter.Range("A1").Value
        
        For Each FilterRange In wsFilter.Range("A2:A" & rowcount)
'check for blank cell in range
            If FilterRange.Value <> "" Then
'add the FilterRange to criteria
                'wsFilter.Range("B2").Value = FilterRange.Value
'exact matches only
                wsFilter.Range("B2").Formula = "=" & """=" & FilterRange.Value & """"
'check if sheet exists
                If Not Evaluate("ISREF('" & FilterRange.Value & "'!A1)") Then
'add new sheet
                    Worksheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(FilterRange.Text)
                End If
'set object variable to sheet
                Set wsNames = Worksheets(CStr(FilterRange.Value))
'clear sheet
                wsNames.UsedRange.Clear
'copy data
                Datarng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=wsFilter.Range("B1:B2"), _
                CopyToRange:=wsNames.Range("A1"), Unique:=False
            End If
'autofit columns
            wsNames.UsedRange.Columns.AutoFit
'clear from memory
            Set wsNames = Nothing
        Next
        .Select
    End With
progend:
    wsFilter.Delete
    With Application
        .ScreenUpdating = True: .DisplayAlerts = True
    End With
    If Err <> 0 Then
        MsgBox (Error(Err)), vbCritical, "Error"
        Err.Clear
    End If
End Sub


Change Column to be filtered shown in BOLD as required

Code errors after being re-sun, can you show the error

Dave
 
Upvote 0
hi
it creates error this time at
progend:
wsFilter.Delete
With Application
.ScreenUpdating = True: .DisplayAlerts = True
End With
If Err <> 0 Then
MsgBox (Error(Err)), vbCritical, "Error"
Err.Clear
End If
End Sub
 
Upvote 0
this code shuts down excel with critical error
 
Upvote 0
dmt32 said:
try this

Rich (BB code): 
Option Explicit
Sub FilterNames()
    'dmt32 aug 2020
    Dim wsData As Worksheet, wsNames As Worksheet, wsFilter As Worksheet
    Dim Datarng As Range, FilterRange As Range
    Dim rowcount As Long
    Dim FilterCol As Variant
   
    On Error GoTo progend
'your master sheet
    Set wsData = ThisWorkbook.Worksheets("Sheet1")
   
'Column you are filtering
    FilterCol = "B"
   
    With Application
        .ScreenUpdating = False: .DisplayAlerts = False
    End With
'add filter sheet
    Set wsFilter = ThisWorkbook.Worksheets.Add
   
    With wsData
        .Activate
'add password if needed
        .Unprotect Password:=""
       
        Set Datarng = .Range("A1").CurrentRegion
       
'extract values from FilterCol'to filter sheet
        .Cells(1, FilterCol).Resize(Datarng.Rows.Count).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=wsFilter.Range("A1"), Unique:=True
       
        rowcount = wsFilter.Cells(wsFilter.Rows.Count, "A").End(xlUp).Row
'set Criteria
        wsFilter.Range("B1").Value = wsFilter.Range("A1").Value
       
        For Each FilterRange In wsFilter.Range("A2:A" & rowcount)
'check for blank cell in range
            If FilterRange.Value <> "" Then
'add the FilterRange to criteria
                'wsFilter.Range("B2").Value = FilterRange.Value
'exact matches only
                wsFilter.Range("B2").Formula = "=" & """=" & FilterRange.Value & """"
'check if sheet exists
                If Not Evaluate("ISREF('" & FilterRange.Value & "'!A1)") Then
'add new sheet
                    Worksheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(FilterRange.Text)
                End If
'set object variable to sheet
                Set wsNames = Worksheets(CStr(FilterRange.Value))
'clear sheet
                wsNames.UsedRange.Clear
'copy data
                Datarng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=wsFilter.Range("B1:B2"), _
                CopyToRange:=wsNames.Range("A1"), Unique:=False
            End If
'autofit columns
            wsNames.UsedRange.Columns.AutoFit
'clear from memory
            Set wsNames = Nothing
        Next
        .Select
    End With
progend:
    wsFilter.Delete
    With Application
        .ScreenUpdating = True: .DisplayAlerts = True
    End With
    If Err <> 0 Then
        MsgBox (Error(Err)), vbCritical, "Error"
        Err.Clear
    End If
End Sub


Change Column to be filtered shown in BOLD as required

Code errors after being re-sun, can you show the error

Dave
Click to expand...
now it says after going through it with F8
object variable or with block variable not set
 
Upvote 0
Code works fine for me

just guessing what your issue might be but try this modest update

VBA Code: 
Option Explicit
Sub FilterNames()
    'dmt32 aug 2020
    Dim wsData As Worksheet, wsNames As Worksheet, wsFilter As Worksheet
    Dim Datarng As Range, FilterRange As Range
    Dim rowcount As Long
    Dim FilterCol As Variant
    
    On Error GoTo progend
'your master sheet
    Set wsData = ThisWorkbook.Worksheets("Sheet1")
    
'Column you are filtering
    FilterCol = "B"
    
    With Application
        .ScreenUpdating = False: .DisplayAlerts = False
    End With
'add filter sheet
    Set wsFilter = ThisWorkbook.Worksheets.Add
    
    With wsData
        .Activate
'add password if needed
        .Unprotect Password:=""
        
        Set Datarng = .Range("A1").CurrentRegion
        
'extract values from FilterCol'to filter sheet
        .Cells(1, FilterCol).Resize(Datarng.Rows.Count).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=wsFilter.Range("A1"), Unique:=True
        
        rowcount = wsFilter.Cells(wsFilter.Rows.Count, "A").End(xlUp).Row
'set Criteria
        wsFilter.Range("B1").Value = wsFilter.Range("A1").Value
        
        For Each FilterRange In wsFilter.Range("A2:A" & rowcount)
'check for blank cell in range
            If FilterRange.Value <> "" Then
'add the FilterRange to criteria
                'wsFilter.Range("B2").Value = FilterRange.Value
'exact matches only
                wsFilter.Range("B2").Formula = "=" & """=" & FilterRange.Value & """"
'check if sheet exists
                If Not Evaluate("ISREF('" & FilterRange.Value & "'!A1)") Then
'add new sheet
                    Worksheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(Left(FilterRange.Text, 31))
                End If
'set object variable to sheet
                Set wsNames = Worksheets(CStr(FilterRange.Value))
'clear sheet
                wsNames.UsedRange.Clear
'copy data
                Datarng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=wsFilter.Range("B1:B2"), _
                CopyToRange:=wsNames.Range("A1"), Unique:=False
            End If
'autofit columns
            wsNames.UsedRange.Columns.AutoFit
'clear from memory
            Set wsNames = Nothing
        Next
        .Select
    End With
    
progend:
    If Not wsFilter Is Nothing Then wsFilter.Delete
    With Application
        .ScreenUpdating = True: .DisplayAlerts = True
    End With
    If Err <> 0 Then
        MsgBox (Error(Err)), vbCritical, "Error"
        Err.Clear
    End If
End Sub

If still having issues then post copy of the worksheet using MrExcel addin XL2BB - Excel Range to BBCode

Dave
 
Upvote 0
payments sample.xlsx
C
3
All payments

is this how to use the xl2bb
it fails and crashes

what i am really aiming for is worksheets AND workbooks based on the filtered column B
needs to be updatable
every time code is run it deletes and rewrites

please advise
 
Upvote 0
is this better
payments sample.xlsx
ABCDEFGHI
2Check NumberPbrtrcrpbntIDAmountReporting MonthCheck DateCheck AmountTypeChnck Pbgnn
33124bBBbS HbrDnR SgnD4606/1/20207/26/2020460FRRKbzmr, Sgndrb 67-15 190th Lbnn Frnsh Mnbdtws Ng 11365
43153bBBbS HbrDnR SgnD1006/1/20207/26/2020100OTPS TRANSPORTKbzmr, Sgndrb 67-15 190th Lbnn Frnsh Mnbdtws Ng 11365
53111bBDnLNbBr MtHMbD14402/1/20207/8/20202520FRRbbdnlnbbr, Jbsmrnn 242 Brttmn Strnnt #5f Nnw gtrk, Ng 10002
63111bBDnLNbBr MtHMbD30010/1/20207/8/20202520FRRbbdnlnbbr, Jbsmrnn 242 Brttmn Strnnt #5f Nnw gtrk, Ng 10002
72881bBDnLNbBr MtHMbD78011/1/20207/17/2020780FRRbbdnlnbbr, Jbsmrnn 242 Brttmn Strnnt #5f Nnw gtrk, Ng 10002
82753bBDnLNbBr MtHMbD48012/1/20206/29/2020480FRRbbdnlnbbr, Jbsmrnn 242 Brttmn Strnnt #5f Nnw gtrk, Ng 10002
92196bBDnLNbBr MtHMbD183.8610/1/2019IDGS Membership
102196bBDnLNbBr MtHMbD183.8611/1/2019IDGS Membership
112196bBDnLNbBr MtHMbD183.8612/1/2019IDGS Membership
122242bBdZbHRrnH NbnL4001/1/20202/12/2020FRR
132669bBdZbHRrnH NbnL10003/1/20205/25/20201000FRR
142517bRbRbT MtLLg337.510/1/20194/22/2020IDGS Classes
153042bRbRbT MtLLg50011/1/20197/31/2020750IDGS Classesbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
163042bRbRbT MtLLg25012/1/20197/31/2020750IDGS Classesbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
173129bRbRbT MtLLg11706/1/20207/21/20201170IDGS Classesbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
182222bRbRbT MtLLg21.7610/1/20192/10/2020IDGS Household
192894bRbRbT MtLLg2506/1/20207/17/2020294.99OTPS CLOTHINGbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
202109bRbRbT MtLLg49.9910/1/2019OTPS Internet
212109bRbRbT MtLLg47.211/1/2019OTPS Internet
222606bRbRbT MtLLg46.3112/1/20195/20/2020396.1OTPS Internet
232606bRbRbT MtLLg44.992/1/20205/20/2020396.1OTPS Internet
242620bRbRbT MtLLg44.993/1/20204/30/2020150.39OTPS Internet
252375bRbRbT MtLLg44.995/1/20206/29/2020151.96OTPS Internetbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
262894bRbRbT MtLLg44.996/1/20207/17/2020294.99OTPS Internetbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
272284bRbRbT MtLLg4510/1/20192/17/2020OTPS Phone Serv
282284bRbRbT MtLLg4511/1/20192/17/2020OTPS Phone Serv
292284bRbRbT MtLLg48.0112/1/20192/17/2020OTPS Phone Serv
302620bRbRbT MtLLg453/1/20204/30/2020OTPS Phone Serv
312375bRbRbT MtLLg454/1/20206/29/2020151.96OTPS Phone Servbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
323126bRbRbT MtLLg205/1/20207/21/202075.4OTPS Phone Servbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
332606bRbRbT MtLLg28.31/1/20205/20/2020396.1OTPS TRANSPORT
342606bRbRbT MtLLg1471/1/20205/20/2020396.1OTPS TRANSPORT
352109bRbRbT MtLLg103.310/1/2019OTPS Utilities
362606bRbRbT MtLLg62.3211/1/20195/20/2020396.1OTPS Utilities
372606bRbRbT MtLLg67.182/1/20205/20/2020396.1OTPS Utilities
382620bRbRbT MtLLg60.43/1/20204/30/2020OTPS Utilities
392375bRbRbT MtLLg61.975/1/20206/29/2020151.96OTPS Utilitiesbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
403126bRbRbT MtLLg55.46/1/20207/21/202075.4OTPS Utilitiesbrbrbt, Mtllg 141-27 79th bvnndn bpt 1d Fldshrng Ng 11367
412167BbNSbL bbKbSH50012/1/20191/22/2020FRR
422329BbNSbL bbKbSH5601/1/20202/27/2020FRR
432428BbNSbL bbKbSH4002/1/20203/19/2020FRR
441908BbNSbL bbKbSH30011/1/2019IDGS Classes
452328BbNSbL bbKbSH15012/1/20192/27/2020IDGS Classes
462427BbNSbL bbKbSH3251/1/20203/19/2020IDGS Classes
472427BbNSbL bbKbSH406.252/1/20203/19/2020IDGS Classes
482736BbNSbL bbKbSH540.835/1/20206/29/2020540.83IDGS ClassesbGRbWbL, NnnLbM 69-37 138th Strnnt Fldshrng Ng 11367
491908BbNSbL bbKbSH39.911/1/2019IDGS TRANSPORT
502328BbNSbL bbKbSH19.9512/1/20192/27/2020IDGS TRANSPORT
512427BbNSbL bbKbSH39.561/1/20203/19/2020IDGS TRANSPORT
522427BbNSbL bbKbSH49.452/1/20203/19/2020IDGS TRANSPORT
533006BnCKnRMbN MtSHn2706/1/20207/15/2020270IDGS ClassesJnwrsh Bldnprrnts rnc 8003 Sw 120 St Mrbmr FL 33156
543007BnCKnRMbN MtSHn2806/1/20207/15/2020380IDGS ClassesDtrfmbn, Rbndg 107 nnclbvn Blvd. Lbknwttd NJ 08701
553046BnCKnRMbN MtSHn2506/1/20208/6/2020321OTPS CLOTHINGBncknrmbn, Frdmrn 1550 nbst 34 Strnnt Brttklgn Ng 11234
563007BnCKnRMbN MtSHn1006/1/20207/15/2020380OTPS INDEPENDENDtrfmbn, Rbndg 107 nnclbvn Blvd. Lbknwttd NJ 08701
572883BnCKnRMbN MtSHn256/1/20207/17/202025OTPS Phone ServBncknrmbn, Frdmrn 1550 nbst 34 Strnnt Brttklgn Ng 11234
583046BnCKnRMbN MtSHn712/1/20208/6/2020321OTPS TRANSPORTBncknrmbn, Frdmrn 1550 nbst 34 Strnnt Brttklgn Ng 11234
593046BnCKnRMbN MtSHn06/1/20208/6/2020321OTPS TRANSPORTBncknrmbn, Frdmrn 1550 nbst 34 Strnnt Brttklgn Ng 11234
602382BrXnNSPbN nLrnZnR20002/1/20203/16/2020FRR
612741BrXnNSPbN nLrnZnR10005/1/20206/23/20201000FRRBrxnnspbn, Mtshn 47 Stdth 8th Strnnt bpt 5 Brttklgn Ng 11249
622755BrXnNSPbN nLrnZnR307.43/1/20206/29/2020307.4IDGS TRANSPORTBrxnnspbn, Mtshn 47 Stdth 8th Strnnt bpt 5 Brttklgn Ng 11249
632742BrXnNSPbN nLrnZnR6514/1/20206/23/2020651IDGS TRANSPORTBrxnnspbn, Mtshn 47 Stdth 8th Strnnt bpt 5 Brttklgn Ng 11249
642204BrXnNSPbN nLrnZnR585.227/1/20191/30/2020OTPS TRANSPORT
652204BrXnNSPbN nLrnZnR207.528/1/20191/30/2020OTPS TRANSPORT
662204BrXnNSPbN nLrnZnR399/1/20191/30/2020OTPS TRANSPORT
672204BrXnNSPbN nLrnZnR1010/1/20191/30/2020OTPS TRANSPORT
682144BrXnNSPbN nLrnZnR13912/1/2019OTPS TRANSPORT
692204BrXnNSPbN nLrnZnR2012/1/20191/30/2020OTPS TRANSPORT
702243BrXnNSPbN nLrnZnR359.751/1/20202/12/2020OTPS TRANSPORT
712644BrXnNSPbN nLrnZnR1102/1/20205/9/2020110OTPS TRANSPORT
72qpBLbd GrTnL C.2001/1/20203/9/2020IDGS Classes
73QPBLbd GrTnL C.6002/1/20203/9/2020IDGS Classes
74QpBLbd GrTnL C.3003/1/20204/23/2020IDGS Classes
752718BLbd GrTnL C.3005/1/20206/21/2020300IDGS ClassesGldck, Bbrlb 59 Chnlsnb Rtbd Jbckstn NJ 08527
76QPBLbd GrTnL C.1005/1/20207/8/2020100IDGS ClassesBlbd, Grtnl 1612 n. 14 Strnnt Brttklgn Ng 11229
773011BLbd GrTnL C.6406/1/20207/17/20202560IDGS ClassesJbctbs, nsthnr 1428 Ftrnst bvn. Lbknwttd NJ 08701
783018BLbd GrTnL C.1806/1/20207/15/2020180IDGS ClassesWnrsbnrg , Ntchdm 9 Cbmbrrdgn Dr Jbckstn NJ 08527
792886BLbd GrTnL C.3606/1/20207/17/2020360IDGS ClassesJnwrsh Bldnprrnts rnc 8003 Sw 120 St Mrbmr FL 33156
802740BLbd GrTnL C.1406/1/20206/24/2020140IDGS ClassesDtrfmbn, Rbndg 107 nnclbvn Blvd. Lbknwttd NJ 08701
813121BLbd GrTnL C.5406/1/20207/8/2020840IDGS ClassesGldck, Bbrlb 59 Chnlsnb Rtbd Jbckstn NJ 08527
822884BLbd GrTnL C.3606/1/20207/17/2020360IDGS ClassesJnwrsh Bldnprrnts rnc 8003 Sw 120 St Mrbmr FL 33156
833057BLbd GrTnL C.5407/1/20208/6/2020540IDGS ClassesGldck, Bbrlb 59 Chnlsnb Rtbd Jbckstn NJ 08527
843054BLbd GrTnL C.2707/1/20208/6/2020720IDGS ClassesJnwrsh Bldnprrnts rnc 8003 Sw 120 St Mrbmr FL 33156
853054BLbd GrTnL C.4507/1/20208/6/2020720IDGS ClassesJnwrsh Bldnprrnts rnc 8003 Sw 120 St Mrbmr FL 33156
86999BLbd GrTnL C.3595/1/20208/6/2020359IDGS HouseholdBlbd, Grtnl 1612 n. 14 Strnnt Brttklgn Ng 11229
87qpBLbd GrTnL C.229.996/1/20207/3/2020229.99IDGS HouseholdBlbd, Grtnl 1612 n. 14 Strnnt Brttklgn Ng 11229
882138BLbd GrTnL C.80012/1/2019IDGS PAID NEIGH
892244BLbd GrTnL C.8001/1/20202/12/2020IDGS PAID NEIGH
902381BLbd GrTnL C.8002/1/20203/16/2020IDGS PAID NEIGH
912604BLbd GrTnL C.8003/1/20205/19/2020800IDGS PAID NEIGH
923014BLbd GrTnL C.8006/1/20207/15/20201600IDGS PAID NEIGHKLnrN, RbCHnL 820 tcnbn Pbrkwbg bpt 209 Brttklgn Ng 11230
933073BLbd GrTnL C.8007/1/20208/6/2020800IDGS PAID NEIGHKLnrN, RbCHnL 820 tcnbn Pbrkwbg bpt 209 Brttklgn Ng 11230
94qpBLbd GrTnL C.809/1/2019IDGS TRANSPORT
95qpBLbd GrTnL C.82.4412/1/2019IDGS TRANSPORT
96qpBLbd GrTnL C.137.131/1/20202/12/2020IDGS TRANSPORT
97QPBLbd GrTnL C.33.682/1/20205/19/202033.68IDGS TRANSPORT
98QPBLbd GrTnL C.17.053/1/20205/19/202017.05IDGS TRANSPORT
99QPBLbd GrTnL C.109.7512/1/20192/12/2020OTPS Phone Serv
100QPBLbd GrTnL C.109.751/1/20202/12/2020OTPS Phone Serv
101QPBLbd GrTnL C.109.752/1/20205/19/2020109.75OTPS Phone Serv
102qpBLbd GrTnL C.109.73/1/20204/23/2020OTPS Phone Serv
103qpBLbd GrTnL C.36.0212/1/20191/12/2020OTPS TRANSPORT
104QPBLbd GrTnL C.44.042/1/20205/19/202044.04OTPS TRANSPORT
105QPBLbd GrTnL C.16.243/1/20205/19/202016.24OTPS TRANSPORT
1062649BtdRMbN nLrZbBnTH1402/1/20205/9/2020140FRR
1072605BtdRMbN nLrZbBnTH301/1/20205/19/202030IDGS Classes
1082648BtdRMbN nLrZbBnTH5503/1/20205/9/2020768IDGS Classes
1093058BtdRMbN nLrZbBnTH1506/1/20208/6/2020500IDGS ClassesBtdrmbn, Htpn 61-30 65th st Mrddln Vrllbgn Ng 11379
1103058BtdRMbN nLrZbBnTH3507/1/20208/6/2020500IDGS ClassesBtdrmbn, Htpn 61-30 65th st Mrddln Vrllbgn Ng 11379
1112648BtdRMbN nLrZbBnTH1092/1/20205/9/2020768IDGS Membership
1122648BtdRMbN nLrZbBnTH1093/1/20205/9/2020768IDGS Membership
1132647BtdRMbN nLrZbBnTH151.42/1/20205/9/2020151.4IDGS TRANSPORT
1142646BtdRMbN nLrZbBnTH90.591/1/20205/9/2020272.73OTPS TRANSPORT
1152646BtdRMbN nLrZbBnTH84.632/1/20205/9/2020272.73OTPS TRANSPORT
1162646BtdRMbN nLrZbBnTH97.513/1/20205/9/2020272.73OTPS TRANSPORT
1172882BtdRMbN nLrZbBnTH28.866/1/20207/17/202028.86OTPS TRANSPORTBtdrmbn, Htpn 61-30 65th st Mrddln Vrllbgn Ng 11379
1183059BtdRMbN nLrZbBnTH21.857/1/20208/6/202021.85OTPS TRANSPORTBtdrmbn, Htpn 61-30 65th st Mrddln Vrllbgn Ng 11379
1192246BtgLn FbBrbN2801/1/20202/12/2020FRR
1202384BtgLn FbBrbN1502/1/20203/16/2020FRR
1212384BtgLn FbBrbN802/1/20203/16/2020FRR
1222245BtgLn FbBrbN32.51/1/20202/12/2020IDGS Classes
1232245BtgLn FbBrbN1591/1/20202/12/2020IDGS Classes
1242383BtgLn FbBrbN48.72/1/20203/16/2020IDGS Classes
1252383BtgLn FbBrbN97.52/1/20203/16/2020IDGS Classes
1262383BtgLn FbBrbN1662/1/2020IDGS Classes
1272571BtgLn FbBrbN41.53/1/20205/15/2020155.2IDGS Classes
1282571BtgLn FbBrbN653/1/20205/15/2020155.2IDGS Classes
1292571BtgLn FbBrbN48.73/1/20205/15/2020155.2IDGS Classes
1302574BtgLn FbBrbN72.393/1/20205/15/202072.39OTPS TRANSPORT
1312317BRndnR gnCHnZKnL2001/1/20202/24/2020FRR
1322426BRndnR gnCHnZKnL3002/1/20203/19/2020FRR
1333033BRndnR gnCHnZKnL25004/1/20207/31/20202500FRRBRndnR, rSbbC 24 Trdmbn bvnndn Sprrng Vbllng Ng 10977
1342181BRndnR gnCHnZKnL80011/1/2019IDGS Classes
1352181BRndnR gnCHnZKnL48012/1/2019IDGS Classes
1362518BRndnR gnCHnZKnL24012/1/20194/22/2020IDGS Classes
1372316BRndnR gnCHnZKnL5001/1/20202/24/2020IDGS Classes
1382247BRndnR gnCHnZKnL3201/1/20202/12/2020IDGS Classes
1392518BRndnR gnCHnZKnL11201/1/20204/22/2020IDGS Classes
1403043BRndnR gnCHnZKnL11201/1/20207/31/20205390IDGS ClassesMtNSng SWrM SCHttL 145 Ctllngn Rd Sprrng Vbllng Ng 10977
1412518BRndnR gnCHnZKnL8002/1/20204/22/2020IDGS Classes
1422385BRndnR gnCHnZKnL5602/1/20203/16/2020IDGS Classes
1433043BRndnR gnCHnZKnL8002/1/20207/31/20205390IDGS ClassesMtNSng SWrM SCHttL 145 Ctllngn Rd Sprrng Vbllng Ng 10977
1443043BRndnR gnCHnZKnL3203/1/20207/31/20205390IDGS ClassesMnrN PLbTZ 9 bNTHtNg DRrVn SPRrNG VbLLng Ng 10977
1453043BRndnR gnCHnZKnL7505/1/20207/31/20205390IDGS ClassesMtNSng SWrM SCHttL 145 Ctllngn Rd Sprrng Vbllng Ng 10977
1463043BRndnR gnCHnZKnL13506/1/20207/31/20205390IDGS ClassesMtNSng SWrM SCHttL 145 Ctllngn Rd Sprrng Vbllng Ng 10977
1473043BRndnR gnCHnZKnL10507/1/20207/31/20205390IDGS ClassesMtNSng SWrM SCHttL 145 Ctllngn Rd Sprrng Vbllng Ng 10977
1483034BRndnR gnCHnZKnL7710/1/20197/31/2020167.94OTPS Staff ActiBRndnR, rSbbC 24 Trdmbn bvnndn Sprrng Vbllng Ng 10977
1492281BRndnR gnCHnZKnL36.7612/1/20192/12/2020OTPS Staff Acti
1503034BRndnR gnCHnZKnL29.162/1/20207/31/2020167.94OTPS Staff ActiFrrnsnl, Prnchbs 32 Ptlnrgb Rtbd #201 Nnw Sqdbrn Ng 10977
1513034BRndnR gnCHnZKnL32.525/1/20207/31/2020167.94OTPS Staff ActiBRndnR, rSbbC 24 Trdmbn bvnndn Sprrng Vbllng Ng 10977
1522729BRndnR gnCHnZKnL54.196/1/20206/24/202054.19OTPS Staff ActiBRndnR, rSbbC 24 Trdmbn bvnndn Sprrng Vbllng Ng 10977
1533034BRndnR gnCHnZKnL29.266/1/20207/31/2020167.94OTPS Staff ActiBRndnR, rSbbC 24 Trdmbn bvnndn Sprrng Vbllng Ng 10977
1542575BRtNCHTbrN SHMdnL29001/1/20205/15/20202900FRR
1552223BRtNCHTbrN SHMdnL15011/1/20192/10/2020IDGS Classes
All payments
 
Upvote 0
applied code using your data filtering on Column B & worked fine for me


Dave
 
Upvote 0
i pasted code into new module
then it crashed
 
Upvote 0
You must log in or register to reply here.

Similar threads

pliskers
  • Question
Loop to create separate filtered tabs from a master data set
Replies
4
Views
716
pliskers
pliskers
R
  • Solved
Update VBA Code for Split and Total
2
Replies
13
Views
1K
Alex Blakenburg
A
H
  • Solved
stop add new sheet when split data into multiple sheets when run macro repeatedly
Replies
3
Views
563
dmt32
D
I
  • Question
Current Code taking 10 Hours to run. Need Help to Optimize
Replies
5
Views
287
ItalianPlatinum
I
I
  • Question
Find last row of sheet based off cell value to reference the sheet name
Replies
0
Views
219
ItalianPlatinum
I

Forum statistics

Threads
1,215,460
Messages
6,124,949
Members
449,198
Latest member
MhammadishaqKhan

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top