Sayfalar arasında 4'er atlayarak veri aktarımı

[ibrkose]

Sub REFERANSOLUŞTUR()
Dim i As Integer
On Error Resume Next
Worksheets.Add.Move After:=Worksheets("01 ANA SAYFA")
Sheets(2).Name = "02 PERSONEL"
Sheets(3).Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Destination:=Sheets(2).Range("A3")
For i = 4 To Sheets.Count
Sheets(i).Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Destination:=Sheets(2).Range("A1048576").End(xlUp)(2)
Next
Sheets("02 PERSONEL").Select
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:= _
xlNo
End Sub

Bu makro PERSONEL sayfasından sonraki her sayfanın A Sütunundaki bilgileri PERSONEL sayfasına yapıştırıyordu. Ancak kodu değiştirmem gerekiyor.

Şöyle ki;

PERSONEL sayfasına ilk olarak 5. sayfanın A : D sütun aralığındaki dolu hücreleri yapıştıracağım, sonra da en son sayfaya gelene kadar 4'er sayfa atlayarak aynı işlemi yapacağım.

Özetle 5, 9, 13, 17, 21, 25, ... sayfalardaki A : D sütun aralığındaki dolu hücreleri PERSONEL sayfasına alt alta yapıştırmak istiyorum.

Yardımcı olursanız sevinirim. İlginize şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Örnek dosya hazırlamalısınız...

. . .

 

[ibrkose]

Örnek dosyayı e-postanıza gönderdim

Örnek dosyayı e-postanıza gönderdim. İlginize şimdiden teşekkür ediyorum.

 

[Emir Hüseyin Çoban]

. . .

Küçücük bir araştırma ile siteye dosya ekleme yolunu bulabilirsiniz...

Özelden talep edilen destekler için ücret alıyorum...

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.

. . .

 

[ibrkose]

Değerli kardeşim. Problemin konusu "belgeye dosya ekleme" değildi. Emin olunuz ki konuyu çözmek için gerek forum sayfasında gerekse başka platformlarda en az 1 gün araştırma yaptım. Yine de vaktinizi aldığım için özür dilerim.

Bu arada sorunu kendim çözdüm. İlginize teşekkür ederim.