Excel Tablo Kopyalama

[hlojan]

Merhaba

Hedef teki tablonun satırlarını temizleyip Kaynaktaki tablodaki A,B,E sütunlarını Hedefteki X,Y,Z ye kopyalamak istiyorum

Sadece Datalar kopyalanacak

Şimdiden teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim Alan As Range
    Sheets("Hedef").Range("C5:E10").ClearContents
    Set Alan = Union(Sheets("Kaynak").Range("C5:D10"), Sheets("Kaynak").Range("G5:G10"))
    Alan.Copy
    Sheets("Hedef").Range("C5").PasteSpecial xlValues
    Application.CutCopyMode = False
End Sub