İki tarih arası gelişmiş filtre uygulama

[ercanzkan]

Merhabalar,

İnternetten bakıpta uyguladığım excel programını kendime göre revize ettim fakat programda görülen iki fiyat arası bilgileri getirmek yerine iki tarih arasında ki verileri süzmek istiyorum.Yardımcı olursanız sevinirim

Teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Belgenizde;
-- hem Liste sayfasında tarih verisi yok,
-- hem de Arama sayfasında filtre kriteri olarak tarih bilgisini yazacağınız alan belli değil.

Belgenizin tasarımını bu unsurları içerecek şekilde yeniden gözden geçirmenizde yarar öar sanırım.
.

 

[ercanzkan]

Merhaba.

Belgenizde;
-- hem Liste sayfasında tarih verisi yok,
-- hem de Arama sayfasında filtre kriteri olarak tarih bilgisini yazacağınız alan belli değil.

Belgenizin tasarımını bu unsurları içerecek şekilde yeniden gözden geçirmenizde yarar öar sanırım.
.

Gerekli düzeltmeleri yaptım

 

[numan şamil]

Merhaba
Yanlış anlamadıysam
Dener misiniz

Sub Numan()
    Dim S1 As Worksheet, i As Long
    Set S1 = Sheets("Liste")
    Application.ScreenUpdating = False
    Satır = 15
    Range("B15:L" & Rows.Count).ClearContents
    For i = 2 To S1.Cells(Rows.Count, "B").End(xlUp).Row
        If CDate(S1.Range("K" & i)) >= CDate(Range("E11")) And CDate(S1.Range("K" & i)) <= CDate(Range("G11")) Then
         Range("B" & Satır).Value = S1.Range("B" & i).Value
         Range("C" & Satır).Value = S1.Range("C" & i).Value
         Range("D" & Satır).Value = S1.Range("D" & i).Value
         Range("E" & Satır).Value = S1.Range("E" & i).Value
         Range("F" & Satır).Value = S1.Range("F" & i).Value
         Range("G" & Satır).Value = S1.Range("G" & i).Value
         Range("H" & Satır).Value = S1.Range("H" & i).Value
         Range("I" & Satır).Value = S1.Range("I" & i).Value
         Range("J" & Satır).Value = S1.Range("J" & i).Value
         Range("K" & Satır).Value = S1.Range("K" & i).Value
         Range("L" & Satır).Value = S1.Range("L" & i).Value
        Satır = Satır + 1
         End If
    Next i
   Application.ScreenUpdating = True
End Sub

 

[kemal turan]

Merhaba,
Numan hocamın kodu ile beraber diğer seçeneklerinde kod il yapılmış hali ektedir.
Hayırlı Bayramlar

 

[ercanzkan]

Merhaba,
Numan hocamın kodu ile beraber diğer seçeneklerinde kod ile yapılmış hali ektedir.
Hayırlı Bayramlar

Teşekkür ederim tam bende onu soracaktım option butonları nasıl aktif hale getirebilirim diye
Fakat kendi uyguladığım şeklinde sorun çıktı .
İSİM ,İLÇE VE MEVKİ kısımlarını textbox olarak mı düzenlediniz ? ve onların içine isim vs.yazınca süzme işlemini yapmıyor

 

[kemal turan]

Her harf yazdığınızda Süzme şeklinde değil istediğiniz harfleri yazıp enter yaptığınızda verileri getiriyor.
Bu arada tamamı userform olan bir çalışma yapıp yükleme yapacağım.

 

[kemal turan]

Yeni format daki dosyanız ek tedir
Dosya içeriği şöyle,
Verileri KAYIT butonu çıkan form ile kayıt ediyorsunuz.Boş bölüm bırakmayın.
ARAMA butonu ile her türlü arama yapabiliyorsunuz.Sol üst köşedeki combobox daki seçenekleri dikkate alın. Açılışta GÜNCEL olan bilgileri getiriyor.Sonrasında diğer seçenekleri seçip o krıterde arama yapabilirsiniz.
Arama sonucunda gelen verilerde listview e çift tıklayıp verileri değiştirip silebiliyorsunuz.
Ayrıca biten işlemlerde de bu şekilde çift tıklayıp çıkan userformda SONUÇLANMA KAYDI GİR butonu ile işlemi bitiş kaydı girmelisiniz.
VERİLER butonu ile yaptığınız işlemlerle ilgili rakamsal verileri görüyorsunuz.
ÇIKIŞ butonu ile yedek alarak dosyayı kapatabilirsinz.
Eksikler veya ilave edilecek hususlar olabilir.
Selametle kalınız.

 

[ercanzkan]

Yeni format daki dosyanız ek tedir
Dosya içeriği şöyle,
Verileri KAYIT butonu çıkan form ile kayıt ediyorsunuz.Boş bölüm bırakmayın.
ARAMA butonu ile her türlü arama yapabiliyorsunuz.Sol üst köşedeki combobox daki seçenekleri dikkate alın. Açılışta GÜNCEL olan bilgileri getiriyor.Sonrasında diğer seçenekleri seçip o krıterde arama yapabilirsiniz.
Arama sonucunda gelen verilerde listview e çift tıklayıp verileri değiştirip silebiliyorsunuz.
Ayrıca biten işlemlerde de bu şekilde çift tıklayıp çıkan userformda SONUÇLANMA KAYDI GİR butonu ile işlemi bitiş kaydı girmelisiniz.
VERİLER butonu ile yaptığınız işlemlerle ilgili rakamsal verileri görüyorsunuz.
ÇIKIŞ butonu ile yedek alarak dosyayı kapatabilirsinz.
Eksikler veya ilave edilecek hususlar olabilir.
Selametle kalınız.

Çok teşekkür ederim hocam,gerçekten çok emek vermişiniz ellerinize sağlık.
Saygılarımı sunuyorum size