Filtreleme İle Gelen Başlıktaki Okları Kaldırma

[skaan]

Merhaba;
Filtreleme İle Gelen Başlıktaki Okları Kaldırmak istemem önce saçma gelebilir ama ben filtrelemeyi textbox ile süzme yaparak gerçekleştiriyorum. Bu nedenle filtreleme ile gelen okları gorunumden kaldırmam mumkunmu acaba ? ( Filtre özelliği devam edecek.. )
Yardımcı olabilirminiz..

Hayırlı günler dilerim.
Skaan

 

[hamitcan]

Gelişmiş Filtrelemeyi kullanabilirsiniz.

 

[Korhan Ayhan]

Makro ile yapabilirsiniz.

Filtrenin "VisibleDropDown:=False" özeliğini kullanarak "OK" sembollerini gizleyebilirsiniz.

 

[Erdem Akdemir]

Örnek dosyanızı ekleyebilirseniz, daha net cevap verilebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
a = Array(1, 2, 3)
 Range("A1").AutoFilter field:=a, VisibleDropDown:=False
End Sub

 

[skaan]

Merhaba;
Ornek dosyam ektedir yardımcı olabılırsenız cok sevınırım..
Tşk

 

[Merhum İdris SERDAR]

.

Kaldırmak için:

Sub fyok()

Dim pvt As PivotTable

Dim pvtf As PivotField
Set pvt = ActiveSheet.PivotTables(1)
  For Each pvtf In pvt.PivotFields
      pvtf.EnableItemSelection = False
  Next pvtf
  
End Sub

Tekrar eski haline getirmek için:

Sub fvar()

Dim pvt As PivotTable
Dim pvtf As PivotField
Set pvt = ActiveSheet.PivotTables(1)
  For Each pvtf In pvt.PivotFields
      pvtf.EnableItemSelection = True
  Next pvtf
  
End Sub

Kodlarını kullanabilirsiniz.


.

 

[skaan]

Yardımlarınız için çok teşekkürler..

Hayırlı günler dilerim.
Saygılarımla
SKaan