ComboBoxa veri girmek

[yavuz829]

Arkadaşlar ComboBox2 boş geçilmesin. Bu konuda yardımlarınızı bekliyorum. Teşekkürler.

 

[Orion1]

Buyurun.

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1.Value = "" Then
    Cancel = True
    MsgBox "Veri yazılmadı!!", vbCritical, "U Y A R I"
End If
End Sub

 

[yavuz829]

Hocam aşağıdaki kod ile kayıt yapiyorum. Yazmış olduğunuz kodu aşağıdaki kodlara uygulayamadım. ComboBox2 boş geçilmiyecek.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
On Error Resume Next
ActiveSheet.ShowAllData
If ActiveSheet.AutoFilterMode Then ActiveSheet.Range("A1").AutoFilter field:=1
On Error Resume Next
Dim i As Integer, ts
For i = 6 To 32000
If (ActiveSheet.Cells(i, 1) = "") Then
ActiveSheet.Cells(i, 2) = CDate(ComboBox2)
ActiveSheet.Cells(i, 3) = ComboBox3.Text
ActiveSheet.Cells(i, 4) = TextBox3.Text * 1
ActiveSheet.Cells(i, 5) = TextBox4.Text * 1
ActiveSheet.Cells(i, 6) = TextBox5.Text * 1
ActiveSheet.Cells(i, 7) = TextBox10.Text * 1
ActiveSheet.Cells(i, 8) = TextBox11.Text * 1
ActiveSheet.Cells(i, 9) = TextBox13.Text * 1
ActiveSheet.Cells(i, 10) = TextBox6.Text * 1
ActiveSheet.Cells(i, 11) = TextBox7.Text * 1
ActiveSheet.Cells(i, 12) = ComboBox1.Text
ts = Range("B" & Rows.Count).End(xlUp).Row
Range("A6") = 1
Range("A6:A" & ts).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & [a65536].End(3).Row
Range("A65535").End(xlUp).Offset(1, 0).Select
ComboBox2.SetFocus
ActiveSheet.Protect "123"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
ComboBox2.Text = [L7]
UserForm_Initialize
Exit Sub
End If
Next i
End Sub

 

[Orion1]

Merhaba arkadaşlar ComboBox1e veri yazmadan ComboBox2ye geçiş izni vermesin. Bu konuda yardımlarınızı bekliyorum.

Hocam aşağıdaki kod ile kayıt yapiyorum. Yazmış olduğunuz kodu aşağıdaki kodlara uygulayamadım. ComboBox2 boş geçilmiyecek.

Hangisi doğru?
Combobox1'mi boş geçilmeyecek,Combobox2'mi?

 

[yavuz829]

Hocam ComboBox2 yazacağıma ComboBox1 yazmışım. ComboBox2 boş geçmiyecek.

 

[yavuz829]

Çok teşekkürler hocam ellerinize sağlık. Yazmiş olduğunuz kodu dosyama uyguladım.