arama butonunda otomatik filtreleme VBA yaparken hata alıyorum.

[ALKAAZER]

Merhabalar,,


Kodları yazdıktan sonra çalıştırırken hata alıyorum.( Sub or Function not Defined)= hata veren excel'i ekliyorum . konu hakkında desteğinizi rica ederim.

teşekkürler.

 

[dEdE]

Merhaba,
Koddaki Whorksheet ifadesini Worksheets olarak değiştirmeyi dener misiniz?

 

[ALKAAZER]

Merhaba,
Koddaki Whorksheet ifadesini Worksheets olarak değiştirmeyi dener misiniz?

merhabalar,

düzeltme yaptım , ama autofilter çalışmıyor tekrar baştan yazıp denemeye çalışayım.

teşekkürler.

 

[dEdE]

Merhaba,
Sorunuz "Sub or Function not Defined " hatasını gidermekle ilgiliydi. Önerdiğim düzeltme bu hatayı giderir.
AutoFilter için aşağıdaki kodları deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
    Arama = Worksheets("main").Range("C2").Value
    ActiveSheet.Range("$B$4:$G$10000").AutoFilter Field:=5, Criteria1:=Arama
    If Arama = "" Then
        If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
    End If
Range("C2").Select
End Sub

 

[ALKAAZER]

Merhaba,
Sorunuz "Sub or Function not Defined " hatasını gidermekle ilgiliydi. Önerdiğim düzeltme bu hatayı giderir.
AutoFilter için aşağıdaki kodları deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
    Arama = Worksheets("main").Range("C2").Value
    ActiveSheet.Range("$B$4:$G$10000").AutoFilter Field:=5, Criteria1:=Arama
    If Arama = "" Then
        If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
    End If
Range("C2").Select
End Sub

Merhaba,

teşekkür ederim. Çözüm için auto filter çalışıyor, fakat field 5' tekrar 1 e aldım .field 6 konu başlığı olarak filtreleyemez mi? ayrıca arama yaparken tam eşleşmeye göre arıyor herhangi bir harf veya sayı yazmam durumunda ona yakın olanı getirebilir mi ? 6 konu başlığı içinde k harfini arayıp en yakın sonuçları getirmesi gibi . bu şekilde yapma şansımız varsa yardımcı olabilir misiniz.

teşekkürler.