Kasa Programı ve Raporlama

[ShodoW]

Merhabalar,


Tasarlamış olduğum kasa programında bir kaç yerde yardımlarınızı rica ediyorum.

1:Userformdaki(Kasa) Geri İleri Tuşlarının bir önceki ve bir sonraki tarihi vermesi.
2:Userformdaki(Kasa) O tarihteki tahsillerin toplamı ve ödemelerin toplamını yazması.(textbox4"Tahil toplamı";textbox5"Ödeme Toplamı")
3:Yazdır butonuna basılınca Çıkan Userforma girilen tarihlere göre yazdır sheetindeki forma göre hareketleri devirli olarak "Devralan" hareketleri yazdırmak için hazırlaması sadece ekrana çıkarsın ama yazdırmasın.
4:Yine dosyada bulunan "Ekstreler" Sheetinde Not düştüğüm gibi raporlama çıkarması.

Arkadaşlar bu konularda yardımcı olabilirseniz minnettar kalıcam formda çok dolaştım ama çözüme ulaşamadım şimdiden hepinize teşekkür ederim.
İyi Günler...

 

[ShodoW]

Ekli Dosya

Ekli Dosya.

 

[ShodoW]

Ekli Dosya

Sanırım biraz önce ekli dosya gelmemiş.

 

[ShodoW]

Yardımcı olabilecek bir arkadaş varmı acaba yüzdüm yüzdüm kuyruğuna geldim burda takıldım yol gösterirseniz çok sevinicem.

 

[fedeal]

1:Userformdaki(Kasa) Geri İleri Tuşlarının bir önceki ve bir sonraki tarihi vermesi.

1.sorunun cevabı benden olsun;

Private Sub Tarih_Geri2_Click()
[COLOR="Red"]If TextBox8.Text = " " Then[/COLOR]
TextBox8.Text = Date - 1
Exit Sub
End If
TextBox8.Text = CDate(TextBox8.Text) - 1
End Sub

Private Sub Tarih_İleri2_Click()
If TextBox8.Text = " " Then
TextBox8.Text = Date + 1
Exit Sub
End If
TextBox8.Text = CDate(TextBox8.Text) + 1
End Sub

yukarda dikkat etmenizi istedigim bir durum var kırmızı satırda " " işaretinin arası açık sebebi textboxda boşluk var(kod sayfasında yapmışsınız) ona göre yazdım eğer kod sayfasını açıp textboxdaki boşlugu silerseniz hata verecektir.

2:Userformdaki(Kasa) O tarihteki tahsillerin toplamı ve ödemelerin toplamını yazması.(textbox4"Tahil toplamı";textbox5"Ödeme Toplamı")

2.soruda benden;

Private Sub TextBox8_Change()
TextBox4.Text = WorksheetFunction.SumIf(Sheets("Hareketler").Range("b:b"), CDate(TextBox8), Sheets("Hareketler").Range("h:h"))
TextBox5.Text = WorksheetFunction.SumIf(Sheets("Hareketler").Range("b:b"), CDate(TextBox8), Sheets("Hareketler").Range("j:j"))
End Sub

iyi çalışmalar.

 

[ShodoW]

Tesekkürler

Teşekkür ederim fedeal hocam herzaman yardımıma koşuyorsun ellerine sağlık.

Nasıl hocam ilerleme kaydediyormuyum gördüğün ekskikliklerim varmı?

Boşluğu farketmemiştim düzelttim onu yanlız şöğle bir sorun çıktı ileri geri tuslerını kullandıgımda sorun yok ama tarihi seçmeye kalktığımda eğer aynı günde kayıt varsa aşağıda toplam alıcak ya ordaki formulde hata veriyor nedenini anlıyamadım.

Diğer 3. ve 4. sorularımada cevap verebilecek bir arkadaşımız varmı acaba baya bi ilerleme kaydettim.

 

[fedeal]

calendar nesnesinin çift tıklama olayındaki kodlar textbox nesnesini önce boşaltıp sonra tarihi yazıyor textbox boşalınca kod hata veriyor.

Private Sub Calendar1_DblClick()
[COLOR="red"]Controls("textbox" & TextBox6.Text).Text = ""[/COLOR]
Controls("textbox" & TextBox6.Text).Text = Format(Calendar1.Value, "dd.mm.yyyy")
Calendar1.Top = 1000
End Sub

Bunu hata verdiği anda textboxun boş oldugunu görerek anlayabilirdiniz. textbox8'in change olayına bir sorgu satırı ekleyerek sorunu çözeriz.

Private Sub TextBox8_Change()
[COLOR="Red"]If TextBox8.Text = "" Then Exit Sub[/COLOR]
TextBox4.Text = WorksheetFunction.SumIf(Sheets("Hareketler").Range("b:b"), CDate(TextBox8), Sheets("Hareketler").Range("h:h"))
TextBox5.Text = WorksheetFunction.SumIf(Sheets("Hareketler").Range("b:b"), CDate(TextBox8), Sheets("Hareketler").Range("j:j"))
End Sub

Nasıl hocam ilerleme kaydediyormuyum gördüğün ekskikliklerim varmı?

Çalışmanız gayet güzel ama bende sizin gibi bu sitede cok sey ögrendim ve ögrenmeye devam ediyorum sizle çok farklı seviyede sayılmayız. benim için yorum yapmak biraz ukalalık (aynı zamanda hocalarımıza ayıp) olabilir.
Saygılar.

 

[ShodoW]

.

O şekilde düşünerek söğlememiştim alınan hocalarımız olduyza kusuruma bakmasınlar düşüncesizlik yapmışım.

Bir sorunla karşılaştım küçük bir sorun ama çözemedim

nokta ve virgül olayı cari kartta ###.## bu şekilde carı kodunu kaydetmek ıstıyorum ama nokta yerine virgul olarak kaydedıyor ve yıne kasa kırısı ekranında kodu seçıp kayıt yaptıgımda hareketler kısmına virgul olarak gecıyor elle duzellttım sonra değiştir butonunu kullanarak yaptım ordada aynı sorun var.
ıkıncısı ıse tarih degıstır butonunu kullandıgımda hareketler sheetındekı tarıh bolumu bır karekter sola kayıyor hucrenın ıcınde ıkı tıklamayla duzelıyor format sorunu var sanırım format duzenlemelerıne baktım duzeltemedım bır seyı atlıyorum sanırım.

 

[ShodoW]

nokta ve virgül olayı cari kartta ###.## bu şekilde carı kodunu kaydetmek ıstıyorum ama nokta yerine virgul olarak kaydedıyor ve yıne kasa kırısı ekranında kodu seçıp kayıt yaptıgımda hareketler kısmına virgul olarak gecıyor elle duzellttım sonra değiştir butonunu kullanarak yaptım ordada aynı sorun var.
ıkıncısı ıse tarih degıstır butonunu kullandıgımda hareketler sheetındekı tarıh bolumu bır karekter sola kayıyor hucrenın ıcınde ıkı tıklamayla duzelıyor format sorunu var sanırım format duzenlemelerıne baktım duzeltemedım bır seyı atlıyorum sanırım.

Bu konuda yardımcı olabılıcek bırı varmı user formda (kasa girişlerinde ve carı kart eklemesınde) ###.## olarak gırmek ıstıyorum baska bı sekıldede gırılırse ornek ##,### yada ###,## kabul etmesın gırıs ıznı vermesın bunu nasıl yapabılırım.

 

[fedeal]

Sanırım hücrenin sayı formatından kaynaklanıyor.

Exit Sub
End If
'Kaydetme
Ekle = Range("A65536").End(3).Row + 1
[COLOR="Red"]Cells(Ekle, "a").NumberFormat = "@"[/COLOR]
Cells(Ekle, "a") = KOD.Value

ilgili aralıga kırmızı satırı ilave edin.

 

[fedeal]

2.soruyu yeni farkettim

Private Sub KOD_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If KOD.Value = "" Then Exit Sub
If Len(KOD) < 6 Or Len(KOD) > 6 Then
MsgBox "CARİ KOD ###.## FORMATINDA YAZILMALI"
KOD.Value = ""
End If
If Mid(KOD, 4, 1) = "." Then
Else
MsgBox "CARİ KOD ###.## FORMATINDA YAZILMALI"
KOD.Value = ""
End If
End Sub

kod textboxu 6 karakterden az yada çok olursa 4.karakter "." olmazsa siler.

 

[ShodoW]

Eline sağlık

Eline saglık guzel oldu sımdı raporlama ve bı kac eksık kaldı raporlamayıda cozebılırsem tam olucak.

 

[ShodoW]

SORU

Merhaba arkadaşlar,
Fedeal arkadaşımızın yardımlarıyla baya bı yol katettim raporlama kısmına geçmeden önce iki sorum daha olucak bunların nasıl yapıldğını bana gösterebilirmisiniz yorum yaparak ilerlemek istiyorum.

1: Userform(kasa) Üzerindeki Carı Kodu girdiğimde Cari Ünvanın gelmesi yada Car Ünvanı girdiğimde Cari KOdun gelmesini istiyorum nasıl hareket etmem lazımki yani adım adım neleri düşünmem lazımki bunu yapabiliyim.

2: Kaydederken boş textboxlar,comboboxlar olduğunda boş geçilmemesini yapabiliyorum ama şöğle bir şey daha yapmak istedim
combobox5 veya combobox6 herhangibiri boş ise Parabirimini Giriniz diyip kaydetmemesini istiyorum.

If ComboBox5.Text or combobox6.text = "" Then
MsgBox "Lütfen -Para Birimi- bilgisini giriniz !", vbExclamation, "Eksik Bilgi Girişi"
TextBox6.SetFocus

Bögle birşey denedim ama tabiki çalışmadı.

Yardımcı olabilirmisiniz.

 

[fedeal]

kodun çalışmama nedeni

If ComboBox5.Text="" or combobox6.text = "" Then
MsgBox "Lütfen -Para Birimi- bilgisini giriniz !", vbExclamation, "Eksik Bilgi Girişi"
TextBox6.SetFocus
exit sub
end if

eksik olan satırlar olabilir.

 

[ShodoW]

kodun çalışmama nedeni


eksik olan satırlar olabilir.

Bu Formulde combobox5 ve combobox6 yı gırmemı ıstıyor benım ıstedıgım ıkısınden bırı gırılmısse dıgerını sormasın.

 

[fedeal]

Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
if combobox2.text="" then exit sub
Set ara = Sheets("CariKayıt").Range("a:a").Find(ComboBox2)
If Not ara Is Nothing Then
ComboBox3.Text = Sheets("CariKayıt").Cells(ara.Row, 2).Value
End If
End Sub

Private Sub ComboBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
if combobox3.text="" then exit sub
Set ara = Sheets("CariKayıt").Range("b:b").Find(ComboBox3)
If Not ara Is Nothing Then
ComboBox2.Text = Sheets("CariKayıt").Cells(ara.Row, 1).Value
End If
End Sub

find fonksiyonuyla istediğiniz olur gibi
burda açıklama isterseniz kodlar malum bul kodu önemli olan komut exit olayına yazmamızın sebebi change olayına yazsaydık combobox2ye değer girince combobox3 sayfadan seçilecekti combobox3 değişince tekrar combobox2 sayfadan seçilecekti böylece döngü olacaktı. combobox2 de değer seçip enter tuşuna basın

 

[fedeal]

ozaman and kullanın

If ComboBox5.Text="" and combobox6.text = "" Then
MsgBox "Lütfen -Para Birimi- bilgisini giriniz !", vbExclamation, "Eksik Bilgi Girişi"
TextBox6.SetFocus
exit sub
end if

 

[ShodoW]

1.soru

Merhaba arkadaşlar,
Fedeal arkadaşımızın yardımlarıyla baya bı yol katettim raporlama kısmına geçmeden önce iki sorum daha olucak bunların nasıl yapıldğını bana gösterebilirmisiniz yorum yaparak ilerlemek istiyorum.

1: Userform(kasa) Üzerindeki Carı Kodu girdiğimde Cari Ünvanın gelmesi yada Car Ünvanı girdiğimde Cari KOdun gelmesini istiyorum nasıl hareket etmem lazımki yani adım adım neleri düşünmem lazımki bunu yapabiliyim.

.

2.sorunu fedeal arkadaşımın yarımıyla çözdüm teşekkür ederim 1.konu hakkında yardımcı olabilcek bir arkadaş varmı acaba diğer soruları çözdüm bu kaldı sonra raporlamaya geçicek.Şimdiden teşekkür ederim.

 

[ShodoW]

Arkadaslar yardımlarınızı rica ediyorum yol gösterebilirmisiniz.

 

[fedeal]

1. soru için 16. mesajdaki cevabı denedinizmi?