Bir stundaki x dışındaki veriyi seçtirmek

[mustafa7691]

Sn dostlar benim bir çalışmamda yapmaya çalıştığım stun boyunca 17 satırda eğer fonksiyonu ile oluşturduğum veriler var.burada "x" ,3p,10p,25p,50p,75p,95p,97p,yaş&boy hatası şeklinde sonuçlar çıkıyor.tabi bu 16 satırdan sadece birinde bu veri oluyor diğerlerinde "x"yazıyor.ben ben x dışında görünen değeri başka bir hücreye aktarmaya çalışıyorum ama nasıl yapacağımı bulamadım.açıkçası neyin benim işimi göreceğinide tam çıkaramadığımdan arama sonucuda bana yardımcı olmadı.bakıp fikir verebilirseniz sevinirim saygılar.

 

[hamitcan]

Eminim ki yerleşik fonksiyonlar ile de yapılıyordur ama ben çıkartamadım. Bu yüzden kullanıcı tanımlı fonksiyon ile yaptım. Diğer arkadaşlardan farklı çözümler de gelebilir.O zamana kadar bu fonksiyonu kullanabilirsiniz.

Function Xdisindakinibul()
Application.Volatile
For Each hucre In [n5:n21]
If hucre <> "X" Then Xdisindakinibul = hucre
Next
End Function

Kullanımı;

=Xdisindakinibul()

şeklindedir.

 

[Korhan Ayhan]

Selamlar,

Sorunuzu doğru anladığımdan emin değilim ama aşağıdaki formülü denermisiniz.

