Değişken hücre aralığını kopyalama makrosu

[Seli]

Merhaba arkadaşlar,

Ben x e tanımlı bir aralık oluşturdum bu şekilde ;
x = Sheets("Güncel Proje Takibi").Range("B2").End(xlDown).Row
Sheets("Güncel Proje Takibi").Range("B3:C3" & x).Select
Selection.Copy

Ancak aşağıdaki gibi tekli aldığım zaman aralığı çalışmıyor. Yardımcı olabilir misiniz? Böyle bir şey oluyor mu?
Şimdiden teşekkürler.

Sheets("Güncel Proje Takibi").Range("E3" & x).Select
Selection.Copy

 

[Korhan Ayhan]

Merhaba,

Koyu renkli bölüm olmamalı..

Sheets("Güncel Proje Takibi").Range("E3" & x).Select

Ayrıca işlem yapmak için seçme (Select) yapmanıza gerek yoktur. Aşağıdaki gibi yazabilirsiniz.

Sheets("Güncel Proje Takibi").Range("E" & x).Copy

 

[Seli]

Çok teşekkür ederim, ama ben E3 İLE E dolu hücreye kadar kopyalamasını istiyorum, bu şekilde E1 den başlamaz mı?

 

[Korhan Ayhan]

Ben verdiğiniz koda göre örneklendirmiştim.

Hücre aralığı için aşağıdaki gibi yazabilirsiniz.

Sheets("Güncel Proje Takibi").Range("E3:E" & x).Copy