Genereren totaal overzicht

[HSV]

Kijk eens voor de opbouw van BNR naar: (16,4)

If Not IsError(sv2(16, 4)) Then

Als daar #N/B! komt te staan wordt die niet meegenomen.

Voor de pdf zou ik eens kijken naar:

sv = Sheets("Invoer").Range("d8").CurrentRegion.Columns(1)

Daar staat weinig informatie.

 

[kingswooder]

Ik weet het niet meer.
Dacht dat ik er bijna was, maar nu gaat niks meer goed.

Als ik kijk naar de opbouw van BNR naar: (16,4), weet ik niet wat dat anders zou moeten zijn (ben het spoor bijster door transpose, of blijft deze verwijzen naar 11,3)

Voor de pdf heeft er nooit meer gestaan dan: sv = Sheets("Invoer").Range("d8").CurrentRegion.Columns(1)

om moedeloos van te worden.

 

[Dick34]

Wellicht is het een idee om het volgende te doen:

1. Maak een tabblad voor de invoer van de gegevens (die heb je al)
2. Maak een tabblad waarin je een tabel opneemt waarin ALLE berekeningen per woningtype zijn opgenomen. Dan heb je je overzicht TOTAAL.
3. Maak een tabblad KEUZE waarin je met verticaal zoeken verwijst naar de tabel. Geen berekeningen opnemen in dit tabblad.

 

[kingswooder]

Ik heb het probleem gevonden. Voor het maken van de pdf heb ik:

sv = Sheets("Invoer").Range("d8").CurrentRegion.Columns(1)

gewijzigd in:
sv = Application.Transpose(Sheets("Invoer").Range("G4").CurrentRegion.Rows(1))

Beetje stom dat ik hier niet eerder aan gedacht heb.