kemal turan
Altın Üye
- Katılım
- 10 Haziran 2011
- Mesajlar
- 1,666
- Excel Vers. ve Dili
- Excel 2010 32 bit
- Altın Üyelik Bitiş Tarihi
- 06-10-2032
Merhabalar,
Aşağıdaki SATISNOKAYDET kod bağımsız olarak bir modüle konulup bir buton tetiklemesi ile çalışıyor.
Yaptığı iş satıs userform'unun textbox4 değeri "isim soyisim") p sutununda var ise aynı zamanda p sutunundan 5 sutun ilerisindeki "U" sutunu 0 ise
"U" sutununa yeni satış numarasını giriyor.
Bu kodu SATISVERIKAYDET genel kaydet kodlarının arasına gerek call komutu ile gerekse direk koyduğumda çalışmıyor.
Örnek dosya biraz karışık olduğu için koymadım kusura bakmayın.
Çok ilişkili bir dosya çünkü
Yardımcı olacak ustalara anydesk ile bağlanıp gösterebilirim. Çok emek verdiğim bir proğram. burda tıkandım.
0544 546 22 23
Teşekkür ederim.
Aşağıdaki SATISNOKAYDET kod bağımsız olarak bir modüle konulup bir buton tetiklemesi ile çalışıyor.
Yaptığı iş satıs userform'unun textbox4 değeri "isim soyisim") p sutununda var ise aynı zamanda p sutunundan 5 sutun ilerisindeki "U" sutunu 0 ise
"U" sutununa yeni satış numarasını giriyor.
Kod:
Sub SATISNOKAYDET()
Set S5 = Sheets("SATISVERI")
Dim bul As Range
For Each bul In S5.Range("p2:p" & S5.Range("p65536").End(3).Row)
If bul.Text = satıs.TextBox4.Text And bul.Offset(0, 5).Value = 0 Then
bul.Offset(0, 5).Value = satıs.TextBox2.Value
End If
Next bul
End SubÖrnek dosya biraz karışık olduğu için koymadım kusura bakmayın.
Çok ilişkili bir dosya çünkü
Yardımcı olacak ustalara anydesk ile bağlanıp gösterebilirim. Çok emek verdiğim bir proğram. burda tıkandım.
0544 546 22 23
Teşekkür ederim.
Kod:
Sub SATISVERIKAYDET()
On Error Resume Next
Application.ScreenUpdating = False
mukkontrol
If TextBox2.Value = "" Then
MsgBox "Satış No Giriniz..", , "By Kemal Turan"
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox "Müşteri Seçimini Yapmadınız.", , "By Kemal Turan"
Exit Sub
End If
If TextBox6.Value = 0 Then
MsgBox "Liste Tutarını Giriniz", , "By Kemal Turan"
Exit Sub
End If
If TextBox7.Value = 0 Then
MsgBox "Net Satış Tutarını Giriniz.", , "By Kemal Turan"
Exit Sub
End If
If TextBox47.Value = "" Then
MsgBox "Satınalma Tutarını Giriniz.", , "By Kemal Turan"
Exit Sub
End If
If ComboBox2.Value = "" Then
MsgBox "Satış Temsilcisini giriniz.", , "By Kemal Turan"
Exit Sub
End If
If ComboBox1.Value = "" Then
MsgBox "Satış Türünü giriniz.", , "By Kemal Turan"
Exit Sub
End If
If ComboBox3.Value = "" Then
MsgBox "Sevkiyat Türünü giriniz.", , "By Kemal Turan"
Exit Sub
End If
If ComboBox3.Value = "TARİHİ KESİN SEVK" And TextBox9.Value = "" Then
MsgBox "Kesin Sevk Tarihini Giriniz.", , "By Kemal Turan"
Exit Sub
End If
If TextBox52.Value <> 0 Then
MsgBox "Satış Peşinatı Veya Taksitlendirme Hatalı..", , "By Kemal Turan"
Exit Sub
End If
Set S5 = Sheets("SATISVERI")
Set S1 = Sheets("SATISLAR")
sonsatır = S1.Range("A65536").End(xlUp).Row + 1
S1.Cells(sonsatır, 1) = WorksheetFunction.Max(S1.[a2:a50000]) + 1
S1.Cells(sonsatır, 2) = Format(CLng(CDate(satıs.TextBox1.Value))) 'SATIŞ TARİHİ
S1.Cells(sonsatır, 3) = Format(CDate(satıs.TextBox1.Value), "MMMM")
S1.Cells(sonsatır, 4) = Format(CDate(satıs.TextBox1.Value), "YYYY")
S1.Cells(sonsatır, 5) = satıs.TextBox2.Value 'SATIS NO
S1.Cells(sonsatır, 6) = satıs.ComboBox1.Value 'SATIS TÜRÜ
S1.Cells(sonsatır, 7) = satıs.TextBox3.Value 'CARİ NO
S1.Cells(sonsatır, 8) = satıs.TextBox4.Value 'CARİ ADI
S1.Cells(sonsatır, 9) = Format(satıs.TextBox5, "(0) ### ### ## ##") 'TLF NO
S1.Cells(sonsatır, 10) = Format(CLng(CDbl(satıs.TextBox6.Value))) * 1 'LİSTE TUTARI
S1.Cells(sonsatır, 11) = Format(CLng(CDbl(satıs.TextBox7.Value))) * 1 'NET TUTAR
S1.Cells(sonsatır, 12) = Format(CLng(CDbl(satıs.TextBox48.Value))) * 1 'İSKONTO TUTAR
S1.Cells(sonsatır, 13) = Format(CDbl(satıs.TextBox8.Value), "0.00") * 1 'İSKONTO YÜZDE
S1.Cells(sonsatır, 14) = Format(CLng(CDbl(satıs.TextBox47.Value))) * 1 'TOPTAN ALIŞ FİYATI
S1.Cells(sonsatır, 15) = Format(CLng(CDbl(satıs.TextBox49.Value))) * 1 'BRÜT KAR
S1.Cells(sonsatır, 16) = satıs.ComboBox2.Value 'PERSONEL ADI
S1.Cells(sonsatır, 17) = satıs.ComboBox3.Value 'TASLİMAT TÜRÜ
If TextBox9.Value <> "" Then
S1.Cells(sonsatır, 18) = Format(CLng(CDate(satıs.TextBox9.Value))) 'SEVK TARİHİ
End If
S1.Cells(sonsatır, 19) = Sheets("TANIMLAR").Range("F1").Value 'SEVK TARİHİ
If TextBox51.Value > 0 Then
ACIKHESAPTAKSITKAYIT
End If
If TextBox16.Value > 0 Then
NAKITSATISPESINATALACAKKAYIT
End If
If TextBox16.Value > 0 Then
Call SATISPESINATKAYITNAKIT
End If
'''''''''''''''''''''''''''''''''''''''''''''''''
If TextBox17.Value > 0 Then
Call KKARTSATISPESINATALACAKKAYIT
End If
If TextBox17.Value > 0 Then
Call SATISPESINATKAYITKKARTI
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
If TextBox18.Value > 0 Then
Call EFTSATISPESINATALACAKKAYIT
End If
If TextBox18.Value > 0 Then
Call SATISPESINATKAYITEFT
End If
ThisWorkbook.Save
Call hesap
ActiveWorkbook.Save
satısgunluk.SATISGETIR
MsgBox "Satış Kayıt İşlemi Tamam", vbInformation, "VBA KT YAZILIM"
Unload satıs
Unload satıscarıtoplam
End Sub
