Help with some code to create an automated register summary

[hofmeister]

new to the forum and looking for some help,

I am trying to automate a Register to produce a summary list from a set of tabs (say 7) as follows:
i want the workbook to run a macro in the background and only activate when say i have filled out a row with data from columns A-G in one of the 7 respective tabes (the tabs can have x number of rows that i will be manually updating). This macro will recognise that i have filled out the row in the particular tab and run.

What i want the macro to complete: I want the macro to take this latest manually input data to a summary tab where it should find the last populated row and place the information one below that i.e. the next available empty row. (If possible would it work to get the macro to place the data to the same title heading as from the tab where the data is manually input i.e. the summary tab might have more columns then the tabs i manually input the data to.


I hope this makes sense and can be done. Any help would be much appreciated

 

[Lewiy]

Under the assumption that your summary sheet is called “Summary”, try pasting this code into the worksheet module for each worksheet in the workbook where you will be entering your data.:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Limit As Long
If WorksheetFunction.CountBlank(Range("A" & Target.Row & ":G" & Target.Row)) = 0 Then
    Limit = Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Worksheets("Summary").Range("A" & Limit & ":G" & Limit).Value = Range("A" & Target.Row & ":G" & Target.Row).Value
    Worksheets("Summary").Cells(Limit, 8) = ActiveSheet.Name
End If
End Sub

 

[hofmeister]

Cheers lewiy, much appreciated,

just incorporating your script, its working a treat. might have a couple of additions to ask you if i can't figure them out myself.