HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.324
- Office versie
- Office 365
Djani,
Je hebt een code voor twee bereiken en twee grafieken.
Dit houdt in dat de bereiken gelijk moeten zijn, en de grafieken gelijk moeten zijn qua reeksen.
De offset verschuift bij die ingevoegde rij van 13 naar 14.
In meegezonden bestand heb ik alles aangepast.
Wat je eventueel zou kunnen doen is er een echt tabel van maken.
Zo pak je 'sn = listobjects(i).databodyrange' die veel flexibeler is dan een vast bereik.
Je hebt een code voor twee bereiken en twee grafieken.
Dit houdt in dat de bereiken gelijk moeten zijn, en de grafieken gelijk moeten zijn qua reeksen.
De offset verschuift bij die ingevoegde rij van 13 naar 14.
Code:
sn = Range("G8:AD17").Offset(co * 14 - 14)
In meegezonden bestand heb ik alles aangepast.
Wat je eventueel zou kunnen doen is er een echt tabel van maken.
Zo pak je 'sn = listobjects(i).databodyrange' die veel flexibeler is dan een vast bereik.