Goedemorgen,
Ik gebruik de onderstaande code:
Met de bovenstaande code maak ik automatisch bonnen aan.
Maar deze bonnen hebben nu een "standaard" lay-out.
Eigenlijk moeten deze bonnen de lay-out van blad "OPBOUW" hebben.
Hier staan afbeeldingen en teksten in, ook zijn hier de breedte + hoogte van de cellen goed ingesteld.
Is dit mogelijk?
bvd.
Ik gebruik de onderstaande code:
Code:
Dim j As Long
Application.ScreenUpdating = False
With Sheets("result").ListObjects(1).Range
For j = 2 To .Columns.Count - 1
.AutoFilter j, "<>"
If IsError(Evaluate("'" & .Cells(1, j) & "'!A1")) Then _
Sheets.Add(, Sheets(Sheets.Count)).Name = .Cells(1, j).Value
Sheets("Blad1").Range("M1").Copy Sheets(.Cells(1, j).Value).Range("B45")
Union(.Columns(1), .Columns(j)).Copy Sheets(.Cells(1, j).Value).Cells(10, 5)
.AutoFilter
Next j
End With
Sheets("Voorblad").Select
Met de bovenstaande code maak ik automatisch bonnen aan.
Maar deze bonnen hebben nu een "standaard" lay-out.
Eigenlijk moeten deze bonnen de lay-out van blad "OPBOUW" hebben.
Hier staan afbeeldingen en teksten in, ook zijn hier de breedte + hoogte van de cellen goed ingesteld.
Is dit mogelijk?
bvd.