"Dé grootste en gratis computerhelpdesk van Nederland"
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Rij met formules invoegen via knop
- Onderwerp starter chakar
- Startdatum
- Status
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
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
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 ?
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 ?
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
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
Laatst bewerkt:
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.304
- Office versie
- Office 365
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.
De knop die ik gebruik is een commandbutton uit de ActiveX elementen, en niet een formulierknop.
Edit: De code kan wel wat eenvoudiger.
Code:
Private Sub CommandButton1_Click()
ListObjects(1).ListRows.Add
End Sub
Laatst bewerkt:
- Status
