Private Sub TextBox4_Change()
Application.ScreenUpdating = False
If Me.TextBox4.TextLength = 3 Then
Me.TextBox1.Enabled = True
Me.TextBox2.Enabled = True
[A2].Select
Do Until ActiveCell = CDate(Me.TextBox3) And ActiveCell.Offset(0, 1) = CInt(Me.TextBox4) Or ActiveCell = ""
ActiveCell.Offset(1, 0).Activate
Loop
If ActiveCell = "" Then
Range("A2").Activate
MsgBox "NEPOSTOJECI KUPAC", vbInformation, "GRESKA"
Me.TextBox1.Enabled = False
Me.TextBox2.Enabled = False
With Me.TextBox4
.SetFocus
.SelStart = 0
.SelLength = .TextLength
End With
'Else <<<<<<<<<<<<<
ActiveCell.Offset(1, 0).Activate
TextBox9.Value = ActiveCell.Offset(0, 3)
TextBox10.Value = ActiveCell.Offset(0, 4)
TextBox11.Value = ActiveCell.Offset(0, 5)
ActiveCell.Offset(0, 2) = TextBox4.Value
Me.TextBox4.SetFocus
End If
End If
Application.ScreenUpdating = True
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen