- Mesajlar
- 1,786
ekteki dosyada sanıyorum textbox kullanılmış buradaki girilen değere göre filtreleme yapıyor. kodlarını şifrelemiş yapan. bu işlem için özdeş fonksiyonu mu kullanılmış.bunun gibi bir işlemi nasıl yaptırabilirim.
excel de filtreleme
- Konbuyu başlatan dokmeefrail
- Başlangıç tarihi
- Mesajlar
- 751
asker öğretmenken yaptığım prg da bu filtrelemeden kullandım inceleyebilirsin.
Kod:
Private Sub TextBox1_Change() '---------------- Süzme İşlemi ---------------------------
ActiveSheet.Unprotect
Application.ScreenUpdating = False
On Error Resume Next
TC = TextBox1.Value
Set FC2 = Range("B8:B1000").Find(What:=TC) '----------------------------------------------|
Application.Goto Reference:=Range(FC2.Address), Scroll:=False '----SÜZME yapılıyor-------|
Selection.AutoFilter Field:=2, Criteria1:=TextBox1.Value & "*" '-------------------------------|
If TC = "" Then
Selection.AutoFilter Field:=2
End If
Call Kilitle
End Sub- Mesajlar
- 1,786
basit kod yazmadan yapılabilecek bir yöntemi yok mu?