Hi Dennis.
Sorry aboute my first answer.
Modify below for your purpose.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "B2" Then
If Abs(Len(Range("b2")) - Range("A1").ID) >= 3 Then
Application.EnableEvents = False
Me.Range("c1").Select
Application.EnableEvents = True
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "B2" Then
Range("A1").ID = Len(Range("b2"))
End If
End Sub
--
Best regards
Joergen Bondesen
"Joergen Bondesen" <(E-Mail Removed)> wrote in message
news:ec4mg2$2jo6$(E-Mail Removed)...
> Hi Dennis
>
> Try this, please.
>
> Right click on your sheet tab and place below.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address(False, False) = "B2" Then
> If UCase(Left(Target.Value, 2)) = "JB" Then
> Application.EnableEvents = False
> Me.Range("c1").Select
> Application.EnableEvents = True
> End If
> End If
> End Sub
>
> --
> Best regards
> Joergen Bondesen
>
>
> "Dennis" <(E-Mail Removed)> wrote in message
> news:BCCF787C-29E8-42AC-AF00-(E-Mail Removed)...
>> Is there a way to set up a particular cell so that, when a specific
>> number of
>> characters have been typed by the user, the curser will jump to another
>> cell?
>> I'd like to use this feature, if it can be done, in a template.
>
>
|