Userform ile veri aktarma ve ComboBoxlar ile ilgili yardım

[bedri41]

Daha önce Korhan Ayhan'ın hazırlamış olduğunuz aşağıdaki makroya aynı satıra ikinci bir cins mal satışı girebilmek için kırmızı yazılmış bölümü ekledim. Her iki bölümüde doldurduğumda sorun olmuyor ama sadece ComboBox6 ve Textbox4 doldurarak giriş yapmak istediğimde runtime error 13 veriyor. Yardımcı olabilirmisiniz.
Teşekkürler

Private Sub KAYDET_Click()

If ComboBox2.Value = "" Or ComboBox4.Value = "" Or ComboBox6.Value = "" Or TextBox4.Value = "" Then
MsgBox "EKSİK BİLGİ GİRİŞİ YAPTINIZ LÜTFEN KONTROL EDİN", vbInformation
Exit Sub
End If

With Sheets("GIRIS")
Satır = .Range("A65536").End(3).Row + 1
Set Bul = .Rows("1:1").Fin(ComboBox6)
Sütun = Bul.Column
.Cells(Satır, 1) = Format(TextBox1, "dd.mm.yyyy")
.Cells(Satır, 2) = ComboBox2
.Cells(Satır, 3) = ComboBox3
.Cells(Satır, 4) = ComboBox4
.Cells(Satır, 6) = (TextBox2.Value)
.Cells(Satır, 5) = ComboBox5
.Cells(Satır, Sütun) = CDbl(TextBox4.Value)
.Cells(Satır, 27) = ComboBox7
.Cells(Satır, 28) = Format(TextBox8, "dd.mm.yyyy")
.Cells(Satır, 31) = TextBox9
.Cells(Satır, 30) = TextBox14
.Cells(Satır, 29) = TextBox13
Set Bul = Nothing
Set Bul = .Rows("1:1").Find(ComboBox8)
Sütun = Bul.Column
.Cells(Satır, Sütun) = CDbl(TextBox15)
.Cells.EntireColumn.AutoFit
Set Bul = Nothing
End With
End Sub

Private Sub UserForm_Initialize()
ComboBox2.RowSource = "TANIMLAR!A2:A" & [TANIMLAR!A65536].End(3).Row
ComboBox3.RowSource = "TANIMLAR!B2:B" & [TANIMLAR!B65536].End(3).Row
ComboBox4.RowSource = "TANIMLAR!C2:C" & [TANIMLAR!C65536].End(3).Row
ComboBox5.RowSource = "TANIMLAR!D2" & [TANIMLAR!D65536].End(3).Row
ComboBox6.RowSource = "TANIMLAR!E2:E" & [TANIMLAR!E65536].End(3).Row
ComboBox7.RowSource = "TANIMLAR!F2:F" & [TANIMLAR!F65536].End(3).Row
ComboBox8.RowSource = "TANIMLAR!E2:E" & [TANIMLAR!E65536].End(3).Row
End Sub

 

[fedeal]

combobox8 boşsa sonradan eklediginiz satırları atlasın

Private Sub KAYDET_Click()
If ComboBox2.Value = "" Or ComboBox4.Value = "" Or ComboBox6.Value = "" Or TextBox4.Value = "" Then
MsgBox "EKSİK BİLGİ GİRİŞİ YAPTINIZ LÜTFEN KONTROL EDİN", vbInformation
Exit Sub
End If

With Sheets("GIRIS")
Satır = .Range("A65536").End(3).Row + 1
Set Bul = .Rows("1:1").Fin(ComboBox6)
Sütun = Bul.Column
.Cells(Satır, 1) = Format(TextBox1, "dd.mm.yyyy")
.Cells(Satır, 2) = ComboBox2
.Cells(Satır, 3) = ComboBox3
.Cells(Satır, 4) = ComboBox4
.Cells(Satır, 6) = (TextBox2.Value)
.Cells(Satır, 5) = ComboBox5
.Cells(Satır, Sütun) = CDbl(TextBox4.Value)
.Cells(Satır, 27) = ComboBox7
.Cells(Satır, 28) = Format(TextBox8, "dd.mm.yyyy")
.Cells(Satır, 31) = TextBox9
.Cells(Satır, 30) = TextBox14
.Cells(Satır, 29) = TextBox13
Set Bul = Nothing
End With

IF combobox8.value <> "" then
With Sheets("GIRIS")
Set Bul = .Rows("1:1").Find(ComboBox8)
Sütun = Bul.Column
.Cells(Satır, Sütun) = CDbl(TextBox15)
.Cells.EntireColumn.AutoFit
Set Bul = Nothing
End With
else
end if
End Sub

 

[bedri41]

Fedeal, yardımınız için teşekkür ederim. Ancak yazmış olduğunuz makroyu çalıştıramadım. Sorumu şu şekilde sorayım aşağıdaki makroya Combobox6 ve TextBox4 özelliklerinde çalışan aynı satıra yazacak ComboBox8 ve TextBox15 eklemek istiyorum. Yeni eklenen (Combox8 ve TextBox15) boşkende aynen aşağıdaki gibi çalışabilmeli.

With Sheets("GIRIS")
Satır = .Range("A65536").End(3).Row + 1
Set Bul = .Rows("1:1").Find(ComboBox6)
Sütun = Bul.Column
.Cells(Satır, 1) = Format(TextBox1, "dd.mm.yyyy")
.Cells(Satır, 2) = ComboBox2
.Cells(Satır, 3) = ComboBox3
.Cells(Satır, 4) = ComboBox4
.Cells(Satır, 6) = (TextBox2.Value)
.Cells(Satır, 5) = ComboBox5
.Cells(Satır, Sütun) = CDbl(TextBox4.Value)
.Cells(Satır, 27) = ComboBox7
.Cells(Satır, 28) = Format(TextBox8, "dd.mm.yyyy")
.Cells(Satır, 31) = TextBox9
.Cells(Satır, 29) = TextBox13
.Cells(Satır, 30) = TextBox14
.Cells.EntireColumn.AutoFit
Set Bul = Nothing
End With