Om jag ställer MaxLength i en (Textbox1) till 4 Hej, du behöver inte ställa max till 4, kör detta: <code></code> Hej, lite nyfiken bara:MaxLength
Och när man har knppat in 4 tecken så vill jag att dess ska flyttas
till en ny (Textbox2)
SörenSv: MaxLength
<code>
Private Sub Text1_Change()
If Len(Text1) = 4 Then Text2 = Text1: Text1 = ""
End Sub
MVH / BennySv: MaxLength
Generell lösning:
<code>
Private Sub Text1_Change()
If Len(Text1) = Text1.MaxLength Then
SendKeys "{Tab}"
End If
End Sub
</code>
Specefik lösning:
<code>
Private Sub Text1_Change()
If Len(Text1) = 4 Then
Text2.SetFocus
End If
End Sub
</code>Sv: MaxLength
Ville du FLYTTA innehåll från text1 till text2 som i mitt förslag eller ville du hoppa till text2 när du uppnått 4 tecken i text1 som i Andreas förslag?