- Katılım
- 20 Ekim 2005
- Mesajlar
- 299
- Excel Vers. ve Dili
- excel 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 28/06/2023
arkdaşlar siteden yaralanarak kullandığım macro sayfayı ototatik şifreleme ve süzme işemi yapıyor oysa ben bulmuş olduğu satırı sarı renk yapsın istiyorum dosyam ektedir bakabirmisiniz kullanmış olduğum macro ise şu :
Private Sub TextBox1_Change()
On Error Resume Next
NO = TextBox1.Value
Set FC2 = Range("A2:W65000").Find(What:=NO)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value
If NO = "" Then
Selection.AutoFilter Field:=3
End If
End Sub
textbox a okul no girince bulunan satırı renki yapın istiyorum yada textbox a isim yzarak naıl buldurabiliriz
macronun orjinali ise şu şekilde :
Private Sub TextBox1_Change()
On Error Resume Next
ActiveSheet.Unprotect "aslan"
NO = TextBox1.Value
Set FC2 = Range("A8:R65000").Find(What:=NO)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value
If NO = "" Then
Selection.AutoFilter Field:=3
End If
ActiveSheet.Protect "aslan"
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
NO = TextBox1.Value
Set FC2 = Range("A2:W65000").Find(What:=NO)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value
If NO = "" Then
Selection.AutoFilter Field:=3
End If
End Sub
textbox a okul no girince bulunan satırı renki yapın istiyorum yada textbox a isim yzarak naıl buldurabiliriz
macronun orjinali ise şu şekilde :
Private Sub TextBox1_Change()
On Error Resume Next
ActiveSheet.Unprotect "aslan"
NO = TextBox1.Value
Set FC2 = Range("A8:R65000").Find(What:=NO)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value
If NO = "" Then
Selection.AutoFilter Field:=3
End If
ActiveSheet.Protect "aslan"
End Sub
Ekli dosyalar
-
60.5 KB Görüntüleme: 4