Copy data from Master Sheet to corresponding tab (some sheets may be blank)

[surkdidat]

Hi there

I need some code please where it look at what is in column M and whatever is in this column, it copies the whole row (columns A to T) onto the relevant tab. Tabs are called Team1, Team2, Team3 etc to Team10. I tried recording a macro, filtering on column M and copying to the relevant tab, but this fails as when running the report there will be occasions where a certain Team will have no data to copy across.

This will be programmed into a button which will run the report. Before it does this, I need it to clear all the data, but I take it a simple select.Sheet, ClearAllContents A:T should do that part

Many thanks

 

[Puertorekinsam]

OH I made such a stupid mistake. the following line

        Set ws = Sheets(Cells(i, 13).Value)

should have said:

         Set ws = Sheets(StartSheet.Cells(i, 13).Value)

so the code should have said:

Sub Button1_Click()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets
    If ws.Name <> ActiveSheet.Name Then ws.Range(ws.Rows(2), ws.Rows(1048576)).Clear

Next

i = 2

Set StartSheet = ActiveSheet
Do Until StartSheet.Cells(i, 13) = ""
    
    Set ws = Sheets(StartSheet.Cells(i, 13).Value)
    With ws
        .Activate
        printrow = .Cells(Rows.Count, "A").End(xlUp).Row

        If printrow = 1 Then printrow = 2

        StartSheet.Range(StartSheet.Cells(i, 1), StartSheet.Cells(i, 20)).Copy .Cells(printrow, 1)
    
    End With


    i = i + 1

Loop


End Sub

 

[Puertorekinsam]

double post

 

[surkdidat]

Many thanks - that has solved problem one, problem 2 is that the data seems to replace iself, rather than looking for the next blank line in the tabs to copy the data too

 

[surkdidat]

hi again - problem solved all works swimmingly now