Üçlü veriye bağlı olarak veri bulup textboxa getirmek

[hikmet]

merhaba, leventm hocamın yardım ettiği bu dosyamda küçük bir sorun var. dosyayı açtığınızda göreceksiniz userformda iken sayfa autofilter ile süzülüyor işlemler doğru olarak yapılıyor sorunum userformu kapattığımda autofilter özelliğinin devre dışı kalmaması ile ilgili. userformu yeniden açtığımda ilk combobox açılıyor ve seçimi alıyor ikinci combobox açılırken "Range sınıfının autofilter yöntemi başarısız" mesajı geliyor. sebebi de bir önceki kayıtlarım bitip de userformu kapattığımda sayfanın süzülü kalması. userformu kapattığımda sayfanın autofilter özelliğinin kalkmasını nasıl sağlayabilirim. ilginiz için teşekkür ederim.

 

[Sisyphos]

hocam bende denedim bendede hata veriyor

 

[Levent Menteşoğlu]

Aşağıdaki kodu userforma kopyalarsanız form kapandığında autofilter de iptal olacaktır.

[vb:1:3902c1c0e8]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
[Veri!a1:c1].AutoFilter
End Sub
[/vb:1:3902c1c0e8]

 

[hikmet]

levent hocam teşekkür ederim kod için.düzgün çalıştı. ama işin ilginç yanı bu kod zaten vardı ve çıkışta hata veriyordu vba koda gidiyordu bende o kodu sildim ve öyle çalıştırdım çıkarken hata vermiyordu ama süzülü kalıyordu.

 

[efeboral]

Bende de aynı hatayı verdi.
TextBox2 = WorksheetFunction.Subtotal(109, Range(Cells(2, sut), Cells(65536, sut)))

 

[Levent Menteşoğlu]

109 sayısını 9 ile değiştirin.

 

[kpolat]

leventm hocam bende de aynı hatayı veriyor.

 

[kpolat]

leventm hocam özür dilerim 2. sayfaya geçildiğini fark etmemiştim