Hozzászólások
-
SzerzőBejegyzés
-
Ü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 LongIf 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).RowIf Cells(ver, „A”) = TextBox1 Then
MsgBox „Ez az azonosító már regisztrálva van!”, vbInformation, „”
TextBox1 = Empty
Exit Sub: End If: Nextsonsat = 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) = txtDOBMsgBox „A regisztráció sikeres”, vbApplicationModal, „”
End SubAz excel vba-ban van olyan vagy bármilyen kód amivel mit egy időkorláttal zárolni tudom az általam létrehozott userform-ot? van egy ilyenem de az nem tesz sokat csak egy alkalommal bezárja de utána megnyitható:
Sub Data()
Application.OnTime Now + TimeValue(„0:0:10”), „bezaro”
UserForm2.Show
End SubSub bezaro()
UserForm2.Hide
End SubKöszönöm szépen, beillesztettem és működik szépen 🙂
-
SzerzőBejegyzés
