Fazla olan veriyi bul not et. (Sütun içinde)

[Bora K]

Merhabalar
Aşağıdaki kriterlere haiz bir koda ihtiyaç
oldu yardımlarınızı bekliyorum lütfen.


F5:F11111 aralığı süzülecek.
En fazla hangi meyve ismi geçiyorsa
O isim J1 hücresine yazılacak.

Eşit olma gibi bir durum yok.

 

[Zeki Gürsoy]

Merhaba,

Alternatif çözümler olabilir. Ben ADO tercih ettim.

Sub test()
    cn = "driver={microsoft excel driver (*.xls)};dbq=" & ThisWorkbook.FullName
    
    Sql = "select top 1 f1, count(f1) as x from [sayfa1$f4:f11111] group by f1 order by count(f1) desc"
    
    Set rs = CreateObject("adodb.recordset")
    
    rs.Open Sql, cn
    
    [j1] = rs(0)
    
    rs.Close
    
    Set rs = Nothing
End Sub

 

[Bora K]

Sayın Gürsoy
başlığa gösterdiğiniz alaka için teşekkür ederim öncelikle.

Bu satırda hata verdi. rs.Open Sql, cn
Sanırım bendeki ayarlar ile alakalı.
ADO harici bir çözümün gelmesini ümid ediyorum.
Saygılarımla.

 

[suleyman242]

Merhabalar
Aşağıdaki kriterlere haiz bir koda ihtiyaç
oldu yardımlarınızı bekliyorum lütfen.


F5:F11111 aralığı süzülecek.
En fazla hangi meyve ismi geçiyorsa
O isim J1 hücresine yazılacak.

Eşit olma gibi bir durum yok.

Bora dünden beri bende sorunuza tek hücrede çözülecek cevap bekliyorum yardımcı sutunla yapılıyor işinize yararmı bilmiyorum; ama bende gerçekten tek bir hücrede çözümlenecek cevabı merak ediyorum, Saygılarımla.

 

[Bora K]

Merhabalar
Olmuş olsa dahi formül ile kullanma şansım yok maalesef.
Veriler kod yardımı ile diğer sayfadan geldiği için
ilgili alanda clear makrosu çalışmakta.

Uzmanlarımız başlığa gelirlerse mutlak yapacaklardır eminim.
Beklemeye devam edelim şimdilik.