Beste,
Ik maak een ontwerp om genummerde ingangskaarten af te drukken voor een vereniging. Ik heb dit onderwerp eerder gepost omdat ik niet wist hoe ik een afbeelding kon tonen of verbergen. VenA heeft mij de oplossing aangereikt en mij een zeer compacte code bezorgt die perfect functioneert. Waarvoor dank.
Ik wil de code nu aanpassen voor 3 kaarten op één A4-vel maar de code van VenA (zie hieronder) wijzigen, lukt mij niet.
Ik heb dan maar mijn eigen code uitgebreid maar ik word geconfronteerd met 2 problemen : op mijn werkblad zie ik, na doorlopen van de code met de F8-toets, 3 afbeeldingen terwijl het afdrukvoorbeeld slechts 2 afbeeldingen weergeeft. Het 2-de probleem is de foutmelding "object vereist" die verschijnt na het volledig doorlopen van de code.
Ik weet dat een aantal forumleden een hekel hebben aan de opbouw van mijn code. Mijn excuses en ik sta open voor kritiek.
Ik maak een ontwerp om genummerde ingangskaarten af te drukken voor een vereniging. Ik heb dit onderwerp eerder gepost omdat ik niet wist hoe ik een afbeelding kon tonen of verbergen. VenA heeft mij de oplossing aangereikt en mij een zeer compacte code bezorgt die perfect functioneert. Waarvoor dank.
Ik wil de code nu aanpassen voor 3 kaarten op één A4-vel maar de code van VenA (zie hieronder) wijzigen, lukt mij niet.
Ik heb dan maar mijn eigen code uitgebreid maar ik word geconfronteerd met 2 problemen : op mijn werkblad zie ik, na doorlopen van de code met de F8-toets, 3 afbeeldingen terwijl het afdrukvoorbeeld slechts 2 afbeeldingen weergeeft. Het 2-de probleem is de foutmelding "object vereist" die verschijnt na het volledig doorlopen van de code.
Ik weet dat een aantal forumleden een hekel hebben aan de opbouw van mijn code. Mijn excuses en ik sta open voor kritiek.
Code:
Sub VenA()
c00 = Application.InputBox("Nummering vanaf :" & Chr(13) & "Gebruik 0 om de opdracht te onderbreken.", "Vanaf", , , , , , 1)
If c00 < 1 Then Exit Sub
c01 = Application.InputBox("nummering tot en met :" & Chr(13) & "Gebruik 0 om de opdracht te onderbreken.", "Tot en met", , , , , , 1)
If c01 < 1 Or c01 < c00 Then Exit Sub
For j = c00 To c01 Step 2
Range("I3:K3").Value = Array(j, "", j)
t = (j < c01) And (c01 - j) Mod 2 = 0 + Abs((c01 - c00) Mod 2 = 1)
ActiveSheet.Shapes("Afbeelding 2").Visible = t
Range("I20:K20") = IIf(t, Array("kaartno:", "", "kaartno:"), "")
Range("I18:K18") = IIf(t, Array(j + 1, "", j + 1), "")
ActiveSheet.PrintPreview
Next j
End Sub
Bijlagen
Laatst bewerkt: