[Çözüldü] ToggleButton'la Günü Geçenleri ListBox'ta Süzme

Basma düğmesi

[Çözüldü] ToggleButton'la Günü Geçenleri ListBox'ta Süzme

İleti#1)  Emine Şahin » 15 Haz 2012 13:33

Merhaba.
Aşağıdaki linkte sorunumu çözmüştüm. Günü geçen kayıtların sayısını bulabiliyorum. Ancak yeni oluşturduğum modülde düzenlediğim kodlar çalışmıyor. İnitialize olayına da gerekli eklemeyi yaptım. Acaba bu sorunum için nasıl bir düzenleme yapmalıyım. Bir de bu hususta togglebutton ile listboxtaki verilerimi süzmek istiyorum?

Link: viewtopic.php?f=35&t=12324&start=20

Düzenlediğim kodlar:
Kod: Tümünü seç
Sub Edn()
    Dim i As Integer, say As Integer
    say = 1
        For i = 1 To Worksheets("satış").Range("U65536").End(3).Row
                If Worksheets("satış").Cells(i, "U") <> "" And Worksheets("satış").Cells(i, "U") = VBA.Date Then
                satış.ToggleButton4.Caption = say
                say = say + 1
           End If
        Next i
    i = Empty: say = Empty
End Sub
En son Murat OSMA tarafından, 26 Haz 2012 17:14 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Sebep: Başlık düzeltildi...
Emine Şahin
Siteye Alışmış
 
Adı Soyadı:Emine Şahin
Kayıt: 10 May 2012 12:58
İleti: 220
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Trabzon / Akçaabat

Cevap: ToggleButton'da Günü Geçen Kayıtlar ve ListBoxta Süzm

İleti#2)  Murat OSMA » 15 Haz 2012 16:43

Merhaba Emine Hanım,

Kodlarda ilk gözüme çarpan satır burası oldu: satış.ToggleButton4.Caption = say buradaki hata nedir ? [ilginc]

Dosyanızın son hâlini yollayabilir misiniz ? Bir bakalım hata nerede ? [ilginc]
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14400
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: ToggleButton'da Günü Geçen Kayıtlar ve ListBoxta Süzm

İleti#3)  Emine Şahin » 16 Haz 2012 10:16

Merhaba Murat Bey.
Bu sıkıntıyı pek çok kere yaşadım. Örneğin iki tarih arası rapor alırken de aynı kodları ikince kere uyguladığımda sıkıntılar yaşadım. Keza, bu şekilde de ikinci kere uyguladığım "günü geçen kayıtlar" kodları da öyle... Dosyamı ekte sunuyorum. Mantık yürüttüğümde bir hata olmaması gerek diye düşünüyorum. 7. ve 8. modülde kodlarım var. İnitialize olayının baş tarafına da gerekli eklemeyi yaptım. Bilen kişi olarak siz de bakarsanız çok memnun olurum.

Not: Buradaki mantık toggleye tıkladığımda listboxtan süzmek, tekrar tıkladığımda da (initialize) süzmeyi iptal etmek istiyorum.

Saygılar...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Emine Şahin
Siteye Alışmış
 
Adı Soyadı:Emine Şahin
Kayıt: 10 May 2012 12:58
İleti: 220
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Trabzon / Akçaabat

Cevap: ToggleButton'da Günü Geçen Kayıtlar ve ListBoxta Süzm

İleti#4)  Murat OSMA » 18 Haz 2012 09:01

Merhaba Emine Hanım,

Tahminimce, bugünkü randevuların sayısını vermemesinin nedeni: bugün bir randevunun olmamasıdır...
Denemek için, satış sayfasındaki U sütununun en alttaki bir kaç satırına bugünün tarihini yazınız..

ToogleButton ile ilgilli olarak şu kodları kullanabilirsiniz;
Kod: Tümünü seç
Private Sub ToggleButton3_Click()
    Dim c As Integer
    With Worksheets("satış")
    If ToggleButton3.Value = True Then
        For c = 1 To .Range("U65536").End(3).Row
            If .Cells(c, "U") <> "" And .Cells(c, "U") < VBA.Date Then
              .Cells(c, 1).Resize(, 22).Copy .Range("AA65536").End(3)(2, 1)
            ListBox1.RowSource = "Satış!AA2:AV" & c
            End If
        Next c
    Else
        .Range("AA2:AV500").ClearContents
        UserForm_Initialize
    End If
    End With
    c = Empty
