ÇÖZÜLDÜ: Makrolu çözüm nasıl olur?

[YUSUF44]

Sanıyorum Sayfa1'deki kodlar derken diğer konudaki süzme kodlarından bahsediyorsunuz. iki kodun birleşimi aşağıdaki gibidir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B19:B1000, N19:N1000, G8, J8]) Is Nothing Then Exit Sub
If Target.Row = 8 Then
    If [G8] <= [J8] Then
        ActiveSheet.Range("A18").AutoFilter
        ActiveSheet.Range("$A$18:$O$500").AutoFilter Field:=1, Criteria1:=">=" & [G8] * 1, Criteria2:="<=" & [J8] * 1, Operator:=xlAnd
    End If
ElseIf Target.Column = 2 And Target = "FON ALIŞ" Then
    Target.Offset(0, 12).Select
ElseIf Target.Column = 14 Then
    Target.Offset(0, -7).Select
End If

End Sub

 

[assenucler]

Allah razı olsun ve binlerce kez teşekkürler

Sayın Yusuf44,


Dinlence gününüzde bile site üyelerine zaman ayırarak, hiç bir karşılık beklemeden ve herkesin yardımına koşarak, yardımcı olan bizlerin gönül dostlarısınız.

Önerdiğiniz çözüm kodu çok güzel çalışıyor.

Her şey gönlünüzce ve kazancınız bol olsun. Allah sizler gibi üstatlardan razı olsun.

İstanbul'dan Kula'ya selam, sevgi ve saygılar.

 

[YUSUF44]

Eyvallah, iyi çalışmalar.