Sayıları süz

[nadirornek]

K sutunundaki sayıları hücreler yardımı ile süzdürmek istiyorum kod yardımı ile olabilirmi
M1 hücresine girdiğim sayıya karşılık gelen sayıları K sütununda süzmesini istiyorum.
M1 ve N1 hücrelerine sayı girdiğimde iki sayı arasındaki sayılara karşılıkgelen sayıları K sütununda süzmesini istiyorum.Teşekkürler

 

[vardar07]

sayfanın kod bölümüne ekleyin. M1 yada N1 hücrelerine değer girince çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Range("M1,N1")) Is Nothing Then Exit Sub
  ActiveSheet.Range("$J$1:$K$22").AutoFilter Field:=2 ', Criteria1:="32"
    ActiveSheet.Range("$J$1:$K$22").AutoFilter Field:=2, Criteria1:=[M1], _
        Operator:=xlOr, Criteria2:=[N1]
End Sub

 

[nadirornek]

Sorunun 1.şıkkı tamam güzel çalışıyor.M1 hücresine veri girildiğinde onu buluyor güzel.
Sorunun 2. şıkkı M1 ve N1 hücrelerine veri girildiğinde arasında kalan verileri bulaçak.
Örneğin M1 hücresine 3 N1 hücresine 8 yazdığım zaman 6 ve 7'yi bulaçak eğer aynı kod içerisinde çalışmıyorsa başka bir kodu yardımı ile M2 ve N2 hücrelerine tanımlayabilirmiyiz teşekkürler.

 

[vardar07]

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("M1,N1")) Is Nothing Then Exit Sub
  ActiveSheet.Range("$j$1:$K$22").AutoFilter Field:=2
  If [M1] = "" Or [N1] = "" Then
  ActiveSheet.Range("$j$1:$K$22").AutoFilter Field:=2
Else
    ActiveSheet.Range("$k$1:k22").AutoFilter Field:=2, Criteria1:="<=" & [N1], _
        Operator:=xlAnd, Criteria2:=">=" & [M1]
End If
End Sub

 

[nadirornek]

Teşekkürler çok güzel bir kod oldu