[Çözüldü] Harf sırası

[Orion1]

Dosyanız ektedir.

Kod: [Seç]

Private Sub TextBox1_Change()
Dim sat As Long, i As Long
Rows("2:65536").Hidden = False
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
If TextBox1.Text = "" Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To sat
    If WorksheetFunction.CountIf(Range("B" & i & ":D" & i), TextBox1.Text & "*") = 0 Then
        Rows(i).Hidden = True
    End If
Next i
Application.ScreenUpdating = True
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

Teşekkür ederim.

[voleclub]

selam sınıflar sayfasında text box ilk veri gince güzel çalışıyor ondan sonra veri girince donuyor neden kaynaklanabilir.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

selam sınıflar sayfasında text box ilk veri gince güzel çalışıyor ondan sonra veri girince donuyor neden kaynaklanabilir.

Nereye veri girince donuyor?

[voleclub]

sınıflar sayfasındaki A1 hücresinin üzerindeki textbox.1

[voleclub]

sınıflar sayfasındaki A1 hücresinin üzerindeki textbox.1e halide güzel yaıyorum çıktı alıyorum. Daha sonra başka isim yazınca donuyor
belli süre

[Orion1]

sınıflar sayfasındaki A1 hücresinin üzerindeki textbox.1e halide güzel yaıyorum çıktı alıyorum. Daha sonra başka isim yazınca donuyor
belli süre

Uymayan satırları gizliyor.
O sebeten bekliyor.
Ancak bunu her harfe bastığında yapıyordu.Kodlar changed olayına yazıldığı için.Ben bu yüzden kodu changed olayına yazmayı pek tavsiye etmiyorum.
Bu durumu sadece tetxboxtan çıkınca çalışacak şekilde değiştirdim.
Bir miktar düzeldi.
Dosya ektedir.

Kod: [Seç]

Private Sub TextBox1_LostFocus()
Dim sat As Long, i As Long
Rows("2:65536").Hidden = False
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
If TextBox1.Text = "" Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To sat
    If WorksheetFunction.CountIf(Range("B" & i & ":D" & i), TextBox1.Text & "*") = 0 Then
        Rows(i).Hidden = True
    End If
Next i
Application.ScreenUpdating = True
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

teşekkür ederim sağolun.