PLEASE HELP!! Is this possible in VBA????

[wrightyrx7]

Hi all,

I have a big report i run at the end of every month with about 25 columns, with upto 1000 rows, and was wondering if this is possible.

example columns:-

Name, Surname, NI number, Earnings, 1,A,2,B,3,C,4,D,5,E,etc

The colums above will be on the main worksheet.

Then what we do at the moment is create extra blank worksheets to then copy an paste the columns with all the data like this:-
Worksheet2 - Name, Surname, NI number, Earnings, 1,A
Worksheet3 - Name, Surname, NI number, Earnings, 2,B
Worksheet4 - Name, Surname, NI number, Earnings, 3,C
Worksheet5 - Name, Surname, NI number, Earnings, 4,D
Worksheet2 - Name, Surname, NI number, Earnings, 5,E

Is there anthing that can be created to automatically create the other worksheets from the main one?

Thanks in advance.

Chris

 

[jfish1288]

Yeah that is because of the offset that makes sure each row is pasted right below the last one.

if you paste this code between the end with and end sub lines it should take care of that problem

Worksheets(2).Range("A1").EntireRow.Delete
Worksheets(3).Range("A1").EntireRow.Delete
Worksheets(4).Range("A1").EntireRow.Delete
Worksheets(5).Range("A1").EntireRow.Delete
Worksheets(6).Range("A1").EntireRow.Delete
Worksheets(7).Range("A1").EntireRow.Delete
Worksheets(8).Range("A1").EntireRow.Delete
Worksheets(9).Range("A1").EntireRow.Delete
Worksheets(10).Range("A1").EntireRow.Delete

 

[wrightyrx7]

love it!!! THANK YOU SO SO SO MUCH. You just saved us so much work on a monthly basis!

All i have to do now is run the macro, the go onto each Worksheet add a new column with the totals of the last two columns.

:D very happy person!

 

[wrightyrx7]

Fish are you about my friend???