• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

multiple Userforms en invoertekst liefst in footer komen

Status
Niet open voor verdere reacties.
B

Bjorkie

Gebruiker
Lid geworden
12 sep 2017
Berichten
147
Hey allen,
met Userforms heb ik nog niet gewerkt.
heb wat zitten prutesen, maar dit gaat niet lukken zo, hierbij graag een beetje advies van de experten.

bij het openen van mijn excel document, komt een eerste Userform tevoorschijn met vaste tekst.
in dit form heb ik 2 knoppen en 1 checkbox. de OK knop is enkel aktief nadat de checkbox gechecked is.
De CANCEL knop, sluit alles terug af (ook excel) zonder wijzigingen
de OK knop sluit dit venster en maakt een ander form open.
hier moet ik 4 tekst velden invullen (Naam; Datum;klant; initialen) en 1 checkbox
nu de kers op de taart.
op al mijn tabbladen wil ik dat bij het printen, deze tekst labels (liefst) in de footer verschijnen.

ik weet dit is behoorlijk wat, maar ik wil liefst de volledig opzet verklaren, om onnodig veel tickets te creeren.

Capture.JPG

Bekijk bijlage Book1.xlsm
 
Voorbeeldje voor in je voetregel
Code: 
  With ActiveSheet.PageSetup
    .LeftFooter = CustomerField.Text
    .CenterFooter = ProjectName.Text
    .RightFooter = OfferDate.Text
  End With
 
Probeer maar eens en kijk maar of dit is wat je bedoeld.
 

Bijlagen

  • Book1.xlsb
    18,2 KB · Weergaven: 41
hey Jack, thanks.
dit begint er al op te lijken.
is er een mogelijkheid om dit op mijn volledige 'workbook' te doen? of moet ik de opsomming van de sheets doen?
Code: 
Private Sub Cancel_button_Click()
  Unload Me
End Sub

Private Sub OK_button_Click()
  If CheckBox1 Then
    With Workbook.PageSetup
      .LeftFooter = CustomerField.Text
      .CenterFooter = ProjectName.Text
      .RightFooter = OfferDate.Text
    End With
      Unload Me
      Sheets("Sheet1").PrintPreview
  Else
    MsgBox "Je moet je CheckBox aanvinken", vbInformation, "PrintControl"
  End If
End Sub

Private Sub UserForm_Initialize()
  OfferDate = Format(Date, "dd-mm-yyyy")
End Sub

zou zoiets kunnen?
 
Probeer dit maar eens
Code: 
Private Sub OK_button_Click()
  If CheckBox1 Then
    For Each sh In ThisWorkbook.Sheets
      With sh.PageSetup
        .LeftFooter = CustomerField.Text
        .CenterFooter = ProjectName.Text
        .RightFooter = OfferDate.Text
      End With
    Next
 Else
    MsgBox "Je moet je CheckBox aanvinken", vbInformation, "PrintControl"
  End If
End Sub
 
perfect.
hierbij is het eerste puntje opgelost.
top bedankt Jack!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan