Veri aktarmada istenilen sütuna gönderme ve otomatik sıra numarası

[casas]

Merhaba,
Arkadaşlar excel vba ile ilgili bi problemim var ekli dosyada resimlide anlattım.macro ile istediğim çalışma sayfasına gönderebiliyorum ama istediğim sutundaki verileri, dosya numaralı sayfada istediğim sütuna atmasını sağlayamadım.
ayrıca iki veri giriş sayfam olduğundan, otomatik sıra numarası problemim var. örneği ve macroları inceleyip yardımcı olabilirmisiniz. istirham ediyorum.

 

[Ömer]

Merhaba,

Bu şekilde denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [M3:M10]) Is Nothing Then Exit Sub
        Set S1 = Sheets("" & Target.Value & "")
        sat = S1.[B65536].End(3).Row + 1
            S1.Cells(sat, "a") = sat - 1
            S1.Cells(sat, "b") = Cells(Target.Row, "b")
            S1.Cells(sat, "c") = Cells(Target.Row, "c")
            S1.Cells(sat, "d") = Cells(Target.Row, "h")
            S1.Cells(sat, "e") = Cells(Target.Row, "g")
            S1.Cells(sat, "f") = Cells(Target.Row, "ı")
End Sub

.