Sutunları Kopyalamak

[Mikdad]

Selamun aleykum dostlarım,
Excel
Rapor isimli sayfamın b, d,k,f ve y sutunlarını olduğu gibi
Karar isimli sayfamda a,b,c,d, ve e sutunlarına kopyalamak istiyorum.
buradaki amaç rapor dosyasına ne kadar veri girersem gireyim otomatik olarak veya bir buttona tıklama ile karar sayfasına o verilerin gitmesi

rapor sayfası karar sayfası
b = a
d = b
k = c
f = d
y = e

bu şekilde yapmak mümkün mü arkadaşlar

 

[Muzaffer Ali]

Aleykümselam.
Aşağıdaki kodlar ile kopyalama yapabilirsiniz.

Sub Kopyala()
    Worksheets("Rapor").Range("B:B,D:D,K:K").Copy Worksheets("Karar").Range("A1")
    Worksheets("Rapor").Range("F:F,Y:Y").Copy Worksheets("Karar").Range("D1")
End Sub