Verileri Bir Boşluk Vererek Aktar

[baydeniro]

Merhaba arkadaşlar. Bir tablodaki verileri bir başka sayfaya kolon bazında ve aralarında bir kolon boşluk bırakılarak aktarılması sağlanabilir mi ?

Örnek dosya ektedir. İlgilenenlere şimdiden teşekkürler !!!

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Sheets("KAYIT").Select
Application.ScreenUpdating = False
Sheets("RAPOR").Range("A2:G65536").Clear
sonsat = Cells(65536, "B").End(xlUp).Row
Range("B2:B" & sonsat).Copy
Sheets("RAPOR").Range("A2").PasteSpecial
sonsat = Cells(65536, "C").End(xlUp).Row
Range("C2:C" & sonsat).Copy
Sheets("RAPOR").Range("C2").PasteSpecial
sonsat = Cells(65536, "D").End(xlUp).Row
Range("D2:D" & sonsat).Copy
Sheets("RAPOR").Range("E2").PasteSpecial
sonsat = Cells(65536, "E").End(xlUp).Row
Range("E2:E" & sonsat).Copy
Sheets("RAPOR").Range("G2").PasteSpecial
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[baydeniro]

Sayın Evren Gizlen yardımlarınız için çok teşekkürler. Başarılarınızın devamını dilerim.

 

[Orion1]

Sayın Evren Gizlen yardımlarınız için çok teşekkürler. Başarılarınızın devamını dilerim.

Rica ederim.
İyi çalışmalar.