EXCEL BOŞLUK GÖRENE KADAR SEÇME

[Alpeek]

Merhaba arkadaşlar. Excel'de makro için kullanacağım bir komut lazım. BİR SÜTUN DÜŞÜNÜN D4 hücresi ile başlayıp D35 hücresinde bitiyor. Bu ikisi arasında veriler var. D36 hücresinden sonra ise boşluklar mevcut. Bana şu komut lazım "D4 hücresinden başlayıp aynı sütunda boşluk görene kadar olan hücreleri seç" . Yardımcı olabilir misiniz? Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Sorunuzu tam anlayamadım. İstediğiniz bu mu?

Sub test()
    Range("D4", [D4].End(xlDown)).Select
End Sub

 

[hamitcan]

Bu şekilde deneyin.

Sub sec()
    Range("d4:d" & Cells(Rows.Count, 4).End(xlUp).Row).Select
End Sub

 

[Merhum İdris SERDAR]

.

Ben de Ömer bey gibi anladım.

Alternatif:

Sub sec()
    Dim s As Long
    s = Cells(4, 4).End(xlDown).Row
    Range("D4:D" & s).Select
End Sub

.

 

[Alpeek]

Teşekkür ederim hepinize. Çok fazla excele hakim değilim. Ömer Beyin cevabı işime yarar. Ancak bunun makro içerisine değil de hücre içerisine formüllü bir şekilde yazmamız mümkün müdür? (D4 hücresine tıklayıp =..... şeklinde)

 

[Ömer]

Sorunuz yine tam anlaşılmıyor. Daha detaylı açıklayınız.

 

[Alpeek]

Şöyle anlatayım en baştan. Öncelikle bir makro yazmak istiyorum. Ancak bu makroyu kodlama şeklinde değil de görünüm kısmından makro kaydet bölümüne gelerek bir kaç işlem yaparak yazacağım. Bu kaydın içerisinde de D4 hücresinden başlayarak aynı sütun içerisinde D4 hücresinden sonra gelen ilk boş hücreye kadar seçim yaptırmak istiyorum. Daha makro içerisinde bu seçimi farklı bir şekilde kullanacağım. Sizin bana gönderdiğiniz kod makro içerisine girilen kodlama kısmı. Bunun işime yaramayacağını düşünüyorum.

Sizin gönderdiğiniz kod bu işlemi yaptırıyor doğru. Ancak ben bunu örnek olarak normal bir hücre içerisinde nasıl "=C5+C8" gibi bir toplama işlemi yaptırabiliyorsam aynı şekilde yukarıda anlattığım D4 hücresinden aşağıya doğru olan seçme işlemini de hücre içerisine formül girerek yaptırmak istiyorum. Açıklayıcı olmuştur umarım. İlginiz için teşekkürler.

 

[Alpeek]

Şöyle anlatayım en baştan. Öncelikle bir makro yazmak istiyorum. Ancak bu makroyu kodlama şeklinde değil de görünüm kısmından makro kaydet bölümüne gelerek bir kaç işlem yaparak yazacağım. Bu kaydın içerisinde de D4 hücresinden başlayarak aynı sütun içerisinde D4 hücresinden sonra gelen ilk boş hücreye kadar seçim yaptırmak istiyorum. Daha makro içerisinde bu seçimi farklı bir şekilde kullanacağım. Sizin bana gönderdiğiniz kod makro içerisine girilen kodlama kısmı. Bunun işime yaramayacağını düşünüyorum.

Sizin gönderdiğiniz kod bu işlemi yaptırıyor doğru. Ancak ben bunu örnek olarak normal bir hücre içerisinde nasıl "=C5+C8" gibi bir toplama işlemi yaptırabiliyorsam aynı şekilde yukarıda anlattığım D4 hücresinden aşağıya doğru olan seçme işlemini de hücre içerisine formül girerek yaptırmak istiyorum. Açıklayıcı olmuştur umarım. İlginiz için teşekkürler.

Yine tam açıklayıcı olmadı sanırım. Örnek olarak herhangi boş bir hücreye tıkladığımı varsayın. Bu hücreye seçtiğim aralıktaki en büyük değeri girdirmek istiyorum. "=MAK(...................) ". Yani D4 hücresinden başlayarak aynı sütunda aşağıya doğru ilk boşluğu görene kadar seç ve bu seçilen hücrelerin arasından en büyük olanı bul. Benim asıl yaptırmak istediğim bu. Normal bir hücrenin içerisine bunu nasıl formüllü bir şekilde yazabiliriz? "=MAK(..?..)"

 

