A sayfasında veri süzme kullanıldı ise tüm verileri göster

[hsayar]

A sayfasında veri süzme kullanıldı ise tüm verileri göster,
kullanılmadı ise hata vermeden bir sonraki adıma geç

Normalde veri süzülmüş ise

    Sheets("Günlük").Select
    Range("B56").Select
    ActiveSheet.ShowAllData
   işlemler

deyip işi çözüyoruz ama süzülmedi ise show aldata yönetimi başarısız deyip çıkıyor ben çıkmadan işlemler prosodürünü nasıl uygulatabilirim.

Çözüm1

    Sheets("Günlük").Select
    Range("B56").Select
On Error Resume Next yazarak bir deneyin.
    ActiveSheet.ShowAllData
   işlemler

Saygılarımla...

Çözüm2

Sheets("Günlük").Select
    Range("B56").Select
    Selection.AutoFilter Field:=1
   işlemler

Çözüm3

Sheets("Günlük").Select
    Range("B56").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
işlemler

emeği geçen herkese teşekkür ederim.

 

[Skorpiyon]

Sayın hsayar,

ActiveSheet.ShowAllData komutunun önüne
On Error Resume Next yazarak bir deneyin.

Saygılarımla...

 

[hsayar]

teşekkürler küçük bir ilave ile büyük bir sorun çözülüyormuş
saygılar sunarıım

 

[Skorpiyon]

Rica ederim.
Kolay gelsin.

 

[AS3434]

Kodları şöyle de kullanabilirsiniz.

Sheets("Günlük").Select
    Range("B56").Select
    Selection.AutoFilter Field:=1
   işlemler

 

[hsayar]

sizede teşekkür edeirm as434 aklımda bulunsun not ettim

 

[veyselemre]

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

 

[hsayar]

size de teşekkürler veysel emre baya bir yolu varmış
Aklın yolu bir deyimi vba ya göre değil anlaşılan