şartlı kayıtta problem

Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
Herkese Merhaba...
Aşağıdaki kodlarda yaşadığım problemi kendime uyrlayamadım.Yapmak istediğim şu ;
Eğer combobox 2 de satış ve alıştan iadeler yazılıysa son veriyi 19 sütuna yok eğer alış ve satıştan iadeler yazılıysa 20. kaydetmeli.Bu sorunu çözmeme yardım ederseniz çok sevinirim...


Private Sub CommandButton4_Click()
sor = MsgBox("CARİ HESABA EKLEMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ?", vbYesNo)
If sor = vbNo Then Exit Sub
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Select
If TextBox5.Text = "" Then
MsgBox "MÜKERRER STOK KODU!!!KONTROL EDİNİZ..."
TextBox5.SetFocus
Exit Sub
End If
If TextBox6.Text = "" Then
MsgBox "BİRİM TÜRÜNÜ SEÇİNİZ!!!"
TextBox5.SetFocus
Exit Sub
End If
dene = Range("a1").CurrentRegion.Rows.Count
For i = 1 To dene
If Range("a" & i) = TextBox5.Text Then
MsgBox "MÜKERRER KAYIT !!! LÜTFEN STOK KODUNU KONTROL EDİNİZ..."

Exit Sub
End If
Next

dene = dene + 1
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 1) = TextBox3.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 2) = TextBox4.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 3) = TextBox5.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 4) = ComboBox1.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 5) = ComboBox2.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 6) = ComboBox3.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 7) = ComboBox4.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 8) = TextBox22.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 9) = TextBox21.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 10) = TextBox6.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 11) = TextBox15.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 12) = TextBox7.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 13) = TextBox8.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 14) =ComboBox8.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 15) = TextBox16.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 16) = TextBox17.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 17) = TextBox18.Value
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 18) = TextBox19.Value
Exit Sub
End
If ComboBox2 = "SATIŞ" Then
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 19) = TextBox20.Value
MsgBox "KAYIT TAMAMLANDI..."
Exit Sub
End If
If ComboBox2 = "ALIŞ" Then
Sheets("CARİ HESAP GİRİŞ ÇIKIŞI").Cells(dene, 20) = TextBox20.Value
MsgBox "KAYIT TAMAMLANDI..."
End Sub
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
Farklı yöntemler denedim ama hala bulamadım.
 
Üst