macros

K

kilo

I want to copy excel information from same cells in different sheets and
paste unto the same sheet , how can I use macro or anything else to do this
without repeating the process for the many sheets I have. thanks
 
M

Mike H

Hi,

This will copy A1 - A10 to H1 - H10 in every worksheet

Sub Stantial()
For x = 1 To Worksheets.Count
Sheets(x).Range("A1:A10").Copy Destination:=Sheets(x).Range("H1")
Next
End Sub

Mike
 
K

kilo

Thanks mike,

but this i need to paste the information copied from different sheets unto
one single sheet. lets say if i copy from sheet8, i need to paste unto sheet
1, copy sheet 9, paste on a different cell in sheet 1 etc. could you help.
 
M

Mike H

Hi,

This method of addressing worksheets uses the sheet(n) method where sheet(1)
is the leftmost sheet. This macro now copies the range A1 - H1 for every
sheet to the first worksheets.

It copies the information into the first empty row.

Sub Stantial()
lastrow = Sheets(1).Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = 2 To Worksheets.Count
Sheets(x).Range("A1:H1").Copy Destination:=Sheets(1).Range("A" & lastrow + 1)
lastrow = lastrow + 1
Next
End Sub


Mike
 
Top