• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İki tarih arası gelişmiş filtre uygulama

Katılım
6 Haziran 2016
Mesajlar
17
Excel Vers. ve Dili
Excel 2013-TR
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.
 

Ekli dosyalar

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

Ekli dosyalar

Merhaba
Yanlış anlamadıysam
Dener misiniz
Kod:
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
 
Merhaba,
Numan hocamın kodu ile beraber diğer seçeneklerinde kod il yapılmış hali ektedir.
Hayırlı Bayramlar
 

Ekli dosyalar

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

Ekli dosyalar

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
 
Geri
Üst