Right now, I copy two cells on one sheet, into another sheet's two cells. That works fine. I don't want the formatting to transfer over though, just the values. Also, I don't want to be brought to the new sheet after the paste has been performed.
Can someone offer advice please?
Sub Defending_Blue_1() Sheets("Battling_Teams").Range("A2").Copy Sheets("Forecast").Range("A5") Sheets("Battling_Teams").Range("B3").Copy Sheets("Forecast").Range("A6") End Sub
Last edited by Elieson; 07-22-2015 at 01:24 PM. Reason: Added code txt
I've gone through my efforts here and tried something new, but I have an annoying screen flicker (I assume that the macro is quickly jumping back and forth between sheets, before returning me to my first sheet. Is there a way to prevent that from happening?
Sub Defending_Blue_2() Range("C83").Select Selection.Copy Sheets("Forecast").Select Range("A5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Battling_Teams").Select Range("C3").Select Selection.Copy Sheets("Forecast").Select Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Battling_Teams").Select Application.CutCopyMode = False End Sub
Last edited by Elieson; 07-22-2015 at 01:24 PM. Reason: added code txt
Your posts violate the rules of this forum. Please put your code in [CODE] tags if you want help. To do this, edit your posts, highlight your code, then press the # button in the text editor toolbar.
I've added [code] tags.
Yes, with Application.ScreenUpdating, shown in code below. However, the way I wrote the code, it won't be of too much help here.I assume that the macro is quickly jumping back and forth between sheets, before returning me to my first sheet. Is there a way to prevent that from happening?
Anyway, a few things.
- You don't ever really to do .Select. This is a human activity, and in VBA you can just work with the ranges directly. I've shown that in the code.
- When copying just values, w/o formatting, it is my personal preference to just set the ranges equal to each other. I find it more straightforward.
The following is the functional equivalent of the second code set you posted. It is shorter, and IMHO, clearer.
Sub Defending_Blue_2() Application.ScreenUpdating = False Sheets("Forecast").Range("A5").Value = Sheets("Battling_Teams").Range("C83").Value Sheets("Forecast").Range("A6").Value = Sheets("Battling_Teams").Range("C3").Value Application.ScreenUpdating = True End Sub
Exactly what I needed. Thanks!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks