Rij met formules invoegen via knop

[HSV]

Je dubbelklikt nu op een standaard module om code te zien.
Dubbelklik op "Blad10 (voorbeeld)" in de projectverkenner.

Of rechtermuisklik op de tab en kiezen voor "Programmacode weergeven".

 

[chakar]

ok ik doe het volgende:
ik klik op ontwikkelaars -> visual Basic -> Projectverkenner -> VBAPProject (voorbeeld.xlsm) -> map modules -> module 1

in de map VBAPProject (voorbeeld.xlsm) -> Blad 10 (voorbeeld) zie ik enkel dit staan:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Application.Goto Range(Target.SubAddress), True
End Sub

 

[HSV]

Bekijk de bijlage in #15 nog eens.

 

[chakar]

heb ik gedaan. Als ik dubbelklik op blad 10 dan krijg ik dit:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Application.Goto Range(Target.SubAddress), True
End Sub

Private Sub CommandButton1_Click()
With ListObjects(1)
.ListRows.Add .ListRows.Count
End With
End Sub

is het dit wat je bedoeld ?

 

[HSV]

Juist.

Die onderste code is het; de followhyperlink stond er al.

 

[chakar]

ik krijg opniew de melding dat mogelijk de macros zijn uitgeschakeld doch staan deze ingeschakeld

Deze code staat momenteel bij mij

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Application.Goto Range(Target.SubAddress), True
End Sub



Private Sub CommandButton1_Click()
With ListObjects(1)
.ListRows.Add .ListRows.Count
End With
End Sub

 

[HSV]

Dat probleem kan zich voordoen als je mijn code probeert aan jouw knop te hangen.
De knop die ik gebruik is een commandbutton uit de ActiveX elementen, en niet een formulierknop.

Edit: De code kan wel wat eenvoudiger.

Private Sub CommandButton1_Click()
 ListObjects(1).ListRows.Add
End Sub

 

[chakar]

Als ik een commandbutton (Active X-besturingselement) wil invoegen dan staat dit niet opgelicht ?

 

[HSV]

Die knop moet je werkend maken d.m.v. de 'driehoek/potlood/liniaal' knop (Ontwerpmodus).