Merhaba,
Bir sütunda benzer değerleri sayan bir formüle ihtiyacım var. Korhan hocam sağolsun bunun için bana aşağıdaki kodu yazıp cevaplamıştı ve çok işime yaradı. Bunu fonksiyon kodu olmadan sadece formül ile saydırabilir miyiz? yardımcı olacaklara şimdiden teşekkür ederim.
Örnek: A1:A10 arasındaki hücreler içerisinde;
A1= Ahmet YILDIZ_Duygu BAYRAK_Derya ÇEVİK_Ankara
A2= Mesut DEMİR_Ali DURAK_Mehmet TAŞ_İzmir
A3= Feriha ANIL_Buse YAPRAK_Samsun
A4= Meltem DORUK_Mutlu YILDIZ_Semiha VAROL_İstanbul
A5= Hatice BAYRAM_Derya ÇEVİK_Bursa
A6= İsmail CAN_Gönül UYAR_Kaan ÇAĞLAR_Eskişehir
A7= Ali DURAK_Hatay
A8= Mutlu YILDIZ_Metin ÜNAL_Mersin
A9= Vahdet İNANÇ_Balıkesir
A10= Musa TOKCAN_Semiha VAROL_Ordu
A11= formül yazılıp mükerrer kelimeler sayılacak (kodsuz formül)
Örnekteki sütunda 4 adet mükerrer var. Böyle bir durumda nasıl bir formül yazılırsa aralarda bile olsa mükerrer kelimeleri sayabilir.
Korhan Hocanın yazdığı kod
Option Explicit
Function YİNELENENLERİ_SAY(Alan As Range, Optional Ayraç As String = "_")
Dim Veri As Range, Kelime As Variant, X As Long, Say As Long
Application.Volatile True
With CreateObject("Scripting.Dictionary")
For Each Veri In Alan
If Veri.Value <> "" Then
Kelime = Split(Veri.Value, Ayraç)
For X = LBound(Kelime) To UBound(Kelime) - 1
If Not .Exists(Kelime(X)) Then
.Add Kelime(X), Nothing
Else
Say = Say + 1
End If
Next
End If
Next
End With
YİNELENENLERİ_SAY = Say
End Function
Bir sütunda benzer değerleri sayan bir formüle ihtiyacım var. Korhan hocam sağolsun bunun için bana aşağıdaki kodu yazıp cevaplamıştı ve çok işime yaradı. Bunu fonksiyon kodu olmadan sadece formül ile saydırabilir miyiz? yardımcı olacaklara şimdiden teşekkür ederim.
Örnek: A1:A10 arasındaki hücreler içerisinde;
A1= Ahmet YILDIZ_Duygu BAYRAK_Derya ÇEVİK_Ankara
A2= Mesut DEMİR_Ali DURAK_Mehmet TAŞ_İzmir
A3= Feriha ANIL_Buse YAPRAK_Samsun
A4= Meltem DORUK_Mutlu YILDIZ_Semiha VAROL_İstanbul
A5= Hatice BAYRAM_Derya ÇEVİK_Bursa
A6= İsmail CAN_Gönül UYAR_Kaan ÇAĞLAR_Eskişehir
A7= Ali DURAK_Hatay
A8= Mutlu YILDIZ_Metin ÜNAL_Mersin
A9= Vahdet İNANÇ_Balıkesir
A10= Musa TOKCAN_Semiha VAROL_Ordu
A11= formül yazılıp mükerrer kelimeler sayılacak (kodsuz formül)
Örnekteki sütunda 4 adet mükerrer var. Böyle bir durumda nasıl bir formül yazılırsa aralarda bile olsa mükerrer kelimeleri sayabilir.
Korhan Hocanın yazdığı kod
Option Explicit
Function YİNELENENLERİ_SAY(Alan As Range, Optional Ayraç As String = "_")
Dim Veri As Range, Kelime As Variant, X As Long, Say As Long
Application.Volatile True
With CreateObject("Scripting.Dictionary")
For Each Veri In Alan
If Veri.Value <> "" Then
Kelime = Split(Veri.Value, Ayraç)
For X = LBound(Kelime) To UBound(Kelime) - 1
If Not .Exists(Kelime(X)) Then
.Add Kelime(X), Nothing
Else
Say = Say + 1
End If
Next
End If
Next
End With
YİNELENENLERİ_SAY = Say
End Function