Hozzászólás: Több táblázat összemásolása

Szia!

Ritkán csinálok ilyet, de volt kedvem hozzá.
Mellékesen szörnyű a formátum, részvétem…

Szóval azt találtam ki, hogy végigkeresem az első oszlopot a „Totál” szavakra.
Az első kivételével minden „Totál-t” tartalmazó cella mellett kezdődik az átmásolandó tartomány, és a vége 12 sorral feljebb, annak a sornak a végén van.
Tehát ha „item” nevű range változóban megvan, hogy hol találta a „Totál” szót, akkor a másolandó tartomány így fogható meg:

Set current_range = Range(Item.Offset(0, 1), Item.Offset(-12, 1).End(xlToRight))

Ezt másolni kell a tetején lévő folymatosan bővülő fejléc vége utánhoz.

Kb ennyi az algoritmus.

Az összeillesztésekhez tettem egy függőleges vonalat. ha nem kell, kiveheted.

Feltöltöttem

Ha OK, jössz egy sörrel.

Imre