Veri Aktarımı ve kayıt

[mrfq1]

Arkadaşlar çok araştırdım ve aradıklarımı farklı farklı buldum ama biraraya getiremedim.
Aradığım sayfa1 de verilen bilgileri kaydet tuşuna basınca diğer sayfalara kayıt etmesini istiyorum
Ekte verdiğim dosyada daha iyi anlattım yardımcı olursanız çoksevinirim 1 haftadır bununla uğraşıyorum.Şimdiden tşekkür ederim

 

[Orion1]

dosyanız ektedir.

Sub kaydet_59()
Dim sat1 As Long, sat2 As Long, i As Long
On Error Resume Next
Sheets("VERİ GİRİŞİ").Select
Application.ScreenUpdating = False
Range("A1").AutoFilter
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To Worksheets.Count
    sat2 = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row + 1
    Range("A1").AutoFilter field:=1, Criteria1:=Sheets(i).Name
    Range("A2:E" & sat1).SpecialCells(xlCellTypeVisible).Copy Sheets(i).Range("A" & sat2)
Next
Range("A1").AutoFilter
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "AKTARILDI"
End Sub

 

[mrfq1]

Orion1 öncelikle cevap yazdığın için teşekkür ederim
dosyayı test ettim fakat hata verdi
veri girişi kısmındaki tüm verileri silip tkrar veri girip kayıt et dediğimde hata veriyor.
Tekrar bir incelermisin

 

[mrfq1]

hata vediği satır :

Range("A2:E" & sat1).SpecialCells(xlCellTypeVisible).Copy Sheets(i).Range("A" & sat2)

 

[Orion1]

hata vediği satır :

Range("A2:E" & sat1).SpecialCells(xlCellTypeVisible).Copy Sheets(i).Range("A" & sat2)

2 nolu mesajdaki dosyayı tekrar güncelledim.
İndirip deneyiniz

 

[mrfq1]

Ellerine sağlık şimdi oldu son birşey daha isteyeceğim A sütununa ve geneline veri girmediğim zamanda A satırındaki menüyü kayıt yapıyor
A sütununun her hangibir satırına ve sayfanın genline veri girilmediği zaman uyarı verip kayıt yapmamasını sağlayabilirmisin.

 

[Orion1]

Ellerine sağlık şimdi oldu son birşey daha isteyeceğim A sütununa ve geneline veri girmediğim zamanda A satırındaki menüyü kayıt yapıyor
A sütununun her hangibir satırına ve sayfanın genline veri girilmediği zaman uyarı verip kayıt yapmamasını sağlayabilirmisin.

Veri doğrulama yaptım.
Dosyayı 2 nolu mesajdan indirebilirsiniz.

 

[mrfq1]

Teşekkür ederim