isteğe bağlı süz

[qwertylion]

slm arkadaşlar

süz fonksiyonunda birden fazla değer getirmek istiyorum. örneğin a sütununda 1'den 20'ye kadar rakam osun. ben bunlardan süz fonksiyonu ile örneğin 1,10,11,15 nolu satırları görmek istiyorum. Nasıl görebilirim Yardımcı olursanız sevinirim

 

[N.Ziya Hiçdurmaz]

Yanıt

Örneği inceleyiniz

Private Sub CommandButton1_Click()
Dim SUT As Integer
For SUT = 1 To ActiveSheet.UsedRange.Rows.Count
Cells(SUT, "A").EntireRow.Hidden = True
If Val(TextBox1) = Cells(SUT, "A") Or Val(TextBox2) _
= Cells(SUT, "A") Or Val(TextBox3) = Cells(SUT, "A") Or Val(TextBox4) _
= Cells(SUT, "A") Or Val(TextBox5) = Cells(SUT, "A") Then
Cells(SUT, "A").EntireRow.Hidden = False
End If
Next
End Sub
Private Sub CommandButton2_Click()
Dim SUT As Integer
For SUT = 1 To ActiveSheet.UsedRange.Rows.Count
Cells(SUT, "A").EntireRow.Hidden = False
Next
End Sub

 

[mega26]

elinde analitik hiyerarşi soruları olan varmı ?

 

[qwertylion]

anladığım kadarıyla ancak makroyla yapılabiliyor teşekkür ederim emeğinize sağlık