I will try and explain what im doing just playing around with VBA and excel to see if i can get this to work. I have used this in the past but it has been so long since i have done anything with it im at a loss of where im going wrong.
I have 4 sheets that im working with
1 - Stats
2 - Ratings
3 - Rerates 2016
4 - Final Ratings
Im basically trying to make a macro with VBA to Copy the Ratings in range (B2:S2) over to the Rerates 2016 range (B7:S7)
Then copy range (B8:N8) on the Rerates 2016 sheet and paste in the Final Ratings sheet to a new row each time i would click the macro button
after i paste the data in the next row on the Final Ratings page i would then go back to the Stats sheet and delete the data out of range (A10:H10)
then the same thing on the Ratings sheet delete data out of the range (A2:S2) after this it should hopefully start the process over until i run out of data
but what ends up happening after 1 run it stops and the data that is pasted in to the Final Ratings sheet is incomplete basically it doesnt match the data that was copied out of the Rerates 2016 sheet range (B8:N8).
Below is the test i ran and the code i was using
Range("B2:S2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Rerates 2016").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B8:N8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Paste Rerates here First").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Total Player").Select
Rows("10:10").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("RatingVitalCombined").Select
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("B2:S2").Select
Selection.Copy
Sheets("Rerates 2016").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Any help would be awesome
Thanks
I have 4 sheets that im working with
1 - Stats
2 - Ratings
3 - Rerates 2016
4 - Final Ratings
Im basically trying to make a macro with VBA to Copy the Ratings in range (B2:S2) over to the Rerates 2016 range (B7:S7)
Then copy range (B8:N8) on the Rerates 2016 sheet and paste in the Final Ratings sheet to a new row each time i would click the macro button
after i paste the data in the next row on the Final Ratings page i would then go back to the Stats sheet and delete the data out of range (A10:H10)
then the same thing on the Ratings sheet delete data out of the range (A2:S2) after this it should hopefully start the process over until i run out of data
but what ends up happening after 1 run it stops and the data that is pasted in to the Final Ratings sheet is incomplete basically it doesnt match the data that was copied out of the Rerates 2016 sheet range (B8:N8).
Below is the test i ran and the code i was using
Range("B2:S2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Rerates 2016").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B8:N8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Paste Rerates here First").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Total Player").Select
Rows("10:10").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("RatingVitalCombined").Select
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("B2:S2").Select
Selection.Copy
Sheets("Rerates 2016").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Any help would be awesome
Thanks