Makro ile tekli range tanımlama

Siz ne yapmak istediğinizi açıklayın.
Kod konusunda elbet fikrimizi söyleriz.

Maksatınız;
-- sadece E3 hücresini mi kopyalamak?
-- E3 hücresinden itibaren x kadar sağa doğru genişleyen alanı mı kopyalamak?
-- E3 hücresinden itibaren aşağı doğru x kadar genişleyen alanı mı kopyalamak?

Biçimi gerekli değilse, kopyalanacak yerden harektle değil, yapıştırılacak konumdan hareketle de kodama olabilir.
Yani KOPYALAMA şart olmayabilir de.
.

E3 hücresinden itibaren aşağı doğru x kadar genişleyen alanı mı kopyalamak evet,


x = Sheets("Güncel Proje Takibi").Range("B2").End(xlDown).Row
Burda x i aşağı doğru saydığı için E3 te de x aşağı doğru.

İkili seçince bir problem yok örneğin E3:D3 , ama sadece E3: ve aşağı doğru x kadar aralığını yapamadım.
Teşekkürler.

Aşağıdaki 2 kod satırıda aynı anlama gelmek üzere;
E3'ten itibaren (E3 dahil) x kadar hücreyi içine alan alanın kopyalanması anlamına gelir.
-- Birinci kod satırındaki +2 kısmı E3'teki 3'ün 1 eksiği.
-- İkinci satırda sütun olarak da alan genişletilmek istenirse Resize parantezindeki 1 sayısını (E3'ü 1 diye sayarak) artıracaksınız.


Aşağıdaki kod aynı alanı önce kırmızı, sonra sarıya boyar.
Kodu F8 tuşuna basarak adım adım çalıştırın.

Çok çok teşekkür ederiiiim