OTOMATİK SÜZ YAPMASINI İSTİYORUM.

[kalekale75]

Sayın hocalarım kolay gelsin elimde tablo var sizlerin sayesinde otomatik süz formülü yaptım.

Ancak Otomatik Süz yaparken yalnızca bedelleri belli olan hücreleri otomatik süz yapmasını istiyorum.

Ekli Dosya EKTE dir.

Teşekkür Ederim.

 

[YUSUF44]

Formülle değil de makroyla ve daha hızlı bir şekilde olmasını isterseniz aşağıdaki kodları sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyin. D sütununda değişiklik yaptığınızda veriler listelenir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D3:D1000]) Is Nothing Then Exit Sub
eski = WorksheetFunction.Max(3, Cells(Rows.Count, "F").End(3).Row)
son = WorksheetFunction.Max(3, Cells(Rows.Count, "D").End(3).Row)

If Selection.Count > 1 Then Exit Sub

    Range("F3:I" & eski).ClearContents
    Set con = VBA.CreateObject("adodb.Connection")
    
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=NO"""
    
    sorgu = "select F1,F2,F3,F4 " & _
      "from[Sayfa1$B3:E" & son & "] where F3 >0"
      
    Set rs = con.Execute(sorgu)
    Range("F3").CopyFromRecordset rs
End Sub

 

[kalekale75]

Hocam pek kodları bilmiyorum
Formül derseniz çok makbule geçer tşk

 

[YUSUF44]

Formülü de ben bilmiyorum maalesef. Ancak kodların bilinmeyecek ya da zor bir tarafı yok.

Kodları kopyalayın
Excel dosyanızda ilgili sayfayı açın
Sayfa adına sağ tıklayıp Kod Görüntüle deyin
Açılan sayfaya bu kodları yapıştırın.
Excel sayfanıza geçin ve D sütununda değişiklik yapıp sonucu gözlemleyin.
Dosyanızı kaydederken farklı kaydedip Makro içerebilen excel dosyası olarak kaydetmeyi ve sonraki ilk açılışında makroları etkinleştirmeyi unutmayın.

 

[kalekale75]

Tşk

 

[euphrates55]

yusuf beyin çözümü çok daha kullanışlı çok daha pratik ama illa formül derseniz buyrun ekte. tek sorun makrolu kullanımlarda geri al tuşunun artık aktif olmayışı. o yüzden bazen formül bazen makrolu çözümler herkese göre farklılık oluşturabilir.

 

[asdsxx]

Aşağıdaki gibi mi istiyorsun

 

[asdsxx]

sütunlara filtre uyguladıktan sonra aşağıdaki resimlerdeki şekilde hareket et
1. adım


2. adım



sonuç: 1 ve 1 den büyük değere sahip hücreler yani bedeli belli olan hücreler