karşılaştırmalı say

[abdullahss]

yapmak istediğim hücredeki verileri sayıp altlarınıa toplam almak .hücre verileri degişken .konu hakkında uzman arkadaşlar yardımcı olabilirmi.

 

[asi_kral]

yapmak istediğim hücredeki verileri sayıp altlarınıa toplam almak .hücre verileri degişken .konu hakkında uzman arkadaşlar yardımcı olabilirmi.

Merhaba
E sütunu için

=TOPLA.ÇARPIM(($E$1:$E$6<>"")/EĞERSAY($E$1:$E$6;$E$1:$E$6&""))&" Renk"

H sütunu için

=TOPLA.ÇARPIM(($H$1:$H$6<>"")/EĞERSAY($H$1:$H$6;$H$1:$H$6&""))

Bu formülleri kullanın.

 

[abdullahss]

sayın asi kral bunu makroyla yapmak mümkünmüdür.

 

[snx111]

=TOPLA.ÇARPIM(($H$1:$H$6<>"")/EĞERSAY($H$1:$H$6;$H$1:$H$6&""))

bu <>"" işaret sonucu değiştiriyor hücre zaten dolu ama neden ?

 

[asi_kral]

sayın asi kral bunu makroyla yapmak mümkünmüdür.

Merhaba
Bu kod merakı nereden geliyor bilmiyorum ama umarım işinize yarar.

Option Explicit
Sub saydır_1967()
'Konu       :   İkili Saydırma
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim SAT As Long, RENK As Long, SAY As Long
RENK = 0: SAY = 0
For SAT = 1 To Cells(Rows.Count, "E").End(xlUp).Row - 1
With WorksheetFunction
If .CountIf(Range("E1:E" & SAT), Cells(SAT, "E")) = 1 Then
RENK = RENK + 1
End If
If .CountIf(Range("H1:H" & SAT), Cells(SAT, "H")) = 1 Then
SAY = SAY + 1
End If: End With: Next
Cells(Cells(Rows.Count, "E").End(xlUp).Row, "E") = RENK & " Renk"
Cells(Cells(Rows.Count, "H").End(xlUp).Row, "H") = SAY
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[asi_kral]

=TOPLA.ÇARPIM(($H$1:$H$6<>"")/EĞERSAY($H$1:$H$6;$H$1:$H$6&""))

bu <>"" işaret sonucu değiştiriyor hücre zaten dolu ama neden ?

Merhaba
http://www.excel.web.tr/f120/benzersiz-veri-adeti-bulma-yontemi-t22540.html Bu link işinizi görür sanırım.

 

[snx111]

Linki biraz inceledim sanki açıklaması olmayan ama Çalışan bir formül ; zararsız bir bug gibi birşey :S

 

[Merhum İdris SERDAR]

Linki biraz inceledim sanki açıklaması olmayan ama Çalışan bir formül ; zararsız bir bug gibi birşey :S

.

Öyle bug falan değil.

Formülün çalışma mantığı var.

Örnek dosya ekte.

Örnek dosyayı incelersek:

Dizi formül kullanmadan:

C2 hücresine:

=1/COUNTIF(Liste;B2)

formülünü yazıp aşağıya çektiğimizde, listede yer alan adların, liste içinde ağırlıkları çıkar. Bu ağırlıkları topladığımızda ise, benzemeyenlerin adedini verecektir.

Şimdi bunu dizi formülü şeklinde yazarsak:

=SUM(1/COUNTIF(Liste;Liste))

dizi şeklinde yazıp ağırlıkları topluyoruz.

veya:

=SUMPRODUCT(1/COUNTIF(Liste;Liste))

Eğer belirlediğimiz alanda boşluklar varsa o zaman formül hatalı sonuç döndürecektir.

Bu nedenle formülü:

=SUM(IF(B2:B9<>"";1/COUNTIF(B2:B9;B2:B9&"")))

dizi

Veya:

=SUMPRODUCT((B2:B9<>"")/COUNTIF(B2:B9;B2:B9&""))

şeklinde kullanmamız gerekir.


.

 

[snx111]

syn yurttaş formül çalışmaz demiyorum say xlsm dosyasına syn asi nin =TOPLA.ÇARPIM(($H$1:$H$6<>"")/EĞERSAY($H$1:$H$6;$H$1:$H$6&"")) formülünü
j hücresine yapıştırdıgımızda sonuç doğru 3 ;

Ama zaten h1:h6 dolu olduğuna göre <>"" işaretini kullanmamız gereksiz öyle değilmi ? ; anladığım kadarıyla evet gereksiz <>"" bunu silince neden hatalı sonuç 6 verdiği aklıma takıldı sorum buydu ...

Bug olarak o olayı demek istedim..

 

[abdullahss]

sayın asi kral birkaç sayfamda kullanıcam işime yarayacak bir kod yardımlarınız için teşekkürler mantığını anladım şimdi.

 

[asi_kral]

sayın asi kral birkaç sayfamda kullanıcam işime yarayacak bir kod yardımlarınız için teşekkürler mantığını anladım şimdi.

Kolay Gelsin.