Moving data based on Cell value

[mohan08]

Hi All,

Can you help with the attached macro.

Trying to move data based on column C to the respective sheet. i have tried below code but its not working.
need to move data for 10+ sheets

 

[Marc L]

Hi, according to your attachment a VBA demonstration for starters like any Excel beginner can operate manually :​

Sub Demo1()
    Dim S&
        Application.ScreenUpdating = False
    With Sheet1.[A1].CurrentRegion
       .Range("K1") = .Range("C1")
    For S = 2 To Worksheets.Count
        Worksheets(S).UsedRange.Clear
       .Range("K2") = Worksheets(S).Name
       .AdvancedFilter 2, .Range("K1:K2"), Worksheets(S).[A1]
    Next
       .Range("K1:K2").Clear
    End With
        Application.ScreenUpdating = True
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[mohan08]

Thanks Marc L for the Code