=DOLAYLI("N"&MAK(E&#286;ER(N5:N21<>"X";SATIR(N5:N21))))

Formülü ilgili hücreye yazdıktan sonra CTRL+SHIFT+ENTER tuşlarına basarak tamamlayın. Bu işlem ile formülü dizi formül haline getirmiş olacaksınız.

 

[mustafa7691]

sn cost control sizin çözümünüzü denedim ancak değer hatası verdi formülü tanımadığım için düzeltilebilirmi bilemiyorum yinede teşekkürler
Sn hamitcan anladığım vermiş olduğunuz kodukullanım biçimi konusunda yardımcı olurmusunuz.teşekkürler her ikinizede saygılar

 

[hamitcan]

Yazdığım fonksiyonu bir Module içine yerleştirin. "X" dışındaki değeri hangi hücrede görmek istiyorsanız, aşağıdaki formülü o hücre içine yazın yeterli.

=Xdisindakinibul()

 

[mustafa7691]

sn dostlar açıklamak ihtiyacı duydum.bu tabloda yaş ve boy durumuna göre çocukların gelişim değerlendirmesinde kullandığımız bir sonuç çizelgesindeki parametre elde ediliyor.yani tabloda çocuğun yaşı cinsiyeti ve boy ölçüsü girildiğinde 3p,10p,25p,50p,75p,90p,97p gibi tek bir parametre çıkıyor.
ben her yaş ve cinsiyet değerleri farklı olduğu için 16 satırda her yaş grubu için eğer formülü kullanarak sonuçları n5:n21 satırlarına aldırdım.girilen yaş/cins ve boya göre n5:n21 arasında sadece 1 satırda grekli değer görünüyor.diğer satırlar "x" yazıyor.bu "x" ilgili değil anlamında yani 0 da yapabilirdim.derdimde bu 16 satırı gizleyip çocuğun paramartesini persentil bölümündeki boy hanesinin altına (e5 hücresine )yazdırabilmek.saygılarımla

 

[mustafa7691]

sn hamitcan kod bazen çalışıp bazen çalışmıyor.anlamadım.yani herhangi bir x dışındakni bulmuşken değer değiştiğinde algılamıyor.

 

[hamitcan]

Kodu düzenledim. Bir daha dener misiniz?

 

[mustafa7691]

evet sn hamitcan şimdilik mükemmel çalışıyor.elinize sağlık çok teşekkürler saygılar

 

[mustafa7691]

sn hamitcan önceki yardımınıza teşekkür ederim.size ve tabi bakan diğer hocalarımdan beklentim bu kodon aynı sayfa içinde farklı hücrelerde tekrar kullanılıp kullanılamayacağı.ben buna benzer bir aratmayı farklı aralıklar için başka hücrelerdede yaptırmak istiyorum.lütfen yardımcı olurmusunuz.saygılarımla

 

[hamitcan]

Aşağıdaki şekilde dener misiniz? Tüm excel hücrelerinde arama yapar.

Function Xdisindakinibul()
Application.Volatile
For Each hucre In Cells
If hucre <> "X" Then Xdisindakinibul = hucre
Next
End Function

 

[mustafa7691]

hocam ben yanlış anlattım sanırım.ilk kodunuzu mükemmel kullanıyorum.sorun aynı sayfada farklı bir aralığı yine x dışındakini aratarak farklı bir hücreye yazdırmak istedim.yani tüm sayfayı aratmak değil .ilk kodunuzla a5 hücresi için mesele s18:s30 aralığını aratıp A5 hücresine yazdırıyorum.şimdi aynı sayfada s35:s45 aralığınıda taratıp b5 hücresine yazsın istiyorum.yani iki kodunda aynı anda çalışması mümkünmü demek istedim.umarım anlatabilmişimdir.teşekkür ve saygılarımla.

 

[hamitcan]

Function Xdisindakinibul(aralik As Range)
Application.Volatile
For Each hucre In aralik
If hucre <> "X" Then Xdisindakinibul = hucre
Next
End Function

 

[mustafa7691]

hocam onu zaten yapıyorumda ben aynı anda birkaç hücrede farklı aralıklar için kodun aktif olmasını istemiştim.teşekkürler

 

[hamitcan]

Kodu güncelledim. Bir daha bakın. Hangi aralıkta arama apmak istiyorsanız, formülde belirtmelisiniz.
=Xdisindakinibul(s3:s45) şeklinde.

 

[mustafa7691]

sn hamitcan sizi çok uğraştırdığımın farkındayım ancak hala anlatamadım sanırım.ben çok bilgili olmadığım için ifadelerim sizi yanlış yönlendiriyor sanırım.
şimdi;
=Xdisindakinibul(s3:s45)

bu kodu A5 hücresine yazdım diyelim.a5 hücresi s3:s35 arasında ilgili değeri buluyor.bu kısım tamam.
=Xdisindakinibul(l3:l45)

bu kodu bu sefer b5 hücresine yazıyorum.yani istediğim a5 deki aramada çalışsın ve b5 deki aramada çalışsın.yani aynı sayfada iki stunda arama yaptırmak işte bu olmuyor.a5 deki kod çalışıyor ama b5 çalışmıyor.yani iki ayrı hücrede farklı stunları aktif olarak taratamıyorum.Yani açıkça ve anladığım kadarıyla =Xdisindakinibul(s3:s45) makrosu iki tane yazılamıyor yadabu makro çoğaltılamıyor.ilginize sonsuz teşekkürlerimle

 

[hamitcan]

Sayın mustafa7691, kusura bakmayın ama açıklamalarınızdan ne yapmak istediğinizi tam olarak anlayamadım.Şunu belirteyim, aynı formül ile farklı sütunlarda, farklı aralıklar tanımlayarak arama yapmanız mümkün.Eğer bir formülün sonucundan diğer formülde yararlanmak istiyorsanız yada tek formül ile iki farklı sütunda arama yapmak istiyorsanız kodu değiştirmek gerekecektir.

 

[mustafa7691]

Sn hamitcan ve diğer sayın hocalarım.konuya bir süre boşluk verdim en azından forumda gezip örnek aramak yada farklı yolla çözüm bulabilmek için ama olmadı.özellikle sn hamitcan'ı yorduğumunda farkındayım.kendisinede çok teşekkür ederim.ancak hala sorunu çözemedim.sebebin anlatım hatam olduğunu düşünerek basitçe bir örnek dosya ekledim.vakit bulup bakar ve son bi fikir verebilirseniz memnun olurum.saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Daha önceki mesajımda size önermiş olduğum formülün en son eklemiş olduğunuz dosyaya uyarlanmış hali ektedir. İncelermisiniz.

 

[hamitcan]

Sayın COST_CONTROL, yerleşik fonksiyonlar ile güzel bir cevap vermiş. Size önerim bu fonksiyonu uygulamanız.
Benim verdiğim çözümdeki eksikliğim ise büyük-küçük harf duyarlılığından kaynaklanıyor.
Bu yüzden aşağıdaki şekilde bir düzenleme yaptım.

Function Xdisindakinibul(aralik As Range)
Application.Volatile
For Each hucre In aralik
If StrConv(hucre, vbUpperCase) <> "X" Then Xdisindakinibul = hucre
Next
End Function