Ayrı sayfadaki sütunları alt alta başka sütuna kopyalama

[hertel]

Merhaba arkadaşlar.

Ben ayrı ayrı sayfalarda, C ve D sütunlarında kayıtlı olan dolu hücreleri, başka sayfadaki C ve D sütununa alt alta boşluk kalmayacak şekilde sıralamak istiyorum. Yaklaşık 250 sayfa olduğu için bunları tek tek kopyalayıp yeni sayfadaki sütuna yapıştırmak hem zahmetli hem de zaman alıyor. Bunun için nasıl bir formül uygulamam gerekir?

Teşekkürler.

 

[Orion1]

Örnek dosya ekleyiniz.

 

[hertel]

Özür dilerim. Acemiyim. Hemen ekliyorum.

https://www.dosyaupload.com/5jes

 

[Orion1]

Aktarılacak sayfa en son sayfa olmalı.
Aktarılan sayfadaki e:f sütunu önce silinip sonra aktarma yapılmaktadır.
Dosyanız aşağıdaki linktedir.

Sub kopyala59()
Dim i As Integer, sonsat1 As Long, sonsat2 As Long
Sheets("TAŞINACAK SAYFA").Select
Range("E:F").ClearContents
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count - 1
    sonsat1 = Sheets(i).Cells(Rows.Count, "E").End(xlUp).Row
    sonsat2 = Cells(Rows.Count, "E").End(xlUp).Row + 1
    Sheets(i).Range("E1:F" & sonsat1).Copy Range("E" & sonsat2)
Next
Application.ScreenUpdating = True
MsgBox "Veriler kopyalandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

DOSYAYI İNDİR

.

 

[hertel]

Aktarılacak sayfa en son sayfa olmalı.
Aktarılan sayfadaki e:f sütunu önce silinip sonra aktarma yapılmaktadır.
Dosyanız aşağıdaki linktedir.

Sub kopyala59()
Dim i As Integer, sonsat1 As Long, sonsat2 As Long
Sheets("TAŞINACAK SAYFA").Select
Range("E:F").ClearContents
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count - 1
    sonsat1 = Sheets(i).Cells(Rows.Count, "E").End(xlUp).Row
    sonsat2 = Cells(Rows.Count, "E").End(xlUp).Row + 1
    Sheets(i).Range("E1:F" & sonsat1).Copy Range("E" & sonsat2)
Next
Application.ScreenUpdating = True
MsgBox "Veriler kopyalandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

DOSYAYI İNDİR

.

Muhteşem çözüm oldu. İnanın bu kadar çabuk çözülebileceğini düşünmüyordum. Engin bilginizi benimle paylaştığınız için teşekkür ederim. Emeğinize sağlık.

 

[Orion1]

Muhteşem çözüm oldu. İnanın bu kadar çabuk çözülebileceğini düşünmüyordum. Engin bilginizi benimle paylaştığınız için teşekkür ederim. Emeğinize sağlık.

Rica ederim.
İyi çalışmalar.