Filitre kaldırma kodunda değişiklik

[S.Yiğit]

Merhabalar,

Aşağıdaki kod ile filitreleri kaldırıp b sütunun en son dolu hücresine gidebiliyorum. yanlız filitre yok ise hata veriyor. bu hatanın olmaması için kodu nasıl değiştirmem gerekli. Yardımınız için teşekürler..

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveSheet.ShowAllData
    Range("B3").Select
    Selection.End(xlDown).Select
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub Makro1()
'
' Makro1 Makro
'


[COLOR=blue]On Error Resume Next[/COLOR]
    ActiveSheet.ShowAllData
    Range("B3").Select
    Selection.End(xlDown).Select
End Sub

.

 

[Mahir64]

Merhaba
Altarnatif olarak
Mevcut kodunuza ekleme yaparak deneyebilirsiniz.

Sub Makro1()
Sheets("tablo").AutoFilterMode = False
Sheets("tablo").Range("A2").AutoFilter
Range("B3").Select
Selection.End(xlDown).Select
End Sub

 

[S.Yiğit]

Ömer bey Mahir bey, İkinizede teşekkür ederim.. İyi geceler..

 

[Mahir64]

İyi çalışmalar :hey: