Auto Transfer Rows Once Complete

[excelnoobHEINZ]

Hi,

Hope someone could help me please, I've attached a log of how i want it to look, but i cant figure it out

Basically when a person completes all fields on a row on their tab id like the row copied over to 'Main Sheet' and if any amendments are made id like the data to change auto on main sheet. Also id like the ability if possible to change the Person tabs to other names etc.

Any help would be amazing, thanks


Sorry had issues with file size, i want more tabs with users names on and id like them fed into the main sheet, if poss

[Richard Buttrey]

...and are you going to upload the workbook?

[excelnoobHEINZ]

Sorry i think it exceeds the file size limit, just trying to reduce it now

[excelnoobHEINZ]

...and are you going to upload the workbook?

uploaded

cheers

[excelnoobHEINZ]

Ive just found this http://www.excelforum.com/excel-prog...ter-sheet.html

But i cant duplicate it for what I need

[excelnoobHEINZ]

any ideas? thanks

[excelnoobHEINZ]

Can anyone help with this please?

[JOHN H. DAVIS]

Maybe:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Main" Then Exit Sub
If Not Intersect(Target, Sh.Range("A2:S" & Sh.Range("A" & Rows.Count).End(3).Row)) Is Nothing Then
    If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" And Cells(Target.Row, 3) <> "" And Cells(Target.Row, 4) <> "" And Cells(Target.Row, 5) <> "" And Cells(Target.Row, 6) <> "" And Cells(Target.Row, 7) <> "" And Cells(Target.Row, 8) <> "" And Cells(Target.Row, 9) <> "" And Cells(Target.Row, 10) <> "" And Cells(Target.Row, 11) <> "" And Cells(Target.Row, 12) <> "" And Cells(Target.Row, 13) <> "" And Cells(Target.Row, 14) <> "" And Cells(Target.Row, 15) <> "" And Cells(Target.Row, 16) <> "" And Cells(Target.Row, 17) <> "" And Cells(Target.Row, 18) <> "" And Cells(Target.Row, 19) <> "" Then
        Rows(Target.Row).Copy Sheets("Main").Range("A" & Rows.Count).End(3)(2)
    End If
End If
End Sub

[excelnoobHEINZ]

Maybe:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Main" Then Exit Sub
If Not Intersect(Target, Sh.Range("A2:S" & Sh.Range("A" & Rows.Count).End(3).Row)) Is Nothing Then
    If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" And Cells(Target.Row, 3) <> "" And Cells(Target.Row, 4) <> "" And Cells(Target.Row, 5) <> "" And Cells(Target.Row, 6) <> "" And Cells(Target.Row, 7) <> "" And Cells(Target.Row, 8) <> "" And Cells(Target.Row, 9) <> "" And Cells(Target.Row, 10) <> "" And Cells(Target.Row, 11) <> "" And Cells(Target.Row, 12) <> "" And Cells(Target.Row, 13) <> "" And Cells(Target.Row, 14) <> "" And Cells(Target.Row, 15) <> "" And Cells(Target.Row, 16) <> "" And Cells(Target.Row, 17) <> "" And Cells(Target.Row, 18) <> "" And Cells(Target.Row, 19) <> "" Then
        Rows(Target.Row).Copy Sheets("Main").Range("A" & Rows.Count).End(3)(2)
    End If
End If
End Sub

Thanks so much for replying, but ive tried to add this to the macros on the document but it doesnt seem to kick in