ShowAllData

[Guidolavespa]

Waarom werkt deze procedure niet?
Er gebeurt helemaal niets.

Private Sub cmdAllesweergeven_Click()

Worksheets("Opvolgingslijst").ShowAllData

End Sub

Wanneer ik in de procedure sta en klik op uitvoeren werkt het wel. De procedure verbinden met een knop werkt niet??

enig idee???

 

[Ingrid B]

Is de naam van de knop zeker hetzelfde als de naam van de macro, dus cmdAllesweergeven.
Zet volgende regel misschien eens in het begin van de macro om te controleren of de macro wel start:

MsgBox "Start macro"

 

[Guidolavespa]

In beide gevallen krijg ik de messagebox.

Dus de procedure start.

In de VBA editor start de procedure wel. Met een opdrachtknop niet.

 

[Ingrid B]

Het is maar wat gissen:

- staat de macro op de werkblad-code

- heb je de knop aangemaakt via de werkbalk Werkset Besturingselementen

- staat er een beveiliging ingesteld op het werkblad

 

[huijb]

Private Sub .........._Click() is toch geen macro, dat is toch een click event?

 

[Guidolavespa]

de PROCEDURE staat op de werkblad-code

- heb je de knop aangemaakt via de werkbalk Werkset > JA

- staat er een beveiliging ingesteld op het werkblad > NEE

 

[Ingrid B]

Geplaatst door huijb
Private Sub .........._Click() is toch geen macro, dat is toch een click event?

Een event is een gebeurtenis. Wanneer die gebeurtenis plaatsvindt wordt er een procedure uitgevoerd. Of macro een correcte naam hiervoor is weet ik niet 100% zeker, maar een event is het zeker niet, het is een event-procedure.

 

[huijb]

Het is mij ook nog niet gelukt om een commandbutton aan een macro te koppelen. Wel een button, je weet wel rechtermuisknop op werkbalk dan Formulieren selecteren en vervolgens je button tekenen dan opent zich vanzelf het macro toewijsmenu.

 

[Guidolavespa]

dit is allemaal niet belangrijk....

als het maar werkt, maar dat doet het niet.

Andere knoppen (events) gaan perfect, zoals:

Sub Get_User_Name()

Dim lpBuff As String * 25
Dim ret As Long, UserName As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
MsgBox "Welkom " & UserName, vbInformation

End Sub

 

[huijb]

Sorry hoor we proberen alleen je probleem te analyseren.

 

[Ingrid B]

Geplaatst door Guidolavespa
de PROCEDURE staat op de werkblad-code

- heb je de knop aangemaakt via de werkbalk Werkset > JA

- staat er een beveiliging ingesteld op het werkblad > NEE

Ik heb geen idee meer, kan je (een deel van) je document hier eens posten misschien.

 

[Guidolavespa]

In bijlage een voorbeeldje.

wel de extensie wijzigen in .xls

 

[Ingrid B]

Klein probleempje, bij mij werkt die knop wel (in XP)

Met welke versie van Excel werk jij?

 

[Guidolavespa]

dacht ik al, ik werk met excel97

in excel 2000 zal dit ook werken denk ik.

Wat nu , bestaat er een alternatief?
Ben ik echt de enige die dit wel uitvoeren?

Als ik de event toewijs aan een macro en een knop dan werkt het wel!
U ziet het verschil in bijlage.

Zie het handje en de pijl als men op de knop komt.

 

[Ingrid B]

XP is blijkbaar slimmer dan 97, maar met een beetje hulp lukt het toch ook in Excel 97. Het enige wat er blijkbaar moet gebeuren is de optie TakeFocusOnClick van de CommandButton op False zetten.

 

[Guidolavespa]

FORMIDASTISCH !!!!!!!!!!!!

proficiat , hoe komt u erbij?

Alvast bedank en tot later eens!

 

[Ingrid B]

Geplaatst door Guidolavespa
hoe komt u erbij?

Gewoon wat proberen en niet te snel toegeven aan de grillen van Excel

Maar deze discussie toont wel aan dat het altijd nuttig is om de gebruikte Excel versie te vermelden, want dan had ik het veel sneller in Excel 97 uitgeprobeerd.