štetje poljubnih števil(text)

[rick]

pozdravljeni

rad bi seštel določene vrednosti oziroma-text saj se pred številko nahaja
črka. bom kar navedel primer:vse se nahaja v stolpcu "a".

E245002
E245002
E237501
E237501
E237501
T262002
T262002
T262002
T262002
T260001
T260001
T220001

1.)pomembna je prva črka,ki je lahko "E" ali pa "T"
2.)pomembna je zadnja številka,ki je 1 ali 2.

no,na podlagi teh podatkov bi želel sledeč rezultat:

24500(2E2)
23750(3E1)
26200(4T2)
22000(3T1)

torej;seštej tiste vrednosti,ki imajo enako prvo črko,enako zadnjo številko
in enako kar je vmes.

težko
upam,da ste razumeli,kaj me muči.številke se pojavljajo poljubno in so vedno šest mestne.
za vaš odgovor se najlepše zahvaljujem.

lp rick

[cedra]

Zdravo,

Če prav razumem problem, bi ga rešil takole:



lp,

cedra

[rick]

pozdravljen

ja ,Cedra zelo elegantna rešitev,problem so različice,ki ste jih navedli,
kajti teh je lahko tudi 100 ali pa več.
kako bi vse različice izločil v stolpec "B".
bi šlo s kakšno formulo?

za odgovor se zahvaljujem.

lp rick

[cedra]

Zdravo,

Posnel sem vam makro, ki bo iz stolpca A izbral vse različne zapise in jih prilepil od B2 navzdol

Koda: Izberi vse

Sub Edinstveni_zapisi()

    Columns("A:A").Select
    Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B2"), Unique:=True
    Range("D1").Select
    
End Sub

Potem pa bo mislim v redu. Prilepite v celico C2 formulo, ki je zapisana na sliki pri prejšnjem mojem odgovoru. Tj:

Koda: Izberi vse

=COUNTIF($A:$A;B2)

in skopirajte navzdol!

lp,

cedra

[rick]

pozdravkjen Cedra
ne morš verjet....
zelo domiselno ; no,majhen problem je ,ker mi prvo različico kot rezultat vedno prikaže dvakrat.se vam tudi dogaja tako?
včasih,če podatke spreminjam v stolpcu "A" potem se mi makro ustavi(če ga zaženem),ko pa brišem rezultate v stolpcu "B" pa zopet deluje vse
kot je treba.če bi se še tu dalo kaj narest,sicer pa sem zelo
vesel vaše pomoči.
za odgovor se zahvaljujem.

lp rick

[cedra]

Zdravo,

Če vse dela v redu, če pobrišete rezultate v stolpcu B, pa jih pred vsakim zagonom makra pobrišiva:

Koda: Izberi vse

Sub Edinstveni_zapisi()
    
    Columns("B:B").Select
    Selection.ClearContents

    Columns("A:A").Select
    Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B2"), Unique:=True
    Range("D1").Select
    
End Sub

Poizkusite s popravljenim makrom!

[rick]

pozdravljen in hvala za hiter odgovor

saj,saj....brisanje ste vključili v makro,zelo lepo,zdaj je ok.
prvo različico,kot sem že rekel mi vedno šteje dvakrat.
ali naj v makro vključim tudi brisanje različice,ki se dvakrat pojavi?
mislim,da nebi blo narobe... kaj mislite vi?
za odgovor se zahvaljujem.
lp rick

[cedra]

Ja res je tako, kot ste zapisali. Ugotovil sem le, da je to le v primeru, da sta 1. in 2. zapis enaka!?! Zakaj je tako, pa pojma nimam, morda bug. Torej probajte poskrbeti da prvi in drugi zapis ne bosta enaka...
Prav zanimivo!!!
Še nekaj sem ugotovil. Če npr. celico A1 poimenujete npr. "Šifre" je pa v redu, čeprav sta enaka 2. in 3. zapis!!!

[rick]

pozdravljen Cedra

ja res je kot ste rekli napaka je odpravljena.veliko ste mi pomagali.
sedaj deluje povsem v redu.hvala
upam da boste,še kaj na forumu.
bilo mi je v veselje...

lp rick