E

Soru Filtreleme uygularken boş sonuç geldiğinde hata vermesi

E

Exceljunior

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,

Excel sayfamda bir filtreleme uygulamaktayım ve bu filtre ile seçtiğim değerden kaç tane olduğunu göstermekte.
filtreleme makrom şu şekilde;
Sub alttoplam()
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=1, Criteria1:=[B1]
MsgBox Application.WorksheetFunction.Subtotal(3, Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row))
End Sub

fakat filtreleme sonucum boş ise hata veriyor ve bütün makroyu patlatıyor.
Filtreleme sonucum boş olduğunda devam edip diğer işleme geçmesini nasıl sağlayabilirim?
 
Tarihe göre sırala Oylamaya göre sırala
Forumumuza hoşgeldiniz Sayın @Exceljunior .

Sorularınızı örnek belge ile desteklemek, sonuca ulaşmanızı kolaylaştıracaktır.
Örnek belge özellikleriyle ilgili gerekli açıklamalar, cevabımın altındaki İMZA bölümünde var.

Yine de anladığım kadarıyla bir cevap yazayım; aşağıdaki gibi deneyin.

CSS: 
Görüntülemek için giriş yapmanız gerekmektedir.
(9 satır)

.
 
Oyla 0 Olumsuz oyla
İlginiz için çok teşekkür ederim. burada kapsamlı bir makro çalıştırıyorum. Geçen defa da sizin yardımınız ile filtreleme işlemini yaptım.
Sorun, filtreleme yaptığı sırada eğer filtrelemenin sonucunda bulduğu değer var ise sorun yok fakat filtreleme sonunda değer boş ise hata veriyor. Ben istiyorum ki filtreleme sonucunda değer yoksa makroyu bozmasın. diğer işleme geçebilsin.
Umarım derdimi anlatabilmişimdir. Sizin gönderdiğinizi de deneyeceğim. teşekkürler.
 
Oyla 0 Olumsuz oyla
İşte bu tür nedenlerden dolayı soruların,
gerçek belgenin özel bilgi içermeyen kopyası (formüller/makrolar belge içerisinde olmalı) üzerinden sorulmasını istemekteyiz.

Kullandığınız formülleri/makro kodlarını/sayfa yapılarını vs bilemiyoruz ve durum böyle olunca da
sorunun çözümü için fikir üretmek pek mümkün olmuyor.
Eğer isteğiniz "filtre sonucunda veri kalmışsa diğer işlemlere geç, kalmamışsa başka işlem yapılmasın"
şeklinde ve başlık satırının satır numarası 1 ise; verdiğim kod aşağıdaki gibi düzenlenebilir.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(11 satır)

.
 
Oyla 0 Olumsuz oyla
Merhaba Benzer bi konu hakkında çözüm yapamadım mevcut sizlerin paylaştığı kodlardan. Bana yardımcı olurmusunuz lütfen.
Ana sayfada bulunan bir butonum var. bu buton mevcut makroyu çalıştırıyor.
Makro'nun başına;

11 sayfanın X3 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
17 sayfanın H1 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
18 sayfanın S3 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
sayfalarındaki otomatik filtreleme yaptırmak istiyorum.

örnek olarak şu kod'u denedim;
Sheets(11).Selection.AutoFilter Field:=24, Criteria1:="<>"
ama hata vermektedir. bu sayfa için bu kod çalışsa idi diğer sayfaları da buna göre yapacaktım.
 
Oyla 0 Olumsuz oyla
ikayserili' Alıntı:
Merhaba Benzer bi konu hakkında çözüm yapamadım mevcut sizlerin paylaştığı kodlardan. Bana yardımcı olurmusunuz lütfen.
Ana sayfada bulunan bir butonum var. bu buton mevcut makroyu çalıştırıyor.
Makro'nun başına;

11 sayfanın X3 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
17 sayfanın H1 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
18 sayfanın S3 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
sayfalarındaki otomatik filtreleme yaptırmak istiyorum.

örnek olarak şu kod'u denedim;
Sheets(11).Selection.AutoFilter Field:=24, Criteria1:="<>"
ama hata vermektedir. bu sayfa için bu kod çalışsa idi diğer sayfaları da buna göre yapacaktım.
Genişletmek için tıklayın ...
Sayın @ikayserili .

İsterseniz sorunuzu, cevabımın altında yer alan İMZA bölümündeki açıkamalar doğrultusunda hazırlayacağınız
bir örnek belge üzerinden yeni bir konu açarak sorun.

Yok eğer sorununuz, bu konu sayfadaki istek/durumla birebir eşleşiyorsa, örnek belgenizi buraya da ekleyebilirsiniz.

.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Üst