anoniem Geplaatst: 25 oktober 2002 Delen Geplaatst: 25 oktober 2002 Ik heb een sub die eigenlijk bij 3 dingen van toepassing is ik kan em wel bij alle drie kopieren maar kan ik niet naar die sub verwijzen De sub heet Private Sub Check Formule() als dit is blabla dan dat is bla bla end sub moet ik soms iets met public function doen? Quote Link naar reactie
anoniem Geplaatst: 25 oktober 2002 Auteur Delen Geplaatst: 25 oktober 2002 Ja, dat kan met call [code:1:ae04c8933e]Sub Test print "Dit is een test" End Sub[/code:1:ae04c8933e] Deze sub kan je aanroepen door Call Test Quote Link naar reactie
anoniem Geplaatst: 26 oktober 2002 Auteur Delen Geplaatst: 26 oktober 2002 Als je meer dingen wil weten kan je ook eens een kijkje nemen op: [url]http://www.experts-exchange.com/Applications/MS_Office/[/url] Hier kan je zoeken op deze site en hier staan veel handige dingen over VBA ! Zoek maar eens op CALL en je zult vinden: Private Sub Workbook_Open() MsgBox "Hi there!" End Sub Sub TestOne() [color=red:b047f7fedf]Call Workbook_Open[/color:b047f7fedf] End Sub Quote Link naar reactie
anoniem Geplaatst: 26 oktober 2002 Auteur Delen Geplaatst: 26 oktober 2002 Als je wilt dat je sub vanuit andere Modules of Forms aangeroepen kan worden dan moet je de sub als public definiëren, private beperkt de sub tot de Module of Form waarin die staat. Quote Link naar reactie
anoniem Geplaatst: 26 oktober 2002 Auteur Delen Geplaatst: 26 oktober 2002 Bedankt amar nu zit er toch nog iets out, aleen all fiels of niet werkt mp3 en wav niet. [code:1:54f21cb665] Private Sub chkall_Click() Call Checkforumule End Sub Private Sub Checkforumule() If chkall = Unchecked Then If chkmp3.Value = Checked And chkwav.Value = Checked Then filFile.Pattern = "*.mp3;*.wav" Exit Sub End If If chkmp3.Value = Checked And chkwav.Value = Unchecked Then filFile.Pattern = "*.mp3" Exit Sub End If If chkmp3.Value = Unchecked And chkwav.Value = Checked Then filFile.Pattern = "*.wav" Exit Sub End If If chkmp3.Value = Unchecked And chkwav.Value = Unchecked Then filFile.Pattern = "" Exit Sub End If Else filFile.Pattern = "*.*" End If End Sub [/code:1:54f21cb665] Weet iemand wat er niet klopt, ligt het aan de else? Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen