exell dosyasında 1 sayfada hazırlanmış bilgilerin aynı dosyadaki diğer çalışma sayfal

[belgint]

merhaba arkadaşlar;

exell olarak hazırlanmış bir dosyadaki çalışma sayfasına ait bilginin diğer çalışma sayfalarına aktarımını nasıl sağlayabilirim?bu konuda bir dosya hazırladım fakat sonuca ulaşamadım.yardımlarınıza şimdiden teşekkürler
iyi günler

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Dim syf As Worksheet, son_sat1 As Long, i As Long, sat As Long
Sheets(1).Select
son_sat1 = Cells(65536, "H").End(xlUp).Row
Application.ScreenUpdating = False
For i = 5 To son_sat1
    Set syf = Sheets(Cells(i, "H").Value)
        sat = syf.Cells(65536, "C").End(xlUp).Row + 1
        If sat >= 65533 Then
            MsgBox "[ " & syf & " ] İsimli syafada satır doldu..!!" & _
            "Kayıt Yapılmadı..!!", vbCritical, "UYARI"
            GoTo atla
        End If
            syf.Cells(sat, "C").Value = Cells(i, "F").Value
            syf.Cells(sat, "D").Value = Cells(i, "G").Value
            syf.Cells(sat, "E").Value = Cells(i, "C").Value
            syf.Cells(sat, "F").Value = Cells(i, "I").Value
            syf.Cells(sat, "G").Value = Cells(i, "K").Value
            syf.Cells(sat, "I").Value = Cells(i, "J").Value
            syf.Cells(sat, "J").Value = Cells(i, "M").Value
atla:
Next i
Application.ScreenUpdating = True
MsgBox "Aktarma tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[belgint]

sayın evren gizlen yardımlarınıza teşekkürler fakat ekte gönderdiğiniz dosya rar şeklinde ve exell format özelliğini yitirmiş olarak gözüküyo acab aben bir hata mı yaptım .tekarra gzö atarmısınız teşekkürler

 

[Orion1]

sayın evren gizlen yardımlarınıza teşekkürler fakat ekte gönderdiğiniz dosya rar şeklinde ve exell format özelliğini yitirmiş olarak gözüküyo acab aben bir hata mı yaptım .tekarra gzö atarmısınız teşekkürler

Dosyayı xls olarak kaydettim.Önceki mesajımdan inidrebilirsiniz.

 

[belgint]

Evren Bey TeŞekkÜrler.oldukÇa İyİ Oldu.fkat Her Bİlgİ GİrİŞİnde Aktar Denİnce MÜkerre Bİlgİ Aktarimi Yapiyor Bİrde Son Satira Aktarmasi Uygun Fakat Ben İlk Satirlari FormÜllemİŞtİm Ve 0 Olarak Bİlgİyİ Satir Dolu Algiliyo Oysakİ O BÖlÜmler De Bİlgİ Yok Daha Üst Satirdan BaŞlayabİlmem İÇİn FormÜlÜn Dİzaynini Nasil DÜzeltebİlİrİm.saygilar

 

[Orion1]

Evren Bey TeŞekkÜrler.oldukÇa İyİ Oldu.fkat Her Bİlgİ GİrİŞİnde Aktar Denİnce MÜkerre Bİlgİ Aktarimi Yapiyor Bİrde Son Satira Aktarmasi Uygun Fakat Ben İlk Satirlari FormÜllemİŞtİm Ve 0 Olarak Bİlgİyİ Satir Dolu Algiliyo Oysakİ O BÖlÜmler De Bİlgİ Yok Daha Üst Satirdan BaŞlayabİlmem İÇİn FormÜlÜn Dİzaynini Nasil DÜzeltebİlİrİm.saygilar

Bana mükererelik konusunda ilk soru sorduğunuızda bir şey söylememiştiniz.Dosyanızdada hatırladığım kadarı ile böyle bir istek yoktu?
Mükererlik hangi satırda hangi başlıkta aranacak?
Birde mükererlik kaydedilmezse tutarlar ne olacak ?

 

[belgint]

her aktarımda tüm bilgiyi daha önce aktarmamış gibi aktarıyor öyle bi sonuç olcağını düşünemediğimden daha önce söylememiştim.ikincisi satırı en son satıra aktarması tamm fakat aktarmasını sitediğim satır başlangıcı mümkünse üst satırlar olsun bunun için üstteki boş satırları temziliyorum budefa aktarım yapmıyor.üçüncüsüde yeni sayfa eklediğimde nasıl o sayfayada aktarım yapmasını sağlayacağım.sanırım çok yordum sizi ama henüz tamamlayamadım teşekkürler

 

[Orion1]

Mükerrerlik konusunu nasıl yapalım.kaydedileck Bütün hücdreler mükerrelik kontrolu yapılacaksa Çalışması ağırlaşır.
Kaç tane sayfa eklerseniz ekleyin farketmez.
Satır son atırın altına kaydediyor bu soruyu anlamdım.