End Sub

Private Sub ToggleButton4_Click()
    Dim a As Integer
    With Worksheets("satış")
    If ToggleButton4.Value = True Then
        For a = 1 To .Range("U65536").End(3).Row
            If .Cells(a, "U") <> "" And .Cells(a, "U") = VBA.Date Then
              .Cells(a, 1).Resize(, 22).Copy .Range("AA65536").End(3)(2, 1)
            ListBox1.RowSource = "Satış!AA2:AV" & a
            End If
        Next a
    Else
        .Range("AA2:AV500").ClearContents
        UserForm_Initialize
    End If
    End With
    a = Empty
End Sub

Dosyayı da ekliyorum...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14400
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: ToggleButton'da Günü Geçen Kayıtlar ve ListBoxta Süzm

İleti#5)  Emine Şahin » 18 Haz 2012 14:49

Merhaba Murat Bey.
Bu neden aklıma gelmedi ki? Ben tarih yazarak deneme de yapmıştım ama! Bir yerde bir hata yapıyorum demekki. Dosyayı inceledim. Muazzam ötesi oldu. Allah razı olsun... Peki burada bir değer yoksa -0- yazamaz mıyız?
Emine Şahin
Siteye Alışmış
 
Adı Soyadı:Emine Şahin
Kayıt: 10 May 2012 12:58
İleti: 220
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Trabzon / Akçaabat

Cevap: ToggleButton'da Günü Geçen Kayıtlar ve ListBoxta Süzm

İleti#6)  Murat OSMA » 18 Haz 2012 15:11

Olur öyle bazen... [evet]
İlk denediğinizde olmaz ama ikinci denediğinizde olur, nedenini bir türlü çözemezsiniz.. :)

Son isteğiniz beni aşar, onu ancak siz yapabilirsiniz. ;;_) :D
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14400
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: ToggleButton'da Günü Geçen Kayıtlar ve ListBoxta Süzm

İleti#7)  Emine Şahin » 19 Haz 2012 01:43

Teşekkür ederim Murat Bey. Bu bile bana ziyadesiyle yeterli.
Ancak benim bu konuyu çözebileceğime emin misiniz? [komik]
Emine Şahin
Siteye Alışmış
 
Adı Soyadı:Emine Şahin
Kayıt: 10 May 2012 12:58
İleti: 220
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Trabzon / Akçaabat

Cevap: ToggleButton'da Günü Geçen Kayıtlar ve ListBoxta Süzm

İleti#8)  Murat OSMA » 19 Haz 2012 11:21

Emindim... ;;_) [ilginc]
ToggleButton'ların Caption değerlerini 0 yaparsınız sanmıştım. :)
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14400
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: ToggleButton'da Günü Geçen Kayıtlar ve ListBoxta Süzm

İleti#9)  Emine Şahin » 26 Haz 2012 16:49

Merhaba Murat Bey.
Şöyle bir sorunum daha var. süzme işlemi sonrası ListBoxtan seçtiğim verileri textboxlara ve CombobBoxlara çağırıyorum. Buralarda herhangi bir düzeltme yapmak durumu hasıl olduğunda düzeltme işlemi alakasız bir satır üzerinde gerçekleşiyor. Diyelimki Listboxta 3 tane veri süzülmüş olsun. 1. sırada bulunan veriyi düzeltirsem excelde 1. satırda olan veri, eğer 2. sıradaki veriyi düzeltmişsem excelde 2. sıradaki veri düzeltiliyor. Bu sorunumu nasıl düzeltebilirim. Umarım anlatabildim? [uzgun]
Emine Şahin
Siteye Alışmış
 
Adı Soyadı:Emine Şahin
Kayıt: 10 May 2012 12:58
İleti: 220
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Trabzon / Akçaabat

Cevap: ToggleButton'da Günü Geçen Kayıtlar ve ListBoxta Süzm

İleti#10)  Murat OSMA » 26 Haz 2012 17:12

Merhaba Emine Hanım, buradaki konunuz ile aynı soru sanırım... [ilginc]
viewtopic.php?f=9&t=12563

Bu konu bittiyse kapatalım. Son sorunuz için diğer bağlantıdan devam edelim... [evet]
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14400
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL


Forum ToggleButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe