aynı hücre içinde rakam saydırma hk.

[zetkatamet]

Arkadaşlar,
Ekteki dosyaya bakabilir misiniz?

Aynı hücre içinde rakam saydırma yapılabilir mi?
Örneğin; 7008 7018 7010 rakamları aynı bu şekilde 1 hücre içinde, aralarında 1 boşluk yapılarak sayılabilir mi?

 

[ÖmerFaruk]

Merhaba,
1. O sütundaki sayılar hep 4 basamaklı mıdır? 4 den az ya da fazla basamak sayısına sahip sayı olacak mıdır?
2. Bir hücrede birden fazla sayı varken bu hep 3 sayı mıdır, yoksa belirsiz midir?
3. Makro ya da formülle çözüm tercihinde bir kısıtınız var mıdır?

 

[Ziynettin]

Makro çalışma.

Sub test()
a = Range("B3:B" & Cells(Rows.Count, 2).End(3).Row).Value
Set dc = CreateObject("scripting.dictionary")
For i = 1 To UBound(a)
    If Not IsEmpty(a(i, 1)) Then
        w = Split(a(i, 1), " ")
        For j = 0 To UBound(w)
            krt = w(j)
            dc(krt) = dc(krt) + 1
        Next j
    End If
Next i
Range("D3:E" & Rows.Count).ClearContents
Range("D3:E" & Rows.Count).ClearFormats
[D3].Resize(dc.Count, 2) = Application.Transpose(Array(dc.keys, dc.items))
[D3].Resize(dc.Count, 2).Borders.Color = rgbSilver
MsgBox "İşlem tamam...", vbInformation
End Sub

 

[YUSUF44]

Alternatif olarak deneyiniz:

=EĞERSAY($B$3:$B$12;"*"&D3&"*")+EĞERSAY($B$3:$B$12;D3)

 

[zetkatamet]

Sn.ÖmerFaruk, Sn.Ziynettin, Sn.Yusuf44 ilginize teşekkür ederim.
Saygılarımla.

 

[zetkatamet]

Sn.Yusuf44,
Rakamların arasına / veya - koyuncada çalışıyor. Çok iyi olmuş.
Virgül konduğunda da çalışması yapılabilir mi?

 

[YUSUF44]

Virgül konulduğunda eğer hücrede iki sayı varsa çalışmayabilir. Çünkü tek sayı olarak görür. Bu sayı metin olmadığı için formülün ilk kısmı çalışmaz, sayı olduğu ama ondalıklı olduğu için de ikinci kısmı çalışmaz muhtemelen. İkiden fazla sayı olunca çalışır. Yerinizde olsan virgül kullanmazdım ya da hücreye virgülle girmeyi engelleyecek düzenleme yapardım (olabilir mi bilmiyorum)

 

[zetkatamet]

"" / -
ile çalışmasıda yetecektir.

İlginize tekrar teşekkürler.