yazdıkça filtrelesin

[seyfiseval]

yardımlarınız için şimdiden teşekkürler.

yapamadığım yere açıklama ekledim.

 

[Ömer BARAN]

Merhaba.
Umarım yanlış anlamadım.
Alt taraftan TAKSİTLER sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan ekranda sağ tarafta mevcut olan kodları silip yerine aşağıdakileri ekleyin.

Aslında C2 hücresine, CARİLER sayfasındaki müşteri adlarını seçebileceğiniz VERİ DOĞRULAMA (LİSTE) uygulamanız daha doğru olur.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 3 And Target.Column = 7 And Target > 0 Then
        Cells(Target.Row, "I") = Format(Now, "dd.mm.yyyy hh:mm")
            ElseIf Target.Row > 3 And Target.Column = 7 And Target = 0 Then
                Cells(Target.Row, "I") = ""
                    Exit Sub: End If
                        If Target.Row = 2 And Target.Column = 3 And Target = "" Then
                        ActiveSheet.Range("$B$3:$I$1001").AutoFilter Field:=2
                    Exit Sub
                ElseIf Target.Row = 2 And Target.Column = 3 And Target <> "" Then
            ActiveSheet.Range("$B$3:$I$1001").AutoFilter Field:=2, Criteria1:=Target
        Exit Sub
    End If
End Sub[/FONT]

 

[seyfiseval]

arkadaşım eline sağlık Allah razı olsun tam istediğim buydu.