VBA-Copy row from table based on date and paste it to another sheet

[goob90]

Hello!

I have a spreadsheet that lists employee insurance information. I am using a power query to update the table every month. I am wanting to create a code that loops through the ListObject and moves the row to a new sheet based on the effective date.

Example:

Effective date
10/01/2021-moves row to sheet "October"
02/01/2021-moves row sheet "February"

Can someone point me in the right direction? Thanks!

 

[goob90]

 

[Marc L]

Hello,​

​

link your workbook on a files host website like Dropbox …​

 

[goob90]

Hello,​

​

link your workbook on a files host website like Dropbox …​

Sample Project.xlsx

Data Effective Date,Emp Number ,Insurance,Coverage Level 1/21/2021,9139,MPHO,6 2/3/2021,7162,MPLO,9 2/5/2021,6989,DPLO,5 2/17/2021,7619,DPHO,9 2/23/2021,5979,MPHO,8 2/25/2021,9098,MPLO,6 3/9/2021,7070,DPLO,2 3/10/2021,5809,DPHO,9 3/29/2021,8268,MPLO,0 3/31/2021,3591,DPLO,5 5/5/2021,5471,DPHO,1 5...

docs.google.com

 

[Marc L]

Is it your real workbook ? If yes so from which country 'Janurary' and 'Feburary' come from ?!​

 

[goob90]

​

Is it your real workbook ? If yes so from which country 'Janurary' and 'Feburary' come from ?​

Yes, it is. I got in a hurry and misspelled January and February.?

 

[Marc L]

According to your attachment a VBA demonstration for starters :​

Sub Demo1()
        Dim S&
        Application.ScreenUpdating = False
    With [Data!A1].CurrentRegion
        For S = 2 To 13
            Sheets(S).UsedRange.Clear
           .Range("K2").Formula = "=MONTH(A2)=" & S - 1
           .AdvancedFilter 2, .Range("K1:K2"), Sheets(S).[A1]
        Next
           .Range("K2").Clear
    End With
        Application.ScreenUpdating = True
End Sub

 

[goob90]

According to your attachment a VBA demonstration for starters :​

Sub Demo1()
        Dim S&
        Application.ScreenUpdating = False
    With [Data!A1].CurrentRegion
        For S = 2 To 13
            Sheets(S).UsedRange.Clear
           .Range("K2").Formula = "=MONTH(A2)=" & S - 1
           .AdvancedFilter 2, .Range("K1:K2"), Sheets(S).[A1]
        Next
           .Range("K2").Clear
    End With
        Application.ScreenUpdating = True
End Sub

This works fantastically, thank you!