Can anyone help me please

[sdc1234]

OK, try this, Paste this into a module, and run it;

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 Sub

How can I get this code to autorun as soon as I open the worksheet please help I know it is something I am just not sure what the code is

 

[stnkynts]

Change it to this:

Sub Auto_Open()
 
    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 Sub

 

[shg]

sdc1234, when you post the same question in multiple threads, you're the only one that sees all the responses, and no one else knows that it's been answered in a duplicate post.

 

[sdc1234]

sdc1234, when you post the same question in multiple threads, you're the only one that sees all the responses, and no one else knows that it's been answered in a duplicate post.

sorry bout that

<input id="gwProxy" type="hidden"><!--Session data--><input *******="jsCall();" id="jsProxy" type="hidden">

 

[sdc1234]

Change it to this:

Sub Auto_Open()
 
    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 Sub

not generating what I need I dont understand

<input id="gwProxy" type="hidden"><!--Session data--><input *******="jsCall();" id="jsProxy" type="hidden">

 

[rs2k]

sdc, have a look at your original post, I have offered a solution in that thread.


Colin

 

[sdc1234]

sdc, have a look at your original post, I have offered a solution in that thread.


Colin

Private Sub Workbook_Open()

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 Sub

I get an error of expected end sub after I run the code I need this to run w/o error messages. I really do appreciate this

sdc
<input id="gwProxy" type="hidden"><!--Session data--><input *******="jsCall();" id="jsProxy" type="hidden">

 

[Nalani]

Remove the line highlighted in RED. You can't have two Sub's in a Workbook_Open event.

Private Sub Workbook_Open()
 
Sub MoveDate()
 
Select Case Range("AI3").Value
Case Is = ""
Range("Z3:AA3").Select
.......
.........

 

[rs2k]

Remove the second line;

Remove this;

Sub MoveDate()

Colin

 

[sdc1234]

sdc, have a look at your original post, I have offered a solution in that thread.


Colin

thank u man appreciate it
<input id="gwProxy" type="hidden"><!--Session data--><input *******="jsCall();" id="jsProxy" type="hidden">