Copy, pasting the informations

[share knowledge]

I have a workbook containing 4 sheets.. 1,2,3, master. I need to copy the informations in the sheets 1,2 and 3 and paste it in the master sheet.

The datas may vary everyday and the cell A contains the formula (till A100) which is protected. Will be great if you provide me the coding which points at Cell B.

I have attached the sample workbook.

Thanks a ton

[D_Rennie]

Try.

sub copypaste ()
Sheet1.Activate
Range("A2", Cells.SpecialCells(xlCellTypeLastCell)).Copy
Sheet4.Activate
Sheet4.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll

Sheet2.Activate
Range("A2", Cells.SpecialCells(xlCellTypeLastCell)).Copy
Sheet4.Activate
Sheet4.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll

Sheet3.Activate
Range("A2", Cells.SpecialCells(xlCellTypeLastCell)).Copy
Sheet4.Activate
Sheet4.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll

End Sub

[ravishankar]

Hi
try the macro in the attached file
Ravi

[momo123]

I need to verify something with you. Are you looking for a macro that allows the Master page to change the grades of the students when you make a change to the grades in anyone of the 3 sheets?