Hi there,
I'm trying to copy 4 sets of data from 1 sheet to another sheet, these 4 sets of data are for Analysis use. so I have Set A, B, C, D.
In the Current sheet "Overview" set A Range is D18:P18, B Range is D61:P61, C Range is D64:P64 and Range D is D65:P65.
this data I would like to copy to sheet "growth". In this sheet each data range has its own table with headers which is empty for now.
Thus the first set of data will be added into a blank space just below the header for each data range but when I update it I would like the sub to search for the last set of data and copy the data behind the last set.
furthermore if there is no row so it would need to add another row as well.
Can anyone help me solve this?
I would really appreciate anybodies help.
This is what I have come up with. But if I put 2 of these functions one after the other it always tells pastspecial method of range class failed.
Windows(wka).Activate
Sheets("Overview").Select
ActiveSheet.UnProtect Password:="alexmach"
ActiveSheet.Range("D61:P61").Select
Selection.Copy
Windows(wka).Activate
Sheets("Growth").Select
ActiveSheet.UnProtect Password:="alexmach"
Range("D11").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False
Application.CutCopyMode = False
ActiveSheet.Protect Password:="alexmach"
ActiveSheet.Range("A1").Select
So I really lost/helpless
Thank you in advance
Regards
Alex
I'm trying to copy 4 sets of data from 1 sheet to another sheet, these 4 sets of data are for Analysis use. so I have Set A, B, C, D.
In the Current sheet "Overview" set A Range is D18:P18, B Range is D61:P61, C Range is D64:P64 and Range D is D65:P65.
this data I would like to copy to sheet "growth". In this sheet each data range has its own table with headers which is empty for now.
Thus the first set of data will be added into a blank space just below the header for each data range but when I update it I would like the sub to search for the last set of data and copy the data behind the last set.
furthermore if there is no row so it would need to add another row as well.
Can anyone help me solve this?
I would really appreciate anybodies help.
This is what I have come up with. But if I put 2 of these functions one after the other it always tells pastspecial method of range class failed.
Windows(wka).Activate
Sheets("Overview").Select
ActiveSheet.UnProtect Password:="alexmach"
ActiveSheet.Range("D61:P61").Select
Selection.Copy
Windows(wka).Activate
Sheets("Growth").Select
ActiveSheet.UnProtect Password:="alexmach"
Range("D11").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False
Application.CutCopyMode = False
ActiveSheet.Protect Password:="alexmach"
ActiveSheet.Range("A1").Select
So I really lost/helpless
Thank you in advance
Regards
Alex