Thread: [Solved] Paste value of selected cell to adjacent cell
View Single Post
 
Old 08-26-2021, 12:25 AM
Purfleet Purfleet is offline Windows 10 Office 2019
Expert
  
Join Date: Jun 2020
Location: Essex
Posts: 345
Purfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to behold
Default
try this, it will paste whatever is copied one cell to the right - no more validation so it will keep doing it if you press the button again and again. Can be improved further

Code:
Sub Copy()
    Selection.Copy
    Selection.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
Reply With Quote