[ darkos1 @ 01.07.2017. 13:28 ] @
Kako u nekom tekstualnom polju prebrojati neki broj ako ima i koliko se puta ponavlja.

Primer

(Marko 2, kosta 3, Pero 2)

Broj 2 se ponavlja: 2 puta

pozz
[ Ivek33 @ 01.07.2017. 18:59 ] @
probaj (broj 2 je znak za koji tražimo ponavljanje u A1)
Ako su u pitanju slova formula razlikuje mala i velika
Code:
=(LEN(A1)-LEN(SUBSTITUTE(A1;2;"")))

Umjesto argumenta (broja 2) možeš staviti adresu ćelije , npr D1 i u njoj mijenjati uvjet
[ darkos1 @ 01.07.2017. 21:31 ] @
Zahvaljujem se na brzom odgovoru. Probao sam formulu primeniti na svom primeru ali mi nije dalo očekivani rezultat,
uz malu korekciju formule sam uspeo dobiti očekivani rezultat, ali mi u nekim primerima opet pravi grešku.

U prilogu šaljem primer sa greškom,

[ Ivek33 @ 02.07.2017. 13:23 ] @
Što da ti kažem, imaš specifične uvjete koje tražiš i međusobno se na neki način poklapaju.
Možda da dodaš određenu formulu u stupac za te spec. uvjete koji se poklapaju sa drugim.
Ili da postaviš specifični karakter na početku i između svake riječi pa tražiš točno određeni pojam između višestrukih karaktera
sorry
Vidi attached file

[edit]: također pogledaj formulu u B4

[Ovu poruku je menjao Ivek33 dana 02.07.2017. u 15:25 GMT+1]
[ darkos1 @ 02.07.2017. 18:29 ] @
Hvala Ivek, to je to što sam tražio.
Formula u B4 mi prekomplikovana a ova druga mi daje traženo rješenje.

Poz
[ rudy_kv @ 08.07.2017. 16:27 ] @
Probao sam ovo da uradim u VBA, cisto da vidim da li mogu da dobijem isti rezultat, a i da vezbam malo.
Generalno, ono sto sam ja zamislio - to i radi, ali kasnije sam video u okacenom primeru da ako je u celiji upisano:
Code:
Float (4+12+4+12+4) 2Float
a prebrojava se ponavljanje niza "Float" - ocekivani rezultat je 1, dok meni vraca 2. Razlog je sto se uslov preklapa, a to vec ne znam da resim.

Code:
Sub brojanje()

Dim rg1 As String
Dim n As Integer
Dim korak As Integer
Dim p As Integer
Dim uslov As String
Dim broj As String

    rg1 = Selection
    n = Len(rg1)
    ' duzina niza
        If n = o Then
    ' proveravamo da li je prazna celija
        MsgBox "Oznacite celiju koja ima upisanu vrednost i u kojoj zelite da vrsite prebrojavanje.", vbExclamation, "Greska!!!"
            Exit Sub
        End If
        
    uslov = InputBox("Unesite niz simbola koje zelite da prebrojite u selektovanoj celiji: ")
    ' Unosimo koju cifru prebrojavamo
    korak = Len(uslov)
    p = 0
    broj = Left(rg1, korak)
     If broj = uslov Then
     p = p + 1
     End If
    For i = 1 + korak To n
        broj = Right(Left(rg1, i), korak)
             If broj = uslov Then
     p = p + 1
     End If
     Next i
     MsgBox (" Niz simbola ''" & uslov & "'' se u selektovanoj celiji ponavlja " & p & " puta.")
     
    
End Sub

[ Ivek33 @ 09.07.2017. 19:23 ] @
@rudy_kv
Za vježbanje je OK, ali si se vezao na jednu ćeliju što može biti zamarajuće.
Probaj preko funkcije riješiti problem.
Ja sam OVDJE postavio novu formulu