Tabblad invullen dmv uitlezen grafiek, vervolgens als pdf opslaan (vba)

[MrVangee]

Beste VBA-experten,

Ben al een tijdje bezig met het programmeren van onderstaande situatie. Maar loop steeds op enkele foutmeldingen die ik hopelijk met jullie hulp kan verhelpen.

Tabblad 1 is een overzicht van personen met bijhorende acties/bevoegdheden aangeduid.
Tabblad 2 is een bevoegdheidsverklaring dat volgt uit het eerste tabblad.

Mbv het dubbelklikken op een cel opent zich het userform, waarna de bijhorende (ingevulde) verklaring opgeslagen dient te worden als pdf.

Het openen van het userform, annuleren is reeds geprogrammeerd. Bij het opslaan van het attest loopt het echter mis.
Onderstaand voorbeeldbestand zal reeds veel verduidelijking brengen.

Bekijk bijlage Hulpbestand .xlsm

Alvast een welgemeende dankjewel,
Met vriendelijke groeten,

Van Gerven Jannick

 

[lam201]

Jannick,

deze regel klopt niet:

With Sheets(Attest & " " & txtNaam.Text).Select

vervang 'm door

 With Sheets("Attest")

Daarnaast klopt deze ook niet:

Private Sub UserForm_Initialize()
    txtNaam.Text = Cells(ActiveCell.Row, 2)
    txtAfdeling.Text = Cells(ActiveCell.Row, 1)
End Sub

als je dubbelklikt in cel A2, zal je txtnaam altijd leeg zijn en txtafdeling altijd: "Dubbeklik op cel om userform te openen"
Maak bijvoorbeeld een vorm/Form Control/Active-X Control welke je aan de Userform.initialize linkt



groet,
Lambert

 

[MrVangee]

Beste,

Alvast bedankt voor je reactie. Heb het aangepast.
Heb je misschien ook de VBA formule voor het uitlezen van de aangeduide opdrachten?
Waar een 'x' in de tabel staat weergegeven zou de bovenstaande opdracht uitgelezen moeten worden en opgelijst worden in het tabblad Attest.

Hopelijk heb ik het een beetje duidelijk verwoord.

Alvast bedankt,

Jannick