I have 2 fields that I want to push over and store everytime a new title is entered: ex: aa3 title and bb3 date, once i enter data in these cells I want them to populate over to ww3 and xx3. now when I enter new data into aa3 and bb3 I want the new data to populate over to ww3 and xx3 and the original #'s to move yy3 and zz3 any help on this will be appreciated.....
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Help Please!!!
- Thread starter sdc1234
- Start date
Try this on a copy of your workbook, adjust ranges to suit;
HTH
Colin
Code:
Sub MoveDate()
Select Case Range("F3").Value
Case Is = ""
Range("A3:B3").Select
Selection.Cut
Range("F3").Select
ActiveSheet.Paste
Case Else
Range("F3").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("H3").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("A3:B3").Select
Selection.Cut
Range("F3").Select
ActiveSheet.Paste
End Select
End SubHTH
Colin
Upvote
0
OK, try this, Paste this into a module, and run it;
HTH
Colin
Code:
Sub MoveDate()
Select Case Range("AI3").Value
Case Is = ""
Range("Z3:AA3").Select
Selection.Cut
Range("AI3").Select
ActiveSheet.Paste
Case Else
Range("AI3").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("AK3").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("Z3:AA3").Select
Selection.Cut
Range("AI3").Select
ActiveSheet.Paste
End Select
End SubHTH
Colin
Upvote
0
its working thank u the only thing that id s an issue now is the fact that the code is throwing a 40253 into AO3 instead of the pushing the job over any adviseSimilar threads
