Üdvözlök mindenkit! Nagyon szuper ez a kód én is megpróbáltam használni majd korrigálni hogy ne ontsa a kódokat de nem jött össze úgy, hogy működjön is. A kérdésem az lenne, hogyan lehetne beilleszteni ide úgy hogy mentéssel együtt DE csak egy kódot generáljon mindig.

Private Sub CommandButton1_Click() ‘Saving Button
Dim sonsat, ver As Long

If TextBox1.Value = „” Then
MsgBox „Kérjük, adjon meg egy Azonosítót.”, vbExclamation, „”
TextBox1.SetFocus
Exit Sub
End If
If ComboBox106.Value = „” Then
MsgBox „Kérjük, adjon meg egy Megbízót.”, vbExclamation, „”
ComboBox106.SetFocus
Exit Sub
End If
If TextBox3.Value = „” Then
MsgBox „Kérjük, adjon meg egy Darabszámot.”, vbExclamation, „”
TextBox3.SetFocus
Exit Sub
End If
If TextBox4.Value = „” Then
MsgBox „Kérjük, adja meg Súly.”, vbExclamation, „”
TextBox4.SetFocus
Exit Sub
End If
If TextBox5.Value = „” Then
MsgBox „Kérjük, adja meg Rendszám.”, vbExclamation, „”
TextBox5.SetFocus
Exit Sub
End If
If txtDOB.Value = „” Then
MsgBox „Kérjük, adjon meg egy Dátumot.”, vbExclamation, „”
txtDOB.SetFocus
Exit Sub
End If
For ver = 4 To Cells(Rows.Count, 1).End(xlUp).Row

If Cells(ver, „A”) = TextBox1 Then
MsgBox „Ez az azonosító már regisztrálva van!”, vbInformation, „”
TextBox1 = Empty
Exit Sub: End If: Next

sonsat = Sheets(„Data”).Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(sonsat, 1) = TextBox1
Cells(sonsat, 2) = ComboBox106
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = txtDOB

MsgBox „A regisztráció sikeres”, vbApplicationModal, „”
End Sub