[Ömer]

D4 tıkladınız ilk boş hücre D10 olsun. D4: D10 arasını seçip =mak(d4:d10) değerini bulacak.

1- Seçim yapmadan da bu değer bulanabilir, neden seçim yaptırıyorsunuz.
2- Bulunan değer ne olacak.
3- Makro gibi değil demişsiniz, yani kodlar otomatik çalışsın mı istiyorsunuz. Yani D4 seçilince mi çalışsın. Eğer öyleyse bunun gibi başka seçim aralıkları var mı. Varsa hangileri.

Gelecek cevaplarınıza göre bu sorular daha da artacak gibi.

 

[Merhum İdris SERDAR]

.

Dinamik alan kullanın diyeceğim O da neyin nesi diyeceksiniz.

Buraya bakınız.

https://www.excelgurusu.com/dinamik-alan-dynamic-range/

Olmadıysa; bir örnek dosya ekleyin.

.

 

[Alpeek]

Ömer Bey ilginiz için gerçekten çok teşekkür ediyorum. D4 kesin başlangıç, her zaman sabit olduğunu düşünün. Ancak bitiş için net bir şey yok. Yani farklı excel kitaplarında bazen bitiş D10 iken bazen D15 bazen D20. Böyle yüzlerce excel dosyası var. Benim yaptırmak istediğim D4 hücresinden başlayıp aşağıya doğru ilk boş hücre gelene kadar sütunu seçmesi ve bunların içerisinden en büyük olanı bulması. Ve bu işlemi her excel kitabı için ayrı ayrı yaptırmak istiyorum. Manuel olarak yaptırabiliyoruz bu işlemi (bir excel dosyası için =mak(d4:d10) diğeri için =mak(d4:d15)). Benim istediğim bu işlemi manuel olarak değil ilk gönderide yazdığınız makro kodu gibi yapması. Yardımlarınızı bekliyorum.

 

[Alpeek]

D4 tıkladınız ilk boş hücre D10 olsun. D4: D10 arasını seçip =mak(d4:d10) değerini bulacak.

1- Seçim yapmadan da bu değer bulanabilir, neden seçim yaptırıyorsunuz.
2- Bulunan değer ne olacak.
3- Makro gibi değil demişsiniz, yani kodlar otomatik çalışsın mı istiyorsunuz. Yani D4 seçilince mi çalışsın. Eğer öyleyse bunun gibi başka seçim aralıkları var mı. Varsa hangileri.

Gelecek cevaplarınıza göre bu sorular daha da artacak gibi.

1-İşte seçim yapmadan bu =mak() formülünün içerisine d4'ten başlayıp ilk boş hücre gelene kadar olan yeri nasıl yazarız. Bunu bulursak sorum çözülür

 

[Alpeek]

Bu şekilde deneyin.

Sub sec()
    Range("d4:d" & Cells(Rows.Count, 4).End(xlUp).Row).Select
End Sub

Teşekkürler Hamit Bey

 

[Alpeek]

.

Dinamik alan kullanın diyeceğim O da neyin nesi diyeceksiniz.

Buraya bakınız.

https://www.excelgurusu.com/dinamik-alan-dynamic-range/

Olmadıysa; bir örnek dosya ekleyin.

.

Teşekkürler İdris Bey,

Dinamik alanın ne olduğu konusunda bir fikrim yoktu ancak sayenize öğrenmiş bulundum tekrar teşekkürler.

 

[Ömer]

İstediğiniz bu mu?
Dizi formülüdür. Formül çubuğuna formülü kopyaladıktan sonra entera basmadan ctrl+shift+enter tuşları ile girişini tamamlayın. Bu işlemden sonra formülün başına ve sonuna { } ayraçları otomatik eklenir.

=MAK(KAYDIR($D$4;;;MİN(EĞER($D$4:$D$1000="";SATIR($D$4:$D$1000)-SATIR($D$4)))))

 

[Alpeek]

İstediğiniz bu mu?
Dizi formülüdür. Formül çubuğuna formülü kopyaladıktan sonra entera basmadan ctrl+shift+enter tuşları ile girişini tamamlayın. Bu işlemden sonra formülün başına ve sonuna { } ayraçları otomatik eklenir.

=MAK(KAYDIR($D$4;;;MİN(EĞER($D$4:$D$1000="";SATIR($D$4:$D$1000)-SATIR($D$4)))))

Çok teşekkür ediyorum. Gerçekten tam istediğim gibi. Elinize sağlık.

 

[Ömer]

Rica ederim, iyi çalışmalar.