Private sub automatisch starten vanuit een andere private sub.

[bar88]

Ik heb een vraag.
Hopelijk kan het wat ik wil.

Ik heb een private sub.
Ik wil hierin dat hij een andere private hun opstart. Hieronder een voorbeeld.

Private Sub Workbook_Open()
Sheets("blad3").Select
  gev = Application.Match(Range("C1"), Sheets("Blad1").Columns(1), 0)
  If IsNumeric(gev) Then Range("B3") = Sheets("Blad1").Cells(gev, 2).Value
start Private Sub CommandButton1_Click() 'voorbeeld zin
end sub

Private Sub CommandButton1_Click()
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
End Sub

 

[HSV]

Maak van:

Private Sub CommandButton1_Click()

[COLOR=#ff0000]Public[/COLOR] Sub CommandButton1_Click()

en van:

start Private Sub CommandButton1_Click() 'voorbeeld zin

sheets(3).CommandButton1_Click

 

[bar88]

Heel erg bedankt, maar krijg een melding

Fout 438 uitvoering:

Deze eigenschap of methode wordt niet ondersteund door dit project

Wat zou dat kunnen zijn?

 

[HSV]

Kan ik niet beoordelen zonder bestand.
Gokje.

sheets([COLOR=#ff0000]"Blad3"[/COLOR]).commandbutton1_click

 

[bar88]

Ja dat was idd het probleem, heel erg bedankt.
Ik ga nu weer verder spelen