• 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.

VBA HELP: Dit moet makkelijker kunnen...

Status
Niet open voor verdere reacties.
C

Cedexis

Gebruiker
Lid geworden
26 jun 2010
Berichten
16
Beste forumgebruikers!

Ik ben druk met een VBA formule die verschillende gegevens uit verschillende (maar qua opmaak hetzelfde) documenten ophaald en plaatst in een exceldocument.

Bijgaande VBA heb ik zelf in elkaar (met wat hulp) gezet maar als ik alle regels toevoeg geeft hij aan dat de procedure lengte te lang is om te gebruiken. Bovendien ben ik er van overtuigd dat het makkelijker moet kunnen. Wie kan mij helpen?

Code: 
Sub Invoeren_Dagrapportages()

Dim vFilename As Variant
Dim lFileCount As Long
    
    vFilename = Application.GetOpenFilename("Dagrapportages (*.xls),*.xls", , "Selecteer de dagrapportages die je wilt openen", , True)
    If TypeName(vFilename) = "Boolean" Then Exit Sub
    For lFileCount = LBound(vFilename) To UBound(vFilename)
        Workbooks.Open vFilename(lFileCount)
    
'eerste tabblad!
'naam
        ThisWorkbook.Sheets("Dagrapportage").Range("B100").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
'datum
        ThisWorkbook.Sheets("Dagrapportage").Range("C100").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
'aantal uren werktijd
        ThisWorkbook.Sheets("Dagrapportage").Range("D100").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C30").Value)
'aantal uren reistijd
        ThisWorkbook.Sheets("Dagrapportage").Range("E100").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C29").Value)
'aantal kilometers
        ThisWorkbook.Sheets("Dagrapportage").Range("G100").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C34").Value)
        
'tweede tabblad!
'opdrachtnummers per persoon/sheet
        ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B13").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B14").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B14").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B15").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B15").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B16").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B16").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B17").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B17").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B18").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B18").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B19").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B19").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B20").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B20").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B21").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B21").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B22").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B22").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B23").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B23").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B24").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B24").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B25").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B25").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B26").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B26").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("B27").Value) = ("0") Then GoTo opdracht Else: ThisWorkbook.Sheets("Info").Range("C1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("B27").Value)
        ThisWorkbook.Sheets("Info").Range("A1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C9").Value)
        ThisWorkbook.Sheets("Info").Range("B1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H10").Value)
                
                
                
opdracht:
        ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C13").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C14").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C14").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C15").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C15").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C16").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C16").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C17").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C17").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C18").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C18").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C19").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C19").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C20").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C20").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C21").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C21").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C22").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C22").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C23").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C23").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C24").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C24").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C25").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C25").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C26").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C26").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("C27").Value) = ("0") Then GoTo klant Else: ThisWorkbook.Sheets("Info").Range("D1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("C27").Value)
        
klant:
        ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D13").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D14").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D14").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D15").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D15").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D16").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D16").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D17").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D17").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D18").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D18").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D19").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D19").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D20").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D20").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D21").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D21").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D22").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D22").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D23").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D23").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D24").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D24").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D25").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D25").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D26").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D26").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("D27").Value) = ("0") Then GoTo postcode Else: ThisWorkbook.Sheets("Info").Range("E1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("D27").Value)
        
postcode:
        ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E13").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E14").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E14").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E15").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E15").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E16").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E16").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E17").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E17").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E18").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E18").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E19").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E19").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E20").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E20").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E21").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E21").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E22").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E22").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E23").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E23").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E24").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E24").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E25").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E25").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E26").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E26").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("E27").Value) = ("0") Then GoTo assign Else: ThisWorkbook.Sheets("Info").Range("F1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("E27").Value)
        
assign:
        ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F13").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F14").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F14").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F15").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F15").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F16").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F16").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F17").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F17").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F18").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F18").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F19").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F19").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F20").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F20").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F21").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F21").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F22").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F22").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F23").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F23").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F24").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F24").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F25").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F25").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F26").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F26").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("F27").Value) = ("0") Then GoTo arrival Else: ThisWorkbook.Sheets("Info").Range("G1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("F27").Value)
        
arrival:
        ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G13").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G14").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G14").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G15").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G15").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G16").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G16").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G17").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G17").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G18").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G18").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G19").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G19").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G20").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G20").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G21").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G21").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G22").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G22").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G23").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G23").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G24").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G24").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G25").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G25").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G26").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G26").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("G27").Value) = ("0") Then GoTo closing Else: ThisWorkbook.Sheets("Info").Range("H1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("G27").Value)
        
closing:
        ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H13").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H14").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H14").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H15").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H15").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H16").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H16").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H17").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H17").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H18").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H18").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H19").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H19").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H20").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H20").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H21").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H21").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H22").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H22").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H23").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H23").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H24").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H24").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H25").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H25").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H26").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H26").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("H27").Value) = ("0") Then GoTo opmerkingen Else: ThisWorkbook.Sheets("Info").Range("I1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("H27").Value)
        
