Reach Character Limit then move to next cell

[Todd Bardoni]

Is there a way to automatically select the next unlocked cell when the cell before it reaches its character limit.

For example, if I put an X in a cell, I want the next cell to be selected without having to TAB or select it myself.

 

[Juan Pablo González]

I don't think so, because, as far as I know, macros can not be run in edit mode.

 

[Tom Urtis]

Based on your example, here's a possible workaround. Place this in your worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Activate
Select Case ActiveCell.Value
Case ""
Exit Sub
Case "X"
ActiveCell.Offset(1, 0).Activate
Do Until ActiveCell.Locked = False
If ActiveCell.Locked = True Then
ActiveCell.Offset(1, 0).Activate
Else
ActiveCell.Select
End If
Loop
Case Else
MsgBox "Value not permitted.", 16, "Only one character ''X'' allowed."
ActiveCell.Value = ""
Exit Sub
End Select
End Sub

This can be modified for range, and length of value too, but if you only want one character and it's an X, this might do the job.

Be careful of one thing, that is to provide for an unlocked cell in your range (or elsewhare on the sheet if no specific range is coded). If there isn't such a cell, you may need to add an error trap to the code. If you always arrange for another unlocked cell somewhere, then this code may suffice as is.

Any help?

 

[Todd Bardoni]

This is interesting code but not what I'm looking for. I'm going to play with it to see if I can get it to do what I want...I'll report the results.