Sütundaki Dolu Hücreleri Seçmek

[baysevimli]

Merhaba Arkadaşlar,

D,E,F,G,H,I olmak üzere toplam 6 sütunumda verilerim var. Ben istiyorum ki bu sütunlarımdan aşağıya doğru boş olan hücrelere kadar dolu olan hücreleri seçsin. Yardımcı olabilir misiniz ?

 

[savas_145]

seçsin derken nasıl bir seçimden bahsediyorsunuz yazdığınız pek açık değil.
tek tek tüm sütunlar en son dolu olan hücreye kadar seçilsinmi istiyorsunuz. yada tüm sütunlardaki en son verinin bulunduğu satırlar aynı da 6 sütun birden en son dolu olan hücreye kadar seçilsin mi istiyorsunuz. bu sütunlardaki veriler sabit mi. yoksa satır sayıları değişebilir mi
biraz daha açıklayıcı olun ve mümkünse ne istediğinizi anlatan bir dosya örneği paylaşın

 

[baysevimli]

Savaş Bey,

Maalesef örnek excel paylaşamıyorum.Ama aşağıda ekran görüntüsü paylaştım. İstediğim tam olarak şu, D,E,F,G,H,I sütunlarımdaki dolu olan satırlara kadar seçecek.

mesala resimde D17 ile I17 arası dolu ben bu aralığı kopyalasın istiyorum. Önemli bir konu verilerim sabit değil bazen 17 satır bazen 100 satır olabiliyor. dolu olan hücreleri seçsin istiyorum.

Yardımlarınız için teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
son = Cells(Rows.Count, "D").End(3).Row
Range("D1:I" & son).Select
End Sub

. . .

 

[baysevimli]

Emir Bey,

Denedim yalnız, aşağıdaki gibi tüm sütunları seçti yani boşlarıda seçti. Ben sadece boş satıra kadar seçsin istiyorum.

 

[Emir Hüseyin Çoban]

. . .

D sütununda formül olabilir mi veya tablonun sonunda toplam aldırılmış olabilir mi.

http://www.excel.web.tr/f59/rnek-dosya-hazyrlarken-dikkat-edilmesi-gerekenler-t134225.html

. . .

 

[baysevimli]

Emir Bey,

Evet tüm boş ve dolu sütun, satır ve hücrelerimde formül var.

 

[savas_145]

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("D2").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Range("A1").Select
End Sub

bunu bir denermisin makro olarak hazırladım.
denemesini yaptım rengi değil sadece girdiyi seçti. fakat a ve c sütunlarında da verilerin var c sütunundan sonra bir sütun boşluk bırakırsanız ve 1 satırından sonra yine bir boşluk bırakırsanız ve makronun Range("D2").Select satırını Range("E3").Select ; olarak değiştirirseniz sorunsuz çalıştırması lazım. biraz sıkıntılı gibi ama daha iyi bir sonuç bulana kadar kullanabilirsin

 

[baysevimli]

Savaş Bey,

Maalesef olmadı. Emir bey tam istediğim kodu yazdı ama boş hücrelerimi de seçiyor. Çünkü formüller var boş hücrelerde.

 

[savas_145]

Savaş Bey,

Maalesef olmadı. Emir bey tam istediğim kodu yazdı ama boş hücrelerimi de seçiyor. Çünkü formüller var boş hücrelerde.

tekrar bir düzenleme yaptım. tekrar 8. mesaja bakarmısınız

 

[baysevimli]

Savaş Bey,
Test ettim olmadı. D ile I sütunlarından aşağı doğru boş hücelere kadar olan alanı seçsin istiyorum. Not: Boş hücrelerimin hepsinde formül var.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    son = Evaluate("=LOOKUP(2,1/($D$1:$D$65536<>""""),ROW($D$1:$D$65536))")
    Range("D1:I" & son).Select
End Sub

. . .

 

[PLİNT]

Merhaba
Alternatif olarak denerseniz;

Set x = [D:I].Find("*", LookIn:=xlValues, SearchDirection:=xlPrevious)
 Range("D1:I" & x.Row).Select

 

[baysevimli]

Emir Bey,
Savaş Bey,
PLİNT,

Yardımlarınız için teşekkür ederim. Emir beyin 12 nolu mesajındaki kod ile denedim oldu.