VBA code om een commandbutton te activeren

[Cobbe]

Sla uw bestand op als *.xlsb dan kun je het wel posten

 

[Scallebe]

Gelukt...

Bekijk bijlage Test CCF.zip

Ik hoop dat je er iets mee kunt doen

 

[Scallebe]

of zo...

Bekijk bijlage 259597

 

[Cobbe]

ik vrees dat ik niet goed kan inschatten wat het probleem echt is
Als ik je code toepas op de bestanden als ik die bij mij opsla
loopt het toch naar wens (of ik begrijp niet goed wat moet gebeuren)

 

[Scallebe]

Inderdaad de 2 excelbestanden werken individueel goed.

En als ik op de knop ... werkkopij... klik dan start de procedure. Prestaties CCF gaat open met het hoofdmenu. Ik klik op bv Overzicht Alle CCF en de code gaat verder...



De bedoeling in deze situatie is : (afgaande op de meegestuurde voorbeelden)

Wanneer ik Creatie versie Pascal Test open en dan op de knop klik dan gaat de Test CCF open met het Hoofdformulier.

Dat hoofdformulier zou automatisch moeten sluiten in plaats van dat de gebruiker op bv Overzicht Alle CCF moet klikken. (niet dat het onoverkomelijk is maar met een code zou het makkelijker zijn voor de gebruiker)

Of de knop Overzicht Alle CCF zou moeten geactiveerd worden of de code die er achter zit.

 

[Cobbe]

Zet deze code eens in frmHoofdmenu-code

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "opdracht"
End Sub

En de macro in een Module:

Sub opdracht()
Unload frmHoofdmenu
End Sub

 

[Scallebe]

Cobbe,

Uw code werkt perfect, na 5 sec sluit het Hoofdmenu zich en gaat de code verder.


Het nadeel is nu wel dat wanneer de gebruikers werken met Prestaties CCF het hoofdmenu zich ook steeds gaat sluiten na 5 sec. En dat is niet de bedoeling.

Het zou alleen maar mogen gebeuren bij het maken van de WerkKopij.

Sorry hoor...

 

[Cobbe]

Ja dat dacht ik al daarom een timer ingebouwd.

Maar dan kan je deze regel toch gebruiken waar je denkt hem nodig te hebben:

Application.OnTime Now + TimeValue("00:00:05"), "opdracht"

 

[Scallebe]

De vraag is natuurlijk waar :shocked:

Ik heb het hier geplaatst, na het openen van Prestaties CCF (lijkt mij logisch, maar ja......)

Public Sub cmdWerkKopij_Click()

Unload frmWerkKopij

' Opent Prestatie CCF
  
    ChDir "C:\Users\vandeputte.p\Desktop"
    Workbooks.Open Filename:= _
        "C:\Users\vandeputte.p\Desktop\Prestaties CCF.xlsm"
  
'    ChDir "N:\BFA-M-AG-MA\CCF (externe zorgverstrekkers)\Prestaties"
'    Workbooks.Open Filename:= _
'        "N:\BFA-M-AG-MA\CCF (externe zorgverstrekkers)\Prestaties\Prestaties CCF.xlsm"
    
Application.OnTime Now + TimeValue("00:00:05"), "opdracht"

'Unload Statsform
'Unload Me de form naam is frmHoofdmenu
'Call Sheets("Alle CCF").Select

frmOpslaan.Show
'    MsgBox "Het bestand zal nu op de N-Drive 'BFA-M-CHEF' opgeslagen worden." & vbNewLine & "" & vbNewLine & "U kan later het bestand een eigen naam geven."

'     ChDir "C:\Users\Pascal\Desktop"
    ChDir "C:\Users\vandeputte.p\Desktop"
'    ChDir "N:\BFA-M-CHEF"
    Application.DisplayAlerts = False

De hoofdmenu sluit niet na 5 sec...
Ik klik dus zelf op Overzicht Alle CCF
frmOpslaan verschijnt

en plots (na 5 sec) error voor "opdracht"... aja hij vind frmHoofdmenu niet meer omdat ik zelf geklikt heb en het al gesloten is.

Dus de code

Application.OnTime Now + TimeValue("00:00:05"), "opdracht"

werkt wel maar niet op het juiste moment.

 

[Cobbe]

Sorry maar ik vrees dat ik niet verder kom.
Maar toch lijkt het me niet correct dat de appL.... in deze code staat, deze kan maar zijn werk correct doen als die in het CCF-bestand staat.

 

[Scallebe]

Cobbe,

Toch bedankt voor de moeite.

de chef moet voorlopig maar klikken.

Ik zet de speurtocht verder.


Greetz

Pascal