5'den büyük olanları say

[xlsx]

Slm arkadaşlar
A sütununda Malzeme Adı ve hemen devamında seri numaraları var.
(Örneğin Malzeme1, Malzeme6 gibi)
Countif ile "Malzeme1" i saydır diyerek toplam sayı miktarını buluyorum.
Malzeme 2 için de aynı şekilde.
Benim isteğim şu. Malzeme 5 Malzeme 19 gibi sonu 5'den büyük olanları tek bir başlık altında toplayıp yine toplam 5den büyükleri bulmak
Saatlerce çok uzun formüller yazdıktan sonra basit bir konuda takılı kaldım
Yardımınızı rica ederim.

 

[Ali]

Ekteki gibi birşeymi istiyorsunuz. B1 hücresine yazdığınız değerden büyük olanlar listelenir.

 

[xlsx]

Ekteki gibi birşeymi istiyorsunuz. B1 hücresine yazdığınız değerden büyük olanlar listelenir.

Slm Ali Bey,
Örnekte gösterdiğiniz yöntem gerçekten güzel bir mantık ama ben C ve D sütunlarında ek formül alanları kullanmadan Malzeme5 sonundaki 5 seri numarasından sonsuz büyüklüğe kadar olan mevcut veriyi saydırmak istiyorum.

 

[Ali]

Bir dosya eklese idiniz daha rahat anlaşılır olurdu.

 

[xlsx]

dosya

dosya ekleme ile ilgili ufak bir sorunum var ekleyemedim
ama yine de ilginiz için teşekkürler

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[xlsx]

Selam Rar dosyalarını açamadığım için daha sonra farklı PC'de kontrol edip bilgi vereceğim ;ilginiz için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekte normal excel dosyası formatında olan halini incelermisiniz.

 

[ulashcan]

Ekteki gibi birşeymi istiyorsunuz. B1 hücresine yazdığınız değerden büyük olanlar listelenir.

Ekledğiniz Excel dosyasını inceledim. Benim işime çok yarayacak bir fonksiyon barındırıyor. Ancak istediğim şey buldıuğu değeri değil, filanca sütun yanındaki değeri getirmesi.


Diyelim ki belli bir aralıkta arama yapacak, hücre değeri 3'den düşük (veya yüksek) olanların iki sağındaki (bazen solundaki de olabiliyor) değeri bulup getirsin... Ancak arada boş hücre bulursa bunu 0 olarak algılamasını istemiyorum.

Elimde bir makro modülü şeklinde bu kodlar olsa, söz konusu işlemi gerçekleştirmem gereken çalışma kitaplarına ekleyip işlerimi kolaylaştırabilirdim.

Rica etsem, dosyayı bu şekilde güncelleyebilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Sn. ulashcan örnek dosya ekleyerek ne demek istediğinizi açıklarmısınız.

 

[ulashcan]

Şöyle..
1- A sayfasında belli bir aralıkta ( Örnek B4:B30) ne var ne yok aramalı,
2- A sayfasında ilgili aralıkta bulduğu her bir x, y, z değerini, tek tek B sayfasında belli bir aralıkta (Örnek D2 : D50) aramalı,
3- A sayfasında bulduğu değeri, B sayfasında da bulup, B sayfasındaki x, y, z değerinin bulunduğu hücrenin belli bir miktar sağında yada solunda olan değeri getirip A sayfasındaki x, y, z değerinin belli miktar sağına yada soluna yazmalı.

Basit bir örnek dosyayı ekliyorum.

Örnekte sadece yılın aylarını verdim ama asıl kullanacağım dosyada ay isimlerinin yerini yüzlerce soru ve soru numaraları alacak.

Yani A sayfasında 141 nolu soruyu tespit ettiğinde, B sayfasından 141 Nolu soruyu bulup, yanındaki hücre değerini getirecek ve A sayfasında 141 Nolu soruyu bulduğu hücrenin yanına yazacak. A sayfasındaki soru numaraları ve yerleri sabit değil, her uygulama için ayrı bir sıralama söz konusu oluyor.

