ben hücre değerine göre belirlenen satır aralığını süz

[vitaminb1]

'Option Explicit

Private Sub ComboBox2_Change()
On Error Resume Next
METİN1 = ComboBox2.Value
Set FC2 = Range("A2:A13").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=ComboBox2.Value
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub
ben hücre değerine göre süz kodu yapıştırdım. Süzme işlemini a25 kadar yapıyor.Bu süzme işleminin a2 ile a14 arası yapılmasını istiyorum.belge ektedir.

 

[Merhum İdris SERDAR]

'Option Explicit

Private Sub ComboBox2_Change()
On Error Resume Next
METİN1 = ComboBox2.Value
Set FC2 = Range("A2:A13").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=ComboBox2.Value
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub
ben hücre değerine göre süz kodu yapıştırdım. Süzme işlemini a25 kadar yapıyor.Bu süzme işleminin a2 ile a14 arası yapılmasını istiyorum.belge ektedir.

.


Dosyanız ekte.

.

 

[vitaminb1]

teşekkürler sayın yurttaş.yaptığınız işlemi kısaca açıklarmısınız çünkü bu ekldeiğim belge örnekti.ben bunu başka belgeye uygulayayacağım.birde 25 satırdan sonraki birkaç satır gizlen miş bunları açamadım neden acaba.