Listboxda toplam

[vuranoğlu]

Merhaba
Ekteki dosyada isme göre süzme ve toplam alınabilmektedir.Tarihe göre süzme toplama nasıl yapılabilir.

 

[Orion1]

İlk tarih ve son tarihi giriniz.Ve tarihe göre süz butonuna basınız.
Dosyanız ektedir.

 

[vuranoğlu]

İlginiz için teşekkürler.
Combobox4' deki veriye göre sorgu yaptırabilirmiyiz?
Makrolara açıklama yazabilirseniz sevinirim diğer arkadaşlarda yararlanır.

 

[assenucler]

Sayın Orion1,


Üstadım günaydın ve iyi bayramlar.

İlgimi çekti ve dosyayı indirdim. Ancak Userform bende gözükmüyor. Nedeni ne olabilir?
Teşekkürler.

Sevgi ve saygılar.

Böyle bir kod buldum.
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

 

[vuranoğlu]

Userform otomatik gelmiyor. Açılan sayfanın altında sayfa1,2,3 olan yerde imlec ile " kod görüntüle"yi açmalısınız.

 

[assenucler]

Bir incelik olmalı!

Sayın vuranoğlu,


Merhaba ve iyi bayramlar. İlginiz için teşekkürler.

Office 365 TR ev kullanıyorum.

Anılan kodu Sayfa1 ya da diğer sayfaların "Kod Görüntüle" ye eklediğimde, UserForm1 penceresi açılmıyor.

This Workbook'a eklediğimde ise, veriler açılışta UserForm1 penceresine gelmiyor;Modül1'e kodları yazdığımda ise geliyor.

 

[cems]

Modül1'e kodları yazdığımda ise geliyor.

Sorunun cevabı zaten bu , Modul içine

Sub Auto_open
Application.Visible = False
UserForm1.Show
End sub

Yazarsanız dosya açıldığında userform açılır ve excel gizlenir. Unutmamanız şart olan konu ise
önce çarpıdan kapatmayı yasaklayıp daha sonra mutlaka bir kapatma düğmesi ile çıkış yapmanız ve o düğmeye de

private sub ile end sub arasındaki varsa başka kodlar ,sona ilave ederek ;

...
Application.Visible = True
Unload userform1
Thisworkbook.save
Application.quit
....

Yazarak dosya kapanırken sayfaları görünürleştirmenizdir. Bunu unutursanız diğer excel sayfalarınız da görünmez kalabilir. Userformu çarpıdan kapatmayı yasaklama kodlarını sitede bulabilirsiniz .

 

[vuranoğlu]

Dosyayı otomatik olarak açılacak şekilde ayarladım. Deneyiniz.

 

[vuranoğlu]

Deneyiniz.

 

[assenucler]

Sorunun cevabı zaten bu , Modul içine

Sub Auto_open
Application.Visible = False
UserForm1.Show
End sub

Yazarsanız dosya açıldığında userform açılır ve excel gizlenir. Unutmamanız şart olan konu ise
önce çarpıdan kapatmayı yasaklayıp daha sonra mutlaka bir kapatma düğmesi ile çıkış yapmanız ve o düğmeye de

private sub ile end sub arasındaki varsa başka kodlar ,sona ilave ederek ;

...
Application.Visible = True
Unload userform1
Thisworkbook.save
Application.quit
....

Yazarak dosya kapanırken sayfaları görünürleştirmenizdir. Bunu unutursanız diğer excel sayfalarınız da görünmez kalabilir. Userformu çarpıdan kapatmayı yasaklama kodlarını sitede bulabilirsiniz .

İyi bayramlar Sayın Cems, bilgilendirmeniz için de teşekkürler.

 

[cems]

İyi bayramlar Sayın Cems,

Hepimize huzur dolu nice bayramlar dilekleri ile ...

 

[Orion1]

İlginiz için teşekkürler.
Combobox4' deki veriye göre sorgu yaptırabilirmiyiz?
Makrolara açıklama yazabilirseniz sevinirim diğer arkadaşlarda yararlanır.

Dosyanız ektedir.

 

[vuranoğlu]

Orion1
İlginiz için teşekkürler.Sorun çözüldü.

 

[Orion1]

Orion1
İlginiz için teşekkürler.Sorun çözüldü.

Rica ederim.
İyi çalışmalar.