wanneer ik met een knop "voegsamen" een VBA code wil uitvoeren die uit alle tabbladen info verzamelt krijg ik de melding.
compileerfout: kan het project of de bibliotheek niet vinden: dit geeft hij dan geselecteerd aan op "cl".
ik heb gezocht in het objectenoverzicht om dit terug te vinden maar kan hier niks vinden.
de exacte code is:
iemand die me kan helpen met het vinden van mijn probleem en er ook een mogelijke oplossing voor heeft.
compileerfout: kan het project of de bibliotheek niet vinden: dit geeft hij dan geselecteerd aan op "cl".
ik heb gezocht in het objectenoverzicht om dit terug te vinden maar kan hier niks vinden.
de exacte code is:
HTML:
Sub VoegSamen()
Dim oWs As Worksheet
Dim lMaxRegel As Long
Blad1.[F7:F1000].WrapText = False
Blad1.[A7:M1000].ClearContents
For Each oWs In ActiveWorkbook.Worksheets 'Doorloop alle werkbladen
If oWs.Name <> "Hoofdmenu" Or oWs.Name <> "Werkzaamheden" Or oWs.Name <> "Verzamelblad" Then 'Behalve "Totaal"
lMaxRegel = oWs.Range("A100000").End(xlUp).Row 'Bepaal nummer laatste regel
With oWs
For Each cl In .Range("A6").Resize(lMaxRegel) 'Doorloop alle regels
If cl = Blad1.Range("D2").Value Then
sq = .Cells(cl.Row, "A").Resize(, 10).Value
Blad1.Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(1, 10).Value = sq
Blad1.Cells(Rows.Count, "A").End(xlUp).Offset(, 4).Value = oWs.Name
sq = ""
End If
Next cl 'Ga naar volgende regel
End With
End If
Next oWs 'Ga naar volgende werkblad
Blad1.[F7:F1000].WrapText = True
End Sub
iemand die me kan helpen met het vinden van mijn probleem en er ook een mogelijke oplossing voor heeft.