Cod VBA Excel - copiere informatii in workbook

gecs, on 5th October 2010, 15:18, said:

Din nou ai gasit varianta perfecta de rezolvare. Daca ma mai descurci cu o chestie ma declar super multumita: cum sa fac sa ruleze macro-ul si daca redenumesc foile de lucru? Cu ce ar trebui sa schimb cli_txt & i ca sa nu-mi dea eroare? As vrea in loc de client 1, client 2, etc. sa pun numele lor. Am incercat cu un cod vba de inlocuire in foaia "scadente" client 1 cu nume 1, client 2 cu nume 2 dar de la client 11 imi trece nume11...

sandra_m, on 5th October 2010, 15:37, said:

Am mai observat o chestie: formula pentru scadenta depasita nu tine cont de existenta unei informatii in coloana incasare. Daca apare o data la incasare nu vreau sa-mi mai afiseze "scadenta depasita", pentru ca inseamna ca factura este incasata.

sandra_m, on 5th October 2010, 15:48, said:

Iti propun urmatoarea rezolvare:
- in tabelul centralizator redenumim coloana Client in Foaie Client si dupa ea mai introducem o coloana pe care o denumim Client si acolo va fi afisat numele;
- mai adaugam o foaie de calcul numita Clienti in care facem un tabel in care pe prima coloana va fi numele foii si pe a doua coloana numele clientului;
- tabelul din noua foaie va fi intr-un range dinamic cu pana la 100 de clienti (daca vrei mai multi iti spun unde si ce sa modifici);
- in coloana noua inserata in tabelul centralizator punem o formula care returneaza numele clientului cu un INDEX+MATCH din foaia Clienti

Formula tine cont de informatie, dar daca data inscrisa in coloana Incasare e mai mare decat data din coloana Scadenta afiseaza "scadenta depasita", chiar daca e o factura cu scadenta mai veche decat TODAY() - mi se pare normal si am crezut ca asta e informatia pe care o vrei. Daca insa in coloana Incasare e inscris un sir de caractere (ai in unele celule scris "da"), formula returneaza sirul vid ("").

In fisierul atasat gasesti versiunea despre care vorbeam mai sus.

In foaia Clienti completezi pe coloana A numele foii de calcul a clientului, iar pe coloana B numele reale ale clientilor. Daca adaugi inregistrari in acel tabel va trebui sa adaugi si foaia de calcul corespunzatoare. De asemenea, daca modifici numele unei foi de calcul trebuie sa faci modificarea si in foaia Clienti si invers. Eu am modificat numele foii client 1 in xxx, am modificat si in tabelul din foaia Clienti si acum in centralizator apare xxx in loc de Client 1, iar la numele clientului apare Vasile, fiindca asa am scris in foaia Clienti

Acum macro-ul numara si citeste cate foi de clienti sunt in fisier din tabelul din foaia Clienti, asa ca ai grija atunci cand modifici sa existe corespondenta perfecta intre numele si numerul foilor pentru clienti si ce scrie in acel tabel: daca sunt mai putine foi inscrise in tabelul Clienti, acele foi nu vor fi luate in seama de macro, daca sunt mai multe foi inscrise in tabel, sau numele foilor nu corespund, macro-ul va da eroare.

 Facturi_scadente_Clienti_modif._cl1_R4.rar   306.42K   14 downloads

Edited by gecs, 05 October 2010 - 15:31.

gecs, on 5th October 2010, 16:30, said:

Super rezolvarea cu denumirea clientilor. "Scadenta depasita" trebuie sa apara la facturile care au fost scadente si in dreptul coloanei "incasare" nu apare nici o informatie (in foaia mea sunt celulele albastre). Daca factura este incasata trec data la care se incaseaza sau "da" (pana aflu exact data la care s-a incasat, conform extraselor de cont).

Pentru problema cu returnarea sirului "scadenta depasita" modifici formula in:

=IF(LEN($E2)=0,"",IF(LEN($F2)>0,"",IF(TODAY()=$E2,"factura scadenta",IF(TODAY()<$E2,"","scadenta depasita"))))

gecs, on 5th October 2010, 17:38, said:

Acum e totul perfect. Multumesc tare mult pentru ajutor.
Alexandra

sandra_m, on 5th October 2010, 18:25, said:

Cu placere.
Despre Excel si celelalte programe Office poti sa gasesti informatii foarte utile si aici.

gecs, on 5th October 2010, 18:35, said:

( Mai am o problema. Dupa ce am definitivat tabelele si am modificat formula pentru info scadenta la rularea macro-ului apare o noua eroare: run-time error '1004': application-defined or object-defined error si imi indica randul
Selection.FormulaLocal = "=IF(LEN($A" & j & ")=0,"""",INDEX(clienti,MATCH($A" & j & ",INDEX(clienti,,1),0),2))"
din codul vba.

sandra3112, on 5th October 2010, 19:51, said:

Chiar am vrut sa modific linia aia care introduce o formula fiindca se poate scrie direct valoarea din tabelul Clienti. S-ar putea insa ca eroarea sa nu fie legata de linia cu formula.

 Facturi_scadente_Clienti_modif._cl1_R5.rar   299.46K   44 downloads

gecs, on 5th October 2010, 20:03, said:

Acum totul este in ordine, multumesc.