Goedendag,
ik heb een bestand voor overdrachten met storingen neer te zetten.
ik heb de volgende code staan in men bestand om ervoor te zorgen dat hij de info van alle sheets bij elkaar zoekt en plaats op 1 pagina, het verzamelblad.
Nu word het als volgorde per machine neer gezet en staan dus de door elkaar wat betreft de ochtend en avond ploeg.
is het mogelijk om een knop te maken met een code of dit al automatisch te laten werken die deze twee scheid met bijvoorbeeld ochtend boven en avond beneden maar wel nog steeds hoe het word verzameld met de machine volgorde oftewel de Dienst een hogere prio geven.
ik heb een bestand voor overdrachten met storingen neer te zetten.
ik heb de volgende code staan in men bestand om ervoor te zorgen dat hij de info van alle sheets bij elkaar zoekt en plaats op 1 pagina, het verzamelblad.
Nu word het als volgorde per machine neer gezet en staan dus de door elkaar wat betreft de ochtend en avond ploeg.
is het mogelijk om een knop te maken met een code of dit al automatisch te laten werken die deze twee scheid met bijvoorbeeld ochtend boven en avond beneden maar wel nog steeds hoe het word verzameld met de machine volgorde oftewel de Dienst een hogere prio geven.
Code:
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(, 12).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
. Die zal geheid stijgen als je er een voorbeeldje met wat dummy data bij doet. Ik vermoed namelijk dat alle helpers nog steeds bezig zijn met data inkloppen :d.
