UserForm | Sil , Yazdır , Kaydet , Raporla , Topla

Ömer BARAN' Alıntı:

Sayın @vvebtasarim .

Aceleye mahal yok, belgenizdeki tüm eksiklikleri/sorunları sıralayınca bazı forumdaşlar konuyla ilgilenmemeyi tercih edebilirler.
Bence eksiklikleri/sorunları adım adım tek tek yazarsanız daha hızlı yol alınabilir.

Aslında forum mantığı açısından bakılırsa doğru yöntem; bir belgedeki tüm sorunları çözmeye yönelik değil,
işlem bazında konu açılıp soru sorulmasıdır.
Böylece diğer forumdaşlar da benzer işlem sorunlarıyla karılaşıp forumda arama yaptıklarında
konu başlığı dahil sorunuyla ilgili benzer içerikleri bulabilirler.

Örneğin UserForm Combobox'taki seçime göre sütundaki kritere göre toplamları TextBoxlarda gösterme diyerek
tek bir konu açsaydınız o kısım tam olarak bitmiş olurdu ve bir sonraki soruna geçerek yeni bbir konu açardınız.

Herneyse konu açılmış ve sorular dizisi ortada.

Ben şimdi KasaHareketleri Comboboxuna ilişkin olarak (Listbox'taki seçimde bu işlem olmasın koşuluyla) cevap yazayım.

Madem Listbox'taki seçim değişikliğinde soldaki TextBox'lar işlem görmeyecek, mevcut kodlarda yer alan
Kasahareketleri userformunun kod bölümündeki Private Sub lsthesaplisteleme_Click() kod blokunu tamamen silin.
Zira Listbox kodarında, soldaki TextBoxlar dışında herhangi bir işlem kodu yok ve siz bunu istemiyorsunuz.

Combobox'a gelince; cbkasaadi_Change() kod blokunda, aşağıda yeşil renklendirdiğim satırı ilgili yere ekleyin.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)

.

Genişletmek için tıklayın ...

Hepsini birkisi yapsin demedim zaten ben eksikleri yapamadiklarimi yazdim kim hsngisini yapabilirse yardimci olursa tsk ettim.
Benim icin acil islem o yuzden acele ediyorum birkac eksigi kaldi o yuzden tamamlayip veri girislerini yapmam gerekiyor. Dedigim gibi tum eksikleri biri oturup yapsin diye beklemiyorum tabiki kim musait ise hangi konuda yardimci olabilecek ise o yardimci olursa sevinirim. Benim vba bilgim hic yok sadece konulara bakarak bu uygulamayi yaptim o yuzdende eksiklerim var.

Destek olacak kişinin 1 kişi olmasıyla ilgili değildi benim yazdığım.

Üyelerimizin, üzerinde çalıştıkları bir belgeyi ekleyip, ardından da işlem türü ayrımı olmaksızın belgelerindeki sorunlar için
bir liste yapıp bunların tümünün çözümü için tek bir konu açmasının forum mantığıyla bağdaşmadığını yazmaya çalışmıştım.
Böyle konu açılınca durum, forum sorusu değil, bir üyenin kullanacağı belgedeki sorunların giderilmesi çalışması oluyor.
Kaldı ki; bu tür istekler için de forumumuzun özel bir bölümü var. O da; forum sayfalarının üst orta kısmındaki Destek Talebi bölümüdür.

Örnek vereyim;
Combobox'ta seçim değiştiğinde, şu koşula göre sayfadaki şu sütunların toplamını/farkını aldıramadım
gibi bir konu elbette açılır (konu başlığı da bu durumla ilgili olur) ve çözüm bulunduğunda da konu cevaplara kapatılır.

Ardından aynı begedeki Kasa adı güncelleme formundaki durumla ilgili yeni bir konu açıllır ve
ismin güncellenmesini sağlıyorum ama bu değişiklik Listoxa yansımıyor denilir (bu durumu özetleyen bir konu başlığı kullanılır).
Bu kez bu sorunun çözümü bulunur ve bu konu cevaplara kapatılır.

Böylece belgenin işleyişiyle ilgili tasarlanan akış senaryosuna göre adım adım konular açılarak sorunlar çözülür,
belge sahibi bu çözümleri belgesine adım adım uygular.

Diğer forumdaşlar da herbir konu ile ilgili olarak kendilerinin ihtiyaçları olduğunda forumda arama yaptığında
Listbox güncelleme konusunu bulur ve buradaki cevaplardan yararlanma imkanı bulur. vs.vs.


Ayrıca; alıntıladığınız bundan önceki cevabımın sonucunu da yazmadığınızı hatırlatayım.

.

bahsettiğin kodu ekledim diğer taraftakini sildim hata verdi bu sefer.
@Ömer BARAN

Ekran görüntüsünü verdiğiniz hata ile, benim verdiğim çözüm önerisi arasında bir bağlantı yok.
ColumnWidth sütun genişliği ve olayın bununla bir bağlantısı yok.
İki önceki cevapta verdiğim çözüm önerisinin uygulandığı belge ekte.

Ömer BARAN' Alıntı:

Ekran görüntüsünü verdiğiniz hata ile, benim verdiğim çözüm önerisi arasında bir bağlantı yok.
ColumnWidth sütun genişliği ve olayın bununla bir bağlantısı yok.
İki önceki cevapta verdiğim çözüm önerisinin uygulandığı belge ekte.

Genişletmek için tıklayın ...

Valla hocam bahsettiklerinizi yazdım başka brişey yapmadım açtım Private Sub lsthesaplisteleme_Click() burdaki kodları sildim
cbkasaadi_Change() burdaki alanada
deg1 = 0: deg2 = 0 bunu ekledim sonra girdim o hatayı verdi belki ben beceremedim .

şimdi biz ne yapmış olduk onu ben anlamadım tam olarak ? kasa seçip göster dediğimizde yeri mi ayarladık ? yoksa başka alanı mı ?
kasa ismi seçtiğimde veriler geliyor göster e basmadan orda değişiklik yok ..
başka yeri ayarladıysak ben göremedim daha

İşlemin, Combobox'tan seçim yapıldığında değil, GÖSTER düğmesiyle yapılmasını istiyorsunuz anlaşılan.
Bu duruma göre düzenlenmiş dosya ekte.
Combobox'tan seçim yapıldığında/seçim değiştirildiğinde sol alttaki TextBoxlar boşaltılır.
Seçim sonrasında düğmeye tıklandığında sol alttaki textboxlarda, seçilen kasa adına ve para cinslerine göre bakiyeler görüntülenir.

Bir de not: Mevcut UserForm'daki GÖSTER düğmesinin altında, bir tane daha düğme olduğunun farkındasınızdır umarım.
VBA ekranında mevcut düğmeyi fareyle tutup yerini değiştirirseniz altta kalan diğer düğmeyi görebilirsiniz.

.

@Ömer BARAN hocam elinize sağlık ama benim kastettiğim o değildi dediğim gibi anlatım konusunda iyi değilim.
dosya isimlerini yazarak anlatmayı deniyeyim.
frmhesaphareketleri userformdaki lsthesaplisteleme alanına gelecek veriler
cbkasaadi alanına isim seçtiğimizde ve göster dediğimizde lsthesaplisteleme alanında kişinin yapmış olduğu hareketler listelenecek
alt kısımdaki fbakiyeler alanıda yapmış olduğunuz ayarlar kalabilir güzel olmuş yani kişinin hareketleri listelenince bakiyesinide fbakiyeler
alanından görebilir son durumunu. tekrar elinize sağlık

frmhesaphareketleri userform alanında kalan eksiklerim

btnbugun ( Bugünü Listele ) Buraya tıkladığında günün tarihindeki yapılan tüm işlemleri listeleyecek.
btnyazdir ( Yazdır ) Buraya tıklandığında lsthesaplisteleme alanında görünen kısmı yazdıracak. ( 3 Listeleme Şekli var. 1 Listeleme Kasa Adı seçip Göster Dediğinde
2.listeleme Tümünü listele dediğinde 3.Listeleme ise bugünü listele seçeneği. bu 3 listeleme yapıldığında ekrana veriler gelecek ekranda hangi veri seçili ise onu yazdıracak.)
btnpdfkaydet (Pdf Kaydet ) Yazdır seçeneği ile aynı mantık sadece pdf kaydedecek yazdırmayacak.
ve Kasa Bakiyeler (frmbakiyerapor) sayfası
@Feyzullah hocamda yardımcı olursa inşAllah bitecek.
Herkesin eline sağlık ..

@Feyzullah hocam ne yaptınız musait olabildiniz mi acaba ?

vvebtasarim' Alıntı:

@Feyzullah hocam ne yaptınız musait olabildiniz mi acaba ?

Genişletmek için tıklayın ...

26.Mesajda Sayın @Ömer BARAN hocamın eklemiş olduğu dosyanın üzerine ek olarak aşağıdaki işlemler yapılmıştır.

-KASA BAKİYE RAPORU Formunda (Kasa Bakiyeler (frmbakiyerapor) ) ADO kodu kullanarak; "Raporla" butonu hariç (bunun amacını anlamadım) tüm işlevler çalışıyor. Kasa Adı seçtğinizde listeleme yapıyor, Para birimine göre listeleme yapıyor, sıfır olmayan bakiyeleri getir-getirme aktif ve alt taraftaki Para birimi textboxlar çalışıyor. Yazdırma kodunu direk yazmadım siz "PrintOut" olarak değiştirirsiniz. Kasa_Bakiyeler sayfasının baskı önizlemesini siz bir defaya mahsus ayarlayacaksınız,

-KASA HESAP HAREKETLERİ Formunda PDF kaydet çalışıyor, Yazırma butonu aktif (sayfanın baskı önizlemesini ayarlayın) Direk çıktı almak için "PrintOut" kodunu kullanın. Büğünü Listele çalışıyor, Tümünü listele kodları değiştirildi,

Önemli KASA BAKİYE RAPORU sağlıklı çalışması için: Kasa Giriş Formunda Çıkış sütüna 0 (sıfır) yazması kodu eklendi, Kasa Çıkış Formunda Giriş sütüna 0 (sıfır) yazması kodu eklendi.

@Feyzullah hocam öncelikle elinize sağlık
ID kısmına takıldım ..
Kasa İsimleri ID ile kayıt yapılıyor ve Kasa Yönetimi Sayfasına Kayıt Yapıyor sonuç olarak seçilen isim de oradan seçiliyor o sayfadaki isim değiştiğinde
diğer sayfalardaki de değişmesi gerekmiyor mu veriyi sonuçta o sayfadan alıyor Tek tek tüm sayfalara ID eklemek sıkıntı formüllerin hepsi bozulur tüm emekler boşa gider , en kolay şekilde nasıl yapabiliriz.

vvebtasarim' Alıntı:

@Feyzullah hocam öncelikle elinize sağlık
ID kısmına takıldım ..
Kasa İsimleri ID ile kayıt yapılıyor ve Kasa Yönetimi Sayfasına Kayıt Yapıyor sonuç olarak seçilen isim de oradan seçiliyor o sayfadaki isim değiştiğinde
diğer sayfalardaki de değişmesi gerekmiyor mu veriyi sonuçta o sayfadan alıyor Tek tek tüm sayfalara ID eklemek sıkıntı formüllerin hepsi bozulur tüm emekler boşa gider , en kolay şekilde nasıl yapabiliriz.

Genişletmek için tıklayın ...

sağdaki en son sütuna eklenebilir.

MESKO' Alıntı:

sağdaki en son sütuna eklenebilir.

Genişletmek için tıklayın ...

Denedim olmadi maalesef bozuldu calisma dosyasi.

Selam ;
@Feyzullah , @Ömer BARAN veya yardımcı olabilecek diğer arkadaslar ;
ID İşlemi sıkıntılı olacağından o bölümü kaldırmak daha kolay oldu. Kalan işlemleri aşağıya yazdım yardımınızı bekliyorum. Hayırlı Günler ..


Raporla butonunun şuan için hiçbir fonksiyonu yok boş duruyor orda onun aslında amacı isim seçip raporla butonuna bastığımızda alt ksıımda listeleme yapmasıydı
yada para birimi seçip raporla dediğimizde listeleme yapmasıydı. ama şuan isim seçildiğinde otomatik listeliyor butona basmadan. Raporla Butonuna bağlayabilirsek çok güzel olur, İsim seçeceğim ve raporla dediğimde veriler gelecek yada isim seçmediğimde raporla dediğimde bütün veriler gelecek. bağlanmıyorsa mecburen butonu kaldıracağım.

Kendinize uyarlayınız yada dosyanızı ekleyiniz bakalım.
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then
MsgBox "Bilgi Girmediniz." & vbCrLf & "Kayıt İşlemi Yapılamaz.", vbInformation, "SAT'S Bilgi."
Exit Sub
End If

MESKO' Alıntı:

Kendinize uyarlayınız yada dosyanızı ekleyiniz bakalım.
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then
MsgBox "Bilgi Girmediniz." & vbCrLf & "Kayıt İşlemi Yapılamaz.", vbInformation, "SAT'S Bilgi."
Exit Sub
End If

Genişletmek için tıklayın ...

Dosya yukarda var diye eklememiştim.

Dosya ektedir.

Son birkaç eksik hayırlısı ile bitecek inşAllah.

vvebtasarim' Alıntı:

Dosya yukarda var diye eklememiştim.

Dosya ektedir.

Son birkaç eksik hayırlısı ile bitecek inşAllah.

Genişletmek için tıklayın ...

Boş iken kayıt yapmama özelliği eklendi.
Diğer eksiklere geniş zamanda bakmaya çalışırım diğer forumdaşlar tamamlamaz iseler.

MESKO' Alıntı:

Boş iken kayıt yapmama özelliği eklendi.
Diğer eksiklere geniş zamanda bakmaya çalışırım diğer forumdaşlar tamamlamaz iseler.

Genişletmek için tıklayın ...

Eline sağlık Hocam ;
Tamamlayacaklarını sanmıyorum

Bayadır duruyor ilgilenen olmadı @Ömer BARAN ve @Feyzullah hocam haricinde , onlarda yoğunlar bir yandan forum ile ilgilenmeleri diğer yandan üyelerin istekleri sağolsunlar ellerinden geleni yapıyorlar. Hele Ömer Hocamın Maşallahı var forum konularının % 80 ninde mesajı var

Neyse hocam bekliyorum inşAllah müsait bir zamanda hallderseniz sevinirim. Tekrar elinize sağlık.

Bir hata farkettim tüm işlemleri sildiğimde böyle birşey çıktı bunada bakabilirsen sevinirim. @MESKO

Kayıt girdiğimde düzeliyor ama boş iken kayma yapıyor

vvebtasarim' Alıntı:

Eline sağlık Hocam ;
Tamamlayacaklarını sanmıyorum

Bayadır duruyor ilgilenen olmadı @Ömer BARAN ve @Feyzullah hocam haricinde , onlarda yoğunlar bir yandan forum ile ilgilenmeleri diğer yandan üyelerin istekleri sağolsunlar ellerinden geleni yapıyorlar. Hele Ömer Hocamın Maşallahı var forum konularının % 80 ninde mesajı var

Neyse hocam bekliyorum inşAllah müsait bir zamanda hallderseniz sevinirim. Tekrar elinize sağlık.

Genişletmek için tıklayın ...

Ömer ve Feyzullah üstadlarımızdan öğrendiklerim ile Kasa Bakiyeler kısmında ufak tefek düzeltmeler yaptım. Kanımca işinizi görür.

Benim Ofis 2003 olduğu için; sumifs bende çalışmıyor H3 , I3 , J3 teki formülleri H2 , I2 , J2 kopyalarsınız. İlerde revize ederim.

İşlem Kasa ve Para Birimi combobox'larından raporlama yaptıktan sonra Tümünü Raporla butonu kullanınız.

sumifs bende çalışmıyor H3 , I3 , J3 teki formülleri H2 , I2 , J2 kopyalarsınız. İlerde revize ederim.
burayı anlamadım ?
İşlem Kasa ve Para Birimi combobox'larından raporlama yaptıktan sonra Tümünü Raporla butonu kullanınız.
Ben raporla butonunu combobox ta isim seçip raporlaya bastığımızda lstlistele listbox a veriler gelsin istiyorum aslında ama o şekilde yapılmadı isim seçince direk
alt kısıma veriler geliyor buton devre dışı kaldı yani o amaçla yapmıştım onu ?