Süzerken filtre okları çıksın istemiyorum

[Failimechul]

Merhabalar

Ekteki dosyaya bir kod yazdım ve tam istediğim gibi çalışıyor. Fakat textboxlara bir harf yazdığım zaman otomatik filtreleme yapınca çıkan şu küçük oklar ortaya çıkıyor. Bunun çıkmasını engellemenin bir yolu var mıdır?

 

[İsmailCen]

Örnek dosyayı Excel 2003 formatında ekleyebilirmisiniz?

 

[Failimechul]

Ekledim beyefendi

 

[Mehmet Şahin]

Merhaba,
Dosyanızın Thisworkbook kod sayfasına aşağıdak kodları yapıştırıp denermisiniz, iy çalışmalar.

Private Sub Workbook_Open()
Application.ErrorCheckingOptions.BackgroundChecking = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ErrorCheckingOptions.BackgroundChecking = True
End Sub

 

[Failimechul]

Merhaba,
Dosyanızın Thisworkbook kod sayfasına aşağıdak kodları yapıştırıp denermisiniz, iy çalışmalar.

Private Sub Workbook_Open()
Application.ErrorCheckingOptions.BackgroundChecking = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ErrorCheckingOptions.BackgroundChecking = True
End Sub

Aynı durum söz konusu.. Oklar ortaya çıkıyor

 

[Mehmet Şahin]

Sanırım ben yanlış anladım, bu kodlar hücrelerde çıkan yeşl renkli uyarı notları içindir. Siz filtre oklarından sözediyosunuz galiba.

 

[Failimechul]

Evet.. Otomatik filtre kullanırken ortaya çıkan oklardan bahsediyorum

 

[Mehmet Şahin]

Aşağıdak kodla ilgili kolonun okları çıkmıyor.

Range("E8").AutoFilter Field:=4, Criteria1:="*" & TextBox2.Text & "*", VisibleDropDown:=False

 

[Mehmet Şahin]

Merhaba,
dosyayı kontrol edermisiniz, saygılar.

 

[Failimechul]

Merhaba,
dosyayı kontrol edermisiniz, saygılar.

Sayın dentex,

yazdığınız kod istediğim gibi olmuş fakat 17 sütunda işlem yaptığım için midir bilmem her harf için 4-5 sn bekliyorum. Bunu da aşabilir miyiz?

 

[Mehmet Şahin]

Merhaba,
orjinal dosyanızı gerçek olmayan verilerle ekleyebilirseniz, inceleme şansımız olabilir, saygılar.