2 sayfaya birden kaydetmek

[aydgur]

Epeydir değerli katılımcıların yardımını alamıyorum,bir el atsanız da bitirsem.
Çeşitli ustalardan aldığım yardımlarla sayfalara aktarma sayfa açma gibi konularda sıkıntım yok.Fakat bu dosya datakıldım.

 

[Levent Menteşoğlu]

anasayfanın kod sayfasındaki kodu aşağıdaki ile değiştirerek deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("çek")
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
If Target = "ÇEK" Then
Sat = s1.[b65536].End(3).Row + 1
s1.Cells(Sat, "b") = Cells(Target.Row, "b")
s1.Cells(Sat, "c") = Cells(Target.Row, "a")
s1.Range("d" & Sat & ":k" & Sat) = Range("m" & Target.Row & ":s" & Target.Row).Value
End If
End Sub

 

[aydgur]

Değerli yardımlarınız için teşekkür ederim.