A sayfasını bir öğrencinin sınavda yanlış yaptığı soruların listesi, B sayfasını ise Doğru cevap anahtarı gibi düşünebilirsiniz. Her öğrenci için A sayfasına sadece yanlış cevap verdiği soruların numarası yazıyor, makro çalıştırıldığında öğrencinin hangi sorulara yanlış cevap verdiği A sayfasında tespit edilip ilgili soruların cevapları B sayfasındaki doğru cevap anahtarından alınıyor ve A sayfasında ilgili sorunun yanına yapıştırılıyor.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre sizin istediğiniz özelliği DÜŞEYARA fonksiyonu karşılayacaktır.

D4 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=DÜŞEYARA(B4;'B sayfası'!$D$3:$F$14;3;0)

Eğer sonucu sol tarfta görmek isterseniz. A4 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=İNDİS('B sayfası'!$D$3:$F$14;KAÇINCI(B4;'B sayfası'!$D$3:$D$14;0);3)

 

[ulashcan]

Tamam oldu, biraz inceleyip denemeler yapayım ayrıntılı bilgi veririm.

 

[ulashcan]

Evet, tam istediğim gibi oldu. Çok teşekkür ederim.

 

[ulashcan]

Bir başka fonksiyona daha ihtiyacım var. Yardımcı olursanız çok sevineceğim.

Yukarıdaki örneklerden biraz farklı, yukarıdakileri değiştirip uydurmaya çalıştım ama beceremedim.

Ekteki dosya içinde gerekli açıklamayı yaptım, normalde dosyada sadece "Base" sheeti oluyor, Base sheetinde E Sütununu tarayıp Skor puanı 2 ve daha küçük olanların 3 hücre sağındaki açıklamayı, yeni açacağı "Yanlışlar" sheetine alt alta yazmasını istiyorum.

 

[Ali]

Örnek dosyanız ektedir.

Sarı alandaki formüller dizi formülü olup formül çubuğunda iken direk enter tuşuna basılmadan CTRL+SHIFT+ENTER tuşlarına basılarak dizi formülü oluşturulmuştur.

Not:Excel { } ayıraçlarıını formül başına ve sonuna otomatik olarak ekleyecektir.

 

[xlsx]

tşk

Selamlar,

Ekte normal excel dosyası formatında olan halini incelermisiniz.

tam anlamıyla istediğim buydu, elinize sağlık arkadaşlar.
çok makbule geçti

 

[ulashcan]

Sayın Ali Bey, verdiğiniz dosyadaki yanlışlar sheetini başka bir dosyaya kopyaladım, formüllerde geçen sheet ismini yenisiyle değiştirdim ancak sonuç alamadım.

Her biri farklı ada sahip çalışma kitabında ayrı ayrı bu açıklamaları listeleme işini yapmam gerekiyor. Dosyaların tek ortak noktası Base adındaki sheet vesütunların yeri değişmiyor.

Mümkünse bu fonksiyonu makro modülü haline getirebilir misiniz? Böylece her bir farklı dosyada import ederek makroyu çalıştırabilir ve söz konusu açıklamaları listeleyebilirim. Eğer makro yapılamıyorsa, yanlışlar sheetini kopyalayıp sonuç alabileceğim bir yöntem var mı?

Eke gerçekte kullanacağım dosyalardan birini ve yanına sizin hazırladığınız yanlışlar sheetini koydum, şirket kuralları gereği tam dosyayı gönderemiyorum ancak formatı bozmadan sadece kelimeleri xxx ile sansürledim. Yanlışlar sheetini kopyaladığımda gereken açıklamaları listeleyemedi, sorun nerede acaba?

 

[Ali]

Aşağıdaki kodları bir modüle ekleyip çalıştırınız.

Sub aktar()
Dim b
Sheets("Base").Select
b = 2
For Each secim In Worksheets("Base").Range("H14:H184")
If secim <> "" Then
b = b + 1
Worksheets("Yanlışlar").Cells(b, 3) = secim
End If
Next
MsgBox "Veriler aktarıldı"
End Sub

 

[ulashcan]

Allah razı olsun, tamı tamına istediğim şeyi yaptı, harika... :hihoho: