S

Çözüldü Makro ile tekli range tanımlama

  • Konuyu başlatan Konuyu başlatan selis
  • Başlangıç tarihi Başlangıç tarihi

selis

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
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
 
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.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(2 satır)

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.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)
 
Üst