Post by fchladmin on Mar 10, 2018 16:47:43 GMT
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 - Tool
4 - Final Ratings
Im basically trying to make a macro with VBA to Copy the Ratings in range (B2:S2) over to the Tool range (B7:S7)
Then copy range (B8:N8) on the Tool 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 Tool 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 - Tool
4 - Final Ratings
Im basically trying to make a macro with VBA to Copy the Ratings in range (B2:S2) over to the Tool range (B7:S7)
Then copy range (B8:N8) on the Tool 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 Tool 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