• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Genereren totaal overzicht

Status
Niet open voor verdere reacties.
Hallo Chris,

Code: 
[COLOR=#333333]Sheets(Array("Keuze", "Per BNR", "Invoer", "Hulpblad", "Opbren[/COLOR][SIZE=3][COLOR=#ff0000]g[/COLOR][/SIZE][COLOR=#333333]st")).Visible = False[/COLOR]

Met of zonder de rode 'g'?
 
Tja, soms heb je van die dagen....
 
Hoi Harry,

toch nog even een korte vraag.
Ik krijg de vraag of het mogelijk is om de invoer te draaien. Dus de gegevens invoeren in horizontale richting ipv verticale richting zoals nu.
Nu lukt het me wel om alles te wijzigen, alleen de combobox krijg ik niet gevuld (stopt na eerste waarde).

Dus:
Option Explicit
'zet de gegevens van blad 'Invoer' in de combobox op blad 'Keuze'
Private Sub Workbook_Open()
Sheets("Keuze").ComboBox1.List = Sheets("Invoer").Range("d8").CurrentRegion.Columns(1).Value
End Sub

Moet iets worden in horizontale richting, want de bouwnummers komen nu naast elkaar.
 
Hallo Henri,

Geen idee wat er moet gebeuren, plaats je laatste bestand sowieso.
 
zou
Code: 
Sheets("Keuze").ComboBox1.List = Sheets("Invoer").Range("d8").CurrentRegion.[COLOR="#FF0000"]Columns(1)[/COLOR].Value

niet dit moeten worden?
Code: 
Sheets("Keuze").ComboBox1.List = Sheets("Invoer").Range("d8").CurrentRegion.[COLOR="#FF0000"]Rows(1)[/COLOR].Value

Zonder voorbeeld is dit het enige wat ik kan verzinnen
 
in de bijlage het laatste bestand.
Heb even een tabblad "Invoer 2" toegevoegd. Dit zou het moeten worden.
Hopelijk is het nu duidelijker.
 

Bijlagen

  • NOM berekening V7.xlsb
    350,7 KB · Weergaven: 29
Verander eens deze regel...
Code: 
Range("b17").Resize(i + 1, 19) = arr

...in.
Code: 
Sheets("blad1").Range("b17").Resize(i + 1, 19) = Application.Transpose(arr)

Maak een nieuw tabblad aan, en ga naar tabblad BNR en vervolgens weer naar blad1.

Anders moet je een geel nieuwe code.
 
Helaas werkt dit niet. Ik krijg dan een getransponeerde tabel van de eerder ingevoerde gegevens.
Doel is juist om de wijze van invoer te wijzigen.
 
Je wilt blad 'Keuze' op de gegevens van tabblad 'Invoer (2)' laten lopen, en zo tabblad BNR vullen?
 
Maak een copy van je bestand.
Alle formules aanpassen in blad Keuze die verwijzen naar 'Invoer (2)' om de gegevens cq, je berekeningen op te halen.
Plaats dan het bestand terug.
 
bij deze, het oude blad "invoer" heb ik verwijderd.
Dus blad "invoer" is het enige juiste.
Alle verwijzingen heb ik aangepast.
Nu moet volgens mij alleen de combobox nog gevuld worden.
 

Bijlagen

  • NOM berekening V8.xlsb
    342,6 KB · Weergaven: 36
Zo?
Code: 
Sheets("Keuze").ComboBox1.List = Application.Transpose(Sheets("Invoer").Range("G4").CurrentRegion.Resize(1).Value)
 
Zelf even de array samenstellen met de juiste gegevens.

Bv. onderstaande sv2(87,1) is leeg.
arr(i, 14) = sv2(87,1) naar? enz.
 

Bijlagen

  • NOM berekening V8.xlsb
    340,7 KB · Weergaven: 33
Laatst bewerkt:
tsja ben ik toch weer.
Heb nu iets geks aan de hand.

Bij invoer ga ik op basi van hellingshoek en richting zoeken naar de waarde op blad Hulpblad.
Nu gaat dit overal goed, behalve met de rij Zuidoost.
Als ik Zuidoost kies in de lijst krijg ik de waarde van Zuid.
Bij Zuidwest gaat het wel goed.

Nu ben ik een aantal zaken gaan proberen:
Ook als ik er bijvoorbeeld 1Zuidoost van maak krijg ik #nb retour
Als ik er 1Oost en 1Zuidoost gaat het wel goed.

Geen idee wat er aan de hand is, maar wellicht is het iets ontzettend stoms :-D

iemand enig idee?
 

Bijlagen

  • NOM berekening V12.xlsb
    1,7 MB · Weergaven: 36
Je bent de derde parameter in VERGELIJKEN() vergeten.
Code: 
=INDEX(Hulpblad!$F$28:$J$46;VERGELIJKEN(Invoer!G32;Hulpblad!$E$28:$E$46;[COLOR="#FF0000"]0[/COLOR]);VERGELIJKEN(Invoer!G33;Hulpblad!$F$27:$J$27;[COLOR="#FF0000"]0[/COLOR]))
 
ow, dacht dat die niet noodzakelijk was. Maar idd zo simpel is het...
bedankt voor de snelle reactie!
 
En dan denk je dat je klaar bent...

Ik heb de berekening verder uitgebreid zoals ik hem wil hebben.
Alleen werkt nu het maken van de pdf niet meer.
Als ik op de knop pdf make druk, bevriest het hele programma.
Na lang wachten heeft hij 53 pdf's gemaakt.
Ook zie ik dat het opbouwen van het blad BNR soms niet goed gaat.
Wie weet wat er aan de hand is?
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan