makro da satir gizleme

[murtiss]

Merhabalar,
hucre gizleme kodu olarak bu sitede buldugum
--
Sub gizle()
Range("A3:A532").EntireRow.Hidden = True
End Sub
--
kullanmaktayim
yapmak isteyipte yapamadigim textbox lar bos oldugu zaman a3 den a532 ye kadar olan satirlari gizlemesini istiyorum.
textbox lara veri girildigi zamanda zaten uygun verileri cagiriyor ve textbox daki aranacak veriyi sildigim zaman tekrar satirlarin gizlenmesini istiyorum

bu yukaridaki kodu nereye yazmam gerekiyor :S


Private Sub TextBox1_Change()
If Not IsEmpty(TextBox1) Then
ActiveSheet.Unprotect Password:=12345
[B2].AutoFilter Field:=2, Criteria1:="=" & TextBox1.Text & "*"
ActiveSheet.Protect Password:=12345, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ActiveSheet.Unprotect Password:=12345
If KeyCode = 9 Or KeyCode = 13 Then TextBox2.Activate
ActiveSheet.Protect Password:=12345, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

End Sub

 

[murtiss]

cevapsiz kaldi sorum