- Katılım
- 3 Nisan 2008
- Mesajlar
- 777
- Excel Vers. ve Dili
- Office 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 04-11-2020
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
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