Satırlar tamamlandığında sayfa 2'ye taşınsın

[temizerb]

Hatalı Dosya

Ömer Hocam selam,

Seni uğraştırıyorum farkındayım ancak sıkıntı benim için büyük dosyayı ekledim.
Dosyanın işleyişi ; A-B-C-E-H ve J kolonu manuel yazılıyor, D Kolonu Vlookup ile çalışıyor. F-G-I-J-L ve M kolonları Data Validation ile seçiliyor.

Hata ; Kodları kopyaladıktan sonra A kolonuna isim yazdıktan sonra diğer kolonları dolduramıyorum.

Dosya ek'te.

 

[temizerb]

Dosya Hata Veriyor

Merhaba,

Kodları kopyaladım ancak hata veriyor, yardımcı olursanız sevinirim.

 

[Ömer]

Bu şekilde denermisiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bak As Range, S2 As Worksheet, son As Long
Set S2 = Sheets("Sheet2")
On Error Resume Next
Application.ScreenUpdating = True
ActiveSheet.Unprotect "1"
If Intersect(Target, [A:M]) Is Nothing Then Exit Sub
Application.MoveAfterReturnDirection = xlToRight
son = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
Set Bak = Range("A" & Target.Row & ":M" & Target.Row)
If Target.Column = 1 Then Exit Sub
    Application.EnableEvents = False
        If Target.Offset(0, -1) = "" Then
            Target.ClearContents
            Range("A" & Target.Row).End(xlToRight).Offset(0, 1).Select
        End If
        If WorksheetFunction.CountA(Bak) = 13 Then
            Bak.Copy S2.Range("A" & son)
            Rows(Target.Row).Delete
        End If
    Application.EnableEvents = True
ActiveSheet.Protect "1"
Application.ScreenUpdating = True
End Sub

.