bir sayfadan diğerine veri kopyalama

[khanruler]

Sayfa 1 deki A3'ten başlayan verilerin kaç satır varsa (boş satır görene kadar) Sayfa 2 deki E16'dan itibaren alt altta aynı şekilde kopyalanmasını ve bi önceki sütunda 1'den başlayarak numaralandırılmasını istiyorum. (userformda bir butona bastığımda bu işlem gerçekleşecek)

örnek: A16=1 E16=E3, A17=2 E17=CRCI, A18=3 E18=F16.... gibi

Not: Sayfa 2 de E ve F sütunu birleşik hücre olduğu için genelde hata aldım kopyalarken ekteki dosya üzerinde denerseniz sevinirim yardımlarınızı bekliyorum

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Dim i As Long, son As Long
Application.ScreenUpdating = False
Sheets("Sayfa 2").Select
sat = 16
son = Cells(65536, "E").End(xlUp).Row
If son < 16 Then GoTo atla
Range("A16:A" & son & ",E16:E" & son).Value = Empty
atla:
With Sheets("Sayfa 1")
For i = 3 To .Cells(65536, "A").End(xlUp).Row
    Cells(sat, "A").Value = sat - 15
    Cells(sat, "E").Value = .Cells(i, "A").Value
    sat = sat + 1
Next i
End With
Application.ScreenUpdating = True
MsgBox "Akatrma tamamlandı."
End Sub

 

[khanruler]

teşekkürler aradığım buydu

 

[ertuer]

Sayın Evren Gizlen
Benim de uzun süredir forumda ceabını alamadığım bir aktarma dosyam var Eğer ilgilenir
bir çözüm bulabilirsenizçok memnun kalacağım. emeğinize saygı ile selamlar.

 

[bilalakdeniz]

Evren Bey Merhaba, Bu yapmış olduğunuz makro nun satır olarak değilde sutün olarak kayıt yapması aktarması mümkünmü?