• 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.

module laten uitvoeren vanuit 'Private tab'

Status
Niet open voor verdere reacties.
B

Bjorkie

Gebruiker
Lid geworden
12 sep 2017
Berichten
147
hoi,

mijn bestand heeft een 'Userform', waarbij ik een module will laten starten indien op de OK knop gedrukt is.

dit is de code van de Userform:
Code: 
Private Sub OK_button_Click()
    For Each sh In ThisWorkbook.Sheets
      With sh.PageSetup
        .LeftFooter = CustomerField.Text
        .CenterFooter = ProjectName.Text
        .RightFooter = OfferDate.Text
      End With
      Unload Me
    Next
End Sub

dit is de naam van mijn module die ik oproepen will (een call .... werkt niet?)
Code: 
Sub Clear_Default_Calculation_Page()

bestand kan ik spijtig genoeg niet meegeven, want dan is er een handleiding nodig ;-)
lol
 
Maak er eens dit van:
Code: 
[COLOR="#FF0000"]Public[/COLOR] Sub Clear_Default_Calculation_Page()
 
Ik bekom een 'expected End sub' foutmelding
ik vermoed dat ik de regels ergens foutief geplaatst heb?

Code: 
Private Sub OK_button_Click()
    For Each sh In ThisWorkbook.Sheets
      With sh.PageSetup
        .LeftFooter = CustomerField.Text
        .CenterFooter = ProjectName.Text
        .RightFooter = OfferDate.Text
      End With
      Unload Me
      Next
      End
      Sheets("Calculation").Select
Public Sub Clear_Default_Calculation_Page()
End Sub

met de code "Sheets("Calculation").Select" wil ik telkens dit blad activeren (hierop staat ook een Macro knop die de gewenste 'clear_default_calculation_page' uitvoerd
 
Laatst bewerkt:
hierop staat ook een Macro knop die de gewenste 'clear_default_calculation_page' uitvoert
Klik om te vergroten...

dan kun je die macro ook meteen starten.

Lees eerst nog eens hoofdstuk 8 van je VBA-handboek rustig door.
Want wat je in je laatste code deed heeft niets met VBA te maken.
 
Laatst bewerkt:
Dit moet zijn:
Code: 
Private Sub OK_button_Click()
    For Each sh In ThisWorkbook.Sheets
      With sh.PageSetup
        .LeftFooter = CustomerField.Text
        .CenterFooter = ProjectName.Text
        .RightFooter = OfferDate.Text
      End With
      Unload Me
      Next
      End
      Sheets("Calculation").Select
      Clear_Default_Calculation_Page
End Sub
 
Bjorkie zei:
Ik bekom een 'expected End sub' foutmelding
ik vermoed dat ik de regels ergens foutief geplaatst heb?
met de code "Sheets("Calculation").Select" wil ik telkens dit blad activeren (hierop staat ook een Macro knop die de gewenste 'clear_default_calculation_page' uitvoerd
Klik om te vergroten...

Je moet uiteraard de Sub clear_default_calculation_page daar op aanpassen en niet de OK_button_Click
 
ok allen, bedankt voor de info.
ik ga het op een andere manier laten werken. (dit is mij wat te lastig) :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan