Home » Questions » VBA in Excel 2003 – conditii si calcule

VBA in Excel 2003 – conditii si calcule

306 viewsIntrebari
0

Buna ziua!

Am nevoie de un script VBA care sa faca urmatoarele la un fisier .xls precompletat cu date conform modelului atasat:

  1. Autofit pe toate coloanele de la A la F;
  2. Cauta pe coloana C string-ul „Com.”, daca gaseste atunci verifica daca continutul celulelor de pe coloana B este identic pe randurile unde a gasit „Com.” si „Sat.” cu aceeasi denumire pe coloana C, aduna valorile coloanelor D, E, F la valorile randului unde este „Sat.” si aceeasi denumire care este dupa „Com.”, apoi sterge randul care contine „Com.” pe coloana C. De exemplu, in imaginea atasata, pe randul 5 gaseste „Com.” in celula C5 unde este si string-ul „Lunca”, cauta in coloana C si celula cu „Sat.” si acelasi string de dupa (Lunca in cazul de fata), verifica daca continutul celulelor B4 si B5 este identic, aduna D5 la D4 (pentru ca acolo este randul ce contine „Sat.” si „Lunca”), E5 la E4, F5 la F4, pe randul 4 va aparea 11 in D4, 5 in E4, 16 in F4, apoi sterge randul 5 astfel incat randul ce contine „Com.” pe coloana C sa dispara;
  3. Cauta pe coloana C celula ce contine textul „Loc.Zulu”, citeste ce este in coloana B pe acelasi rand, apoi aduna valorile coloanelor D,E,F la randul unde gaseste in coloana C textul citit in coloana B la dreptul celulei ce contine „Loc.Zulu”. Apoi este sters randul ce contine „Loc.Zulu”. De exemplu, in imaginea atasata, gaseste „Loc.Zulu” in C6, citeste ce este in B6, cauta pe coloana C textul din B6 (Mun.Arad), D9 va avea 20, E9 va avea 23, F9 va avea 43, se sterge randul 6;
  4. Toate celulele completate vor fi conturate cu liniile negre;
  5. Se fac subtotaluri, la fiecare schimbare in coloana B, se aduna D,E,F.

Va multumesc.

maverick_65 Asked question iulie 21, 2021