Excel Makroda kopyalamada nerde yanlış yapıyorum?

[Gokhanex]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Option Explicit

Sub CPY()
Dim x As Range
Dim y As Range
Dim z As Range
Dim A As Range


Set x = Worksheets("BİLGİLER").Range("b23,k40")
Set y = Worksheets("UYG. SÖZL").Range("b14")
Set z = Worksheets("ZZ").Range("b13")

Set A = Worksheets("EK 17-1").Range("Z12")

x.Copy
y.PasteSpecial
z.PasteSpecial
A.PasteSpecial




End Sub

 

Boyutu Değişen Tabloyu Farklı Sayfalara Kopyalama

10 Gün Kala Uyarı

[ExcelDepo]

Set x = Worksheets("BİLGİLER").Range("b23,k40")
Üsteki satırda yer alan b23,k40 hatalı.
Orada virgül yerine iki nokta üst üste kullanmalısınız.
Ama ezberden direk olarak Set x = Worksheets("BİLGİLER").Range("b23:k40") şeklinde tanımlanacağına da emin olamadım açıkası.

 

[Gokhanex]

Teşekkürler iki nokta koyunca çalıştı.