Textbox Suzmede Sorun

[pelin5353]

Merhaba ,

Sayfanin 3. satirina yerlestirdigim textbox ile veri arama islemi yapiyorum. Aranacak veriler 5. satirdan itibaren basliyor. Makro eskiden sorunsuz calisiyordu ama sonradan anlamadigim bi sorun olustu.. Soyleki.. Textboxa herhangi bir harf girdigimde 4. satira kadar tum satirlar sabit kaliyordu. ve alt satirlarda sonuclar goruluyordu. ama simdi harf girdigimde, satirlar sabit kalmiyor. Textbox ve veriler birbirine giriyor..Bu sorunu nasil duzeltebilirim ?? Makro asagida :

Private Sub TextBox1_Change()
On Error Resume Next
METİN2 = TextBox1.Value
Set Fc3 = Range("D5:J65000").find(What:=METİN2)
Application.GoTo Reference:=Range(Fc3.Address), _
Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:=TextBox1.Value & "*"
If METİN2 = "" Then
Selection.AutoFilter Field:=4
End If
End Sub



Yardimlariniz icin simdiden tesekkur ederim..:???:

 

[Ferhat Pazarçevirdi]

Anladığım kadarıyla;

Textbox'a girilen değeri aratıyorsunuz ve arama sonucu bulunan hücreye gidiyorsunuz. Bulunan hücereye de filtreleme uyguluyorsunuz.

Bu durumda; selection ifadesini kontrol edin. Muhtemelen şöyle olabilir.

Selection yerine; Range("D5:J65000") yazın.

 

[pelin5353]

Ekte aciklamaya calistim

 

[Ferhat Pazarçevirdi]

Kodlarınızı aşağıda gibi revize ediniz.

Ama Fc3'ün ne işe yaradığını çözemedim. Siz eğer kullanmayı düşünürseniz, başındaki tırnakları kaldırın. Kod yine çalışır.

Private Sub TextBox1_Change()
On Error Resume Next
METİN2 = TextBox1.Value
Set rg = Range("A4:D65000")
[COLOR=green]'Set Fc3 = rg.find(What:=METİN2)
'    Application.GoTo Reference:=Range(Fc3.Address), Scroll:=False
[/COLOR]    If METİN2 = "" Then
       Selection.AutoFilter Field:=4
    Else
        rg.AutoFilter Field:=4, Criteria1:=TextBox1.Value & "*"
    End If
[COLOR=green]'Set Fc3 = Nothing[/COLOR]
Set rg = Nothing
End Sub

 

[Ferhat Pazarçevirdi]

xxxxxxxxxxxxxx

 

[pelin5353]

Ok.. Sorunum cozuldu..Zaman ayirdiginiz icin cok tesekkur ederim.