Otomatik süz ile ilgili

[ikikan]

Süzde seçtiğim ismi E1 hücresine yazdıra bilirmiyim? Veri dogrulama hariçinde.

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Sub Filter_Criteria()
With Worksheets("Sayfa3")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then Range("E1") = Replace(.Criteria1, "=", "")
End With
End If
End With
 
End Sub

 

[ikikan]

Teşekürler kodlar işe yaradı birden fazla seçim yapıldığında E1 de temizletirsem işime çok yarıyacak, Bir sorum daha olcaktı gönderdiğim örnekte N sütünundaki formül için birşeyler yapılabilirmi ?

 

[ikikan]

İki sorun var bu kodla ilgili bir seçim dışına çıkınca temizleme yapmıyor ve
seçim esnasında değil selection change ile çalışıyor nasıl çözebilirz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Sheets("Sayfa3").Range("E1").Value = ""
Call Filter_Criteria
End Sub

 

[ikikan]

farklı ofis programları kullanmak istediğimden bu kod işime yaramıyor.
Bu linkte makro kullanan ofis programları var http://office-software-review.toptenreviews.com/
ve altaki kod artık işe yaramıyor ?

Sub Filter_Criteria()
With Worksheets("Sayfa3")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then Range("E1") = Replace(.Criteria1, "=", "")
End With
End If
End With

End Sub

Kingsoft, sitedeki office programları ve libre office için kodlarınız varsa burda paylaşalım