opmerkingen:
        ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I13").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I14").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I14").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I15").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I15").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I16").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I16").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I17").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I17").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I18").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I18").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I19").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I19").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I20").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I20").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I21").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I21").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I22").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I22").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I23").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I23").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I24").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I24").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I25").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I25").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I26").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I26").Value)
        If Application.Transpose(ActiveWorkbook.Sheets(1).Range("I27").Value) = ("0") Then GoTo einde Else: ThisWorkbook.Sheets("Info").Range("J1000").End(xlUp).Offset(1).Resize(, 1) = Application.Transpose(ActiveWorkbook.Sheets(1).Range("I27").Value)
        
einde:
        ActiveWorkbook.Close False
    Next

End Sub

Alvast bedankt voor de hulp!!
 
Plaats eventueel ook een voorbeeld zodat we ook kunnen zien wat de bedoeling is, want ik ga niet je hele macro doorspeuren ;) (enig begrip hiervoor :))
 
Welk Basisboek VBA gebruik je ?
 
basisboek is VBA voor autodidact... :shocked:

Het voorbeeld:
Schermafbeelding 2013-05-02 om 17.19.50.png

Het document haalt de gegevens dus uit meerdere excelbestanden die er per persoon zo uitzien:
voorbeeld:
Bekijk bijlage 183182

Hopelijk kun je daar wat mee?
 

Bijlagen

  • Schermafbeelding 2013-05-02 om 17.25.39.png
    Schermafbeelding 2013-05-02 om 17.25.39.png
    82,4 KB · Weergaven: 47
Autodidact & basisboek sluiten elkaar geenszins uit, versterken elkaar eerder. Maak daar gebruik van....
 
snb zei:
Autodidact & basisboek sluiten elkaar geenszins uit, versterken elkaar eerder. Maak daar gebruik van....
Klik om te vergroten...

Beste SNB,

Je hebt me al eens eerder geholpen.
Kun je me met bovenstaande vraag ook helpen?

Ik beloof je dat ik een basisboek zal aanschaffen binnenkort!

Alvast bedankt!
 
Laten we die volgorde eerst maar eens omdraaien. Dat vergroot de kans dat je mijn suggesties ook begrijpt.
 
snb zei:
Laten we die volgorde eerst maar eens omdraaien. Dat vergroot de kans dat je mijn suggesties ook begrijpt.
Klik om te vergroten...

Ik wist niet dat dit de bedoeling van het forum is?
Als ik nog als leerling toegesproken zou willen worden dan was ik wel terug naar school gegaan.

Ik heb veel tijd besteed aan het zoeken naar antwoorden op verschillende fora, echter geen antwoord kunnen vinden.
Helaas heb ik geen 24uurs boekenwinkel in de buurt waar ik op dit tijdstip een basisboek kan vinden. Ook de standaard hulp functie kon me niet helpen.
Ik was graag verder gegaan.

Hopelijk is er nog iemand anders online die mijn vraag leest en beantwoord.

Voor diegene; alvast bedankt!
 
ik denk dat het interessanter is om een voorbeeldje van je dagrapportage en je verzamelbestand als bijlage mee te sturen, zonder al te veel prive-info.
Jouw macro lijkt in eerste instantie een enorm gedrocht, die naar enkele regels gereduceerd kan worden mits betere kennis van de omstandigheden.
Dat is eigenlijk wat snb bedoelt, eerst structureren en dan programmeren.
Verder heb ik even die macro in een lege file gezet en had ik geen problemen ivm lengte van de procedure, dus dat deel begrijp ik ook even niet.
 
Beste Cow18,

Dank voor je antwoord. Bijgaand tref je het bestand (LEEG BROOKLYN DAGRAPPORTAGE v1) aan van de macro en waar de informatie ingeladen moet worden.
Dit is inderdaad een nog werkende macro zodat je kunt zien wat deze doet.
Echter, dit is gebaseerd op het inlezen van 15 regels per document. In het invulformulier dat de medewerkers gebruiken kunnen ze wel 50 regels vullen.
Toen ik dat helemaal had doorgevoerd kreeg ik de melding dat de procedure te lang is.

De 3 documenten van de personen zijn dus de documenten zoals we die ontvangen.
Hier kan ik (in principe) niets aan veranderen.

Alvast bedankt!
 

Bijlagen

zie bijlage
je leest je rapportages in naar een array. Daarna kan je die array direkt gebruiken om het nodige te doen of als beginner kan je die eerst naar een kladblad schrijven en vanaf daar verder werken. Ik heb dat laatste hier gedaan.
Ik veronderstel dat 1 en ander in je macro en de meegeleverde bestanden niet overeenkomen kwa celadressen.
 

Bijlagen

Beste Cow18,

Hij lijkt helemaal goed te werken! Hartelijk dank!

Nu ga ik hem goed bestuderen en uitvogelen hoe hij werkt.
Nogmaals bedankt voor de moeite!

Ik houd de thread nog even open zodat ik eventueel nog wat vragen kan plaatsen.
 
Beste Cow18,

Nogmaals dank voor je antwoord! Het was een goede oplossing!
Met behulp van een instructieboek begrijp ik hem nu ook.

Ik sluit de thread!
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan