Loop through multiple sheets to add a row

[E5254730]

Hello,

I have below code to add row. My data is in table format.

Please Login or Register  to view this content.

Whereas I have multiple sheets in table format. I need to add rows in every sheet.

Above code just adds the row in Active sheet and not in the other sheets. There are other sheets as well, like, Table1, Table 2, Table3 and so on.

Please assist. Thanks!

[Sintek]

Please Login or Register  to view this content.

[E5254730]

Does not seems to be working for me.

I have multiple sheets. For instance, just assume, I just want to add the rows in Table1, Table3 and Table4

[E5254730]

Attaching excel for reference

Each day, I add a new row at row 5 and in A5 cell, yesterday's date is added (excluding weekends)

I need to automatically add a new row and date (as stated above), in Table1, Table3 and Table4.

[Sintek]

You mentioned nothing about adding dates...only add a new row to existing table in all sheets...
This sample above has only one sheet...?
Go back to the drawing board and once you know what you want then come back to the thread

[jdelano]

Are there specific sheet names with tables? Which sheet is Table2 on and so on? Your example has but 1 sheet and 1 table.

[E5254730]

Hello,

I have below code to add row. My data is in table format.

Each day, I add a new row at row 5 and in A5 cell, yesterday's date is added (excluding weekends)

I need to automatically add a new row and date (as stated above), in Table1, Table3 and Table4.

Please Login or Register  to view this content.

Whereas I have multiple sheets in table format. I need to add rows in every sheet.

Above code just adds the row in Active sheet and not in the other sheets. There are other sheets as well, like, Table1, Table 2, Table3 and so on.

Please assist. Thanks!

[E5254730]

Above link is been closed due to duplication.

Can advise on this thread

[Sintek]

Post 6 does just that...adds a new row to table in every sheet...
What has row 5 or cells 5 got to do with this..Please be more transparent...

[E5254730]

I do not need to add rows in every sheet. I've attached a new excel for reference. Only in this 3 sheets the rows should be added

The code that you provided, it inserts rows at the end of the last row.

[Sintek]

I give up...Post 6 does what you want...

[TMS]

@Sintek: your code adds a row at the bottom of each Table. The OP want to insert a new row at the top of each Table (line 1).

Please Login or Register  to view this content.

[TMS]

@E5254730: I don't think your Month to Date Averages are including the newly inserted rows. Year to Date looks OK.

[Sintek]

Oops misunderstood...Tx Trevor...

[TMS]

No worries. I don't often play with Tables in VBA so a learn for me.

[Sintek]

Each day, I add a new row at row 5 and in A5 cell, yesterday's date is added

Edit to Post2 code and nor Post6 as previously referenced in error...

Please Login or Register  to view this content.

[E5254730]

Yes, this did the trick.

But when it comes to date, it adds today's date, whereas i want to have previous date (excluding weekends). Today it will add Jul 9th

[TMS]

Change it to: Nxt.Range(1) = Date - 1

[E5254730]

@TMS - thanks - I just added the code. It works.

Much Appreciated.

[TMS]

You're welcome.


If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon (Next to Add Reputation) located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.