Listeleme

[gokdag]

Örnek dosya ektedir. Yardımcı olursanız sevinirim

 

[Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Intersect(Target, [b5]) Is Nothing Then Exit Sub
Cells(65536, 7).End(xlUp).Offset(1, 0).Value = Target
End Sub

 

[Korhan Ayhan]

Selamlar,

Ali beyin çözümüne ek olarak aşağıdaki kod ile sıra numarasıda verdirebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B5]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target <> "" Then
    SATIR = IIf([G65536].End(3) = "", [G65536].End(3).Row, [G65536].End(3).Row + 1)
    Cells(SATIR, "F") = WorksheetFunction.Max([F:F]) + 1
    Cells(SATIR, "G") = Target
    End If
End Sub

 

[gokdag]

Yardımlarınız için çok teşekkürler