• Web sitemizin SORU-CEVAP bölümünde dosya yüklemek ve dosya indirmek ÜCRETSİZ'dir.
    Gizlilik kapsamında, sadece site yöneticilerimizin ve üyenin kendisinin görebileceği ÜCRETLİ ÖZEL DESTEK alanımız mevcuttur.

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

REKLAM

selis

Yeni Üye
Kullanıcı
Yaş
24
Versiyon
  1. Ofis 365
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Çözüm
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.

C#:
Range("E3:E" & x + 2).Copy
[E3].Resize(x, 1).Copy

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.

C#:
Sub Once_KIRMIZI_Sonra_SARI_Boya()
x = 10
[E3].Resize(x, 1).Interior.Color = vbRed
Range("E3:E" & x + 2).Interior.Color = vbYellow
End Sub

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

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.
.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

selis

Yeni Üye
Kullanıcı
Yaş
24
Versiyon
  1. Ofis 365
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

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.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

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.

C#:
Range("E3:E" & x + 2).Copy
[E3].Resize(x, 1).Copy

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.

C#:
Sub Once_KIRMIZI_Sonra_SARI_Boya()
x = 10
[E3].Resize(x, 1).Interior.Color = vbRed
Range("E3:E" & x + 2).Interior.Color = vbYellow
End Sub
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Çözüm

selis

Yeni Üye
Kullanıcı
Yaş
24
Versiyon
  1. Ofis 365
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Çok çok teşekkür ederiiiim :)
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Benzer Konular

Üst