Numarare personalizata dupa continutul si fondul celulelor

[basileus]

as dori sa ma ajutati cu o formula

[Harun]

Am pus formula in fisier - dar eu folosesc excel 2010 - si nu stiu daca este si in 2003

[basileus]

Am pus formula in fisier

Multumesc,problema mea este ca doresc insumarea valorilor de pe o linie si afisarea rezultatului in coloana D in locul unde este semnul intrebarii

[loasca]

Uitativa daca este bine asa, nu ar strica daca ati da mai multe detalii despre acele valori mă refer la ; R8 ; L;

Formula folosită

Cod: Selectaţi tot

=SUM(E3:BE3)

[basileus]

Uitativa daca este bine asa, nu ar strica daca ati da mai multe detalii despre acele valori mă refer la ; R8 ; L;

Formula folosită

Cod: Selectaţi tot

=SUM(E3:BE3)

Va multumesc pentru efortul depus, dar eu imi doresc sa aflu de cate ori apare o valoare mai mare sau egala cu 4 ,pe orizontala,doar in casutele care nu sunt colorate (de exemplu valori de genul 5,21,etc).Aceasta valoare sa fie afisata in coloana D.Nu vreau sa aflu suma , ci doar de cate ori apare o valoare mai mare sau egala cu 4 in casutele albe, pe orizontala. Multumesc inca o data.

[IPP]

Buna seara

O observatie generala: Faptul ca fondul alb dat unor celule reprezinta un element esential pentru calculele pe care doriti sa le faceti nu este o idee prea buna pentru ca sunt sigur ca la un moment dat cineva va face o confuzie intre fond alb si lipsa totala a fondului colorat.

Desi aparent arata identic, la nivel de macrocomanda/vba culoarea alba are index 2 iar “fara culoare” este xlNone si se interpreteaza diferit in cod si implicit in rezultat.

Atasat aveti un fisier in care am incercat sa respect intocmai specificatiile:
numararea de celule care contin EXCLUSIV numere (deci inregistrarile de genul R8 nu vor fi luate in considerare la numarare) >= 4 SI acestea sa se afle in celule care au ca fond culoarea alba.

Deschideti fisierul atasat, activati macro si rulati macro numit NumararePersonalizata.

IP

PS. Pentru o mai mare relevanta, voi schimba numele topicului si il voi muta la sectiunea VBA

[basileus]

Multumesc pentru sfaturi si pentru rezolvarea problemei.

[adof]

sal

se poate ceva explicaţii la codul VBA ?

nu inteleg unde este intructiunea prin care se aloca celulelor D3........D24

sa scrie numarul de celule care indeplinesc condiţia

multumesc

[IPP]

Buna ziua

Codul macro e compus din doua parti: una care are menirea de a selecta, pe rand celulele de pe coloana D atat timp cat exista informatie in tabelul sursa (reperul fiind celula aflata imediat in stanga celulei active) si una care realizeaza numararea propriuzisa. Aceasta din urma este strans legata de prima pentru ca isi extrage domeniul de celule unde urmeaza sa faca numaratoarea pornind de la celula activa de la un moment dat.

Primul cod nu cred ca mai are nevoie de alte explicatii.

In ceea ce priveste al doilea cod:
Sunt definite obiectele-range (c si rng) respectiv variabila (count) cu care se va lucra

Aici apare raspunsul punctual pentru dvs.:

Cod: Selectaţi tot

Dim rng As Range
Set rng = ActiveCell.Offset(0, 1).Resize(1, 53)

Adica: domeniul de celule de interes unde se va face numararea este: pornind de la celula activa, celula imediat aflata in dreapta sa cu extindere pe acelasi rand dar pe 53 de coloane. Astfel, daca celula activa este D3, domeniul de celule unde se va face numaratoarea va fi E3:BE3. Cand celula activa este D4 domeniul de celule va deveni E4:BE4 … si asa mai departe.

Pentru restul codului “traducerea” ar fi: testeaza fiecare celula din domeniul de interes; daca aceasta are fondul de culoare alba si valoarea din ea >= 4 atunci variabilei numita count I se adauga un 1 (implicit se presupune ca e 0 insa n-ar fi stricat daca ar fi fost scrisa o instructiune explicita pentru asta si mai ales una de final care sa o aduca inapoi la 0 inainte de a testa urmatorul domeniu de celule…); insereaza in celula activa valoarea capatata de variabila count

IP

[adof]

multumesc