Need Help Editing Code

[Frith]

Hi,

The below code snaps the cursor back to the last >0 cell in column B one second after ANY other cell in the WS is edited/entered... However, I'm trying to narrow this code to NOT apply to columns D & F (i.e., if I edit a cell in D or F, I do NOT want the cursor snapped back). Anyone know a way to tweak this?

Thanx a lot,
Frith


Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
If Target.Cells.Count > 1 Or IsEmpty(Target) Then
Exit Sub
Else
Application.Wait Time + TimeSerial(0, 0, 1)
Application.Goto Range("B" & LR)
End If

 

[Trebor76]

Hi Frith,

Not sure what worksheet event you're using to run the code, but try this:

Dim LR As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    If Target.Cells.Count > 1 Or _
       IsEmpty(Target) Or _
       Target.Column() = 4 Or _
       Target.Column() = 6 Then
        Exit Sub
    Else
        Application.Wait Time + TimeSerial(0, 0, 1)
        Application.Goto Range("B" & LR)
    End If

HTH

Robert

 

[diddi]

untested, but i think it should work...

    Dim LR As Long

    if target.column() =4 or target.column()  = 6 then exit sub

    LR = Range("B" & Rows.Count).End(xlUp).Row
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then
        Exit Sub
    Else
        Application.Wait Time + TimeSerial(0, 0, 1)
        Application.Goto Range("B" & LR)
    End If

 

[Michael M]

tRY

LR = Range("B" & Rows.Count).End(xlUp).Row
If target.Cells.Count > 1 Or IsEmpty(target) _
Or target.Column = 4 Or target.Column = 6 Then
Exit Sub
Else
Application.Wait Time + TimeSerial(0, 0, 1)
Application.Goto Range("B" & LR)
End If

 

[Frith]

Thanx again, guys...