Excel VBA - Umetanje izračunatog stupca na kraju svake tablce

[gordan72]

Pozdrav svima ..

Imam jedan problem.

Ima hrpa tablica exportanih u Excel iz drugog softvera.

Tablice su odijeljene s 2 retka jedna od druge i nisu jednako široke.
I naravno nisu imenovane u Excelu kao tablice

Kako da umetnem desno od svake tablice stupac koji bi zbrajao vrijednosti dvije krajnje desne ćelije i da zatim napravim conditional formatting koji bi svaku vrijednost kalkulirane ćelije uspoređivao s prvom gornjom ćelijom u tablici (ne računajući header) preko formule.

St1 xxxx St2 xxxx St3 xxxx St4 xxxx St5 xxxxx Kalk
1 xxxx 4 xxxx 4 xxxx 6 xxxx 5 xxxxx 11
2 xxxx 5 xxxx 3 xxxx 4 xxxx 3 xxxxx 7
4 xxxx 4 xxxx 5 xxxx 4 xxxx 4 xxxxx 8
3 xxxx 9 xxxx 9 xxxx 9 xxxx 9 xxxxx 18

Na primjer trebam umetnuti stupac Kalk koji bi zbrajao St4 i St5 vrijednosti i ako je vrijednost (po formuli, koja sad nije bitna) značajno veća od vrijednosti u prvom retku (u primjeru je to 11) treba taj kalkulirani rezultat označiti s npr. crvenim fontom

Ne trebam kompletan kod, samo smjernice.

Hvala unaprijed

[stilicon]

Evo smjernica:

Ne moraš "umetati" stupac. Excel već ima stupce, moraš samo pisati u njega.

Znači odaberi stupac desno od najšire tablice i piši u njega. Koristi apsolutnu adresu za stupac a kroz retke iteriraj.

[stilicon]

A crveni font je jednostavan. Npr. ova linija će polje A1 obojati crveno:

Range("A1").Font.Color = -16776961

[gordan72]

Hvala na odgovoru ...
Znači nađem prvu ćeliju desno od zadnje ćelije u retku, izračunam, obojim ako zadovoljava uvjet i iteriram do kraja tablice.
Zatim tražim sljedeću tablicu i u njoj ponovim.

To sve u jednoj for petlji?