ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Emine Şahin]

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

[Murat OSMA]

Merhaba Emine Hanım,

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

Dosyanızın son hâlini yollayabilir misiniz ? Bir bakalım hata nerede ?

[Emine Şahin]

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...

[Murat OSMA]

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...

[Emine Şahin]

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?

[Murat OSMA]

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

Son isteğiniz beni aşar, onu ancak siz yapabilirsiniz.

[Emine Şahin]

Teşekkür ederim Murat Bey. Bu bile bana ziyadesiyle yeterli.
Ancak benim bu konuyu çözebileceğime emin misiniz?

[Murat OSMA]

Emindim...
ToggleButton'ların Caption değerlerini 0 yaparsınız sanmıştım.

[Emine Şahin]

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?

[Murat OSMA]

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

Bu konu bittiyse kapatalım. Son sorunuz için diğer bağlantıdan devam edelim...