Çözüldü Ciro sayfasında Nakit ve Kredi kartlarını hücrelere toplatamıyorum

[Erkan Gegez]

Arkadaşlar merhaba,
User formda Nakit toplamı ve kredi kertı toplamı var.Bu bilgileri CİRO sayfasındaki E2 ve F2 hücrelerinden alması lazım, fakat
satışları yapınca bu hücrelerde bunların toplamını alması lazım fakar ilk iki miktarı topluyor gerisini toplamıyor.Diğer açıklamalar formda mevcuttur.
Teşekkür ederim ilgilenecek arkadaşlara.Bir de VBA kodlama ile ilgili giriş seviyesinde kaynak önerirseniz sevinirim...
Dosya açılınca excel sayfasına ulaşmak için sağ üst deki X işaretine tıklatabilirsiniz...

 

[işsiz123]

Arkadaşlar merhaba,
User formda Nakit toplamı ve kredi kertı toplamı var.Bu bilgileri CİRO sayfasındaki E2 ve F2 hücrelerinden alması lazım, fakat
satışları yapınca bu hücrelerde bunların toplamını alması lazım fakar ilk iki miktarı topluyor gerisini toplamıyor.Diğer açıklamalar formda mevcuttur.
Teşekkür ederim ilgilenecek arkadaşlara.Bir de VBA kodlama ile ilgili giriş seviyesinde kaynak önerirseniz sevinirim...
Dosya açılınca excel sayfasına ulaşmak için sağ üst deki X işaretine tıklatabilirsiniz...

Merhaba,
Dosyanız ektedir.

 

[Erkan Gegez]

Merhabaa,
** Nakit Tahsilata basıp ödenen kısmına sıfır girip öde dediğimde ödemeyi yapıp
ciro sayfasına "N" yazıp tutarıda yazıyor sanki paranın tamamı ödenmiş gibi...
**Ana menüden satış yap dedim, fakat stok girmeden Kredi Kartına bastım
Tahsil et deyince ,Tutar girilmediği için ödeme alınmadı uyarısı geldi.
Kapat'a tıklatınca ödeme yapıldı deyip "N" yazılan yere 0 Toplam kısmına da "K"
yazıyor...
**Bir de Nakit Toplamı ile ,Kredi Kartı Toplamının sonunda TL yazdıramadım..

 

[işsiz123]

Merhabaa,
** Nakit Tahsilata basıp ödenen kısmına sıfır girip öde dediğimde ödemeyi yapıp
ciro sayfasına "N" yazıp tutarıda yazıyor sanki paranın tamamı ödenmiş gibi...
**Ana menüden satış yap dedim, fakat stok girmeden Kredi Kartına bastım
Tahsil et deyince ,Tutar girilmediği için ödeme alınmadı uyarısı geldi.
Kapat'a tıklatınca ödeme yapıldı deyip "N" yazılan yere 0 Toplam kısmına da "K"
yazıyor...
**Bir de Nakit Toplamı ile ,Kredi Kartı Toplamının sonunda TL yazdıramadım..

Dosyanız ekte

 

[Erkan Gegez]

Çok teşekkür ederim ellerinize sağlık.
Ben bu işe çok yeni başladım.Kodlamayı öğrenmeye çalışıyorum.Benim yararlanabileceğim kaynak döküman yada kitap
ne tavsiye edersiz,bilgilendirebilirseniz çok sevinirim.
iyi çalışmalar dilerim...

 

[işsiz123]

Çok teşekkür ederim ellerinize sağlık.
Ben bu işe çok yeni başladım.Kodlamayı öğrenmeye çalışıyorum.Benim yararlanabileceğim kaynak döküman yada kitap
ne tavsiye edersiz,bilgilendirebilirseniz çok sevinirim.
iyi çalışmalar dilerim...

Rica Ederim. İyi Çalışmlar
Excel ile ilgili forum ve youtube den yararlanarak ögrenebilirsiniz.
Android için bir çok kod ve formülün bulunduğu uygulama :

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

 

[Erkan Gegez]

bir de hiç bir şey yapmadan 2 defa enter e basınca hata veriyor...

 

[Refaz]

bir de hiç bir şey yapmadan 2 defa enter e basınca hata veriyor...

Private Sub txtMiktar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) kodundaki If KeyCode = 13 Then bunun altına alttaki kodu girin sonra miktar girmelisiniz hata vermemesi için tekrar.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Daha doğrusu ilgili kodu alttaki gibi değiştirin tabii başka hatalarda verbilir bunun için eğer boşsa şunu yap gibi kodlar ekleyebilirsiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Erkan Gegez]

Programı açıp hiçbirşeye dokunmadan enter e bir kere basınca altta 0,00
yazıyor 2. kere enter yapınca hata vermeye devam ediror..

 

[Erkan Gegez]

Çok teşekkür ederim...

 

[Refaz]

Rica ederide neden 9.mesajdakini uygulamadınız?
Onu uygulayın ve alttaki txtFiyat.Value = Format(Sheets("STOK").Range("F" & x).Value, "#,##0.00") kodunu altına alttakini ekleyin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Benden bu kadar.Hata yada hatalar devam edebilir kodlar düzenlenmesi gerek bence kolay gelsin.

 

[Erkan Gegez]

Teşekürler yardımınız için...