Dosyanız ektedir.:cool:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long, sut As String
If Intersect(Target, [C2:C3]) Is Nothing Then Exit Sub
If Target = "" Then
İLK_VERİ = Empty
If Target.Row = 2 Then Range("F4:F23") = Empty
If Target.Row = 3 Then Range("G4:G23") = Empty
Exit Sub
End If
If IsNumeric(Target) Then
If Target.Row = 2 Then
sat = Cells(65536, "F").End(xlUp).Row + 1
sut = "F"
ElseIf Target.Row = 3 Then
sat = Cells(65536, "G").End(xlUp).Row + 1
sut = "G"
End If
Cells(sat, sut).Value = Target.Value
Application.EnableEvents = False
Target = İLK_VERİ + Target
Application.EnableEvents = True
End If
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]