Rij invoegen in tabel met standaard knop

[HBZ]

Als bijlage heb ik een voorbeeld bestand toegevoegd.
Het is de bedoeling dat andere mensen dit bestand gaan gebruiken en dat ze zelf een regel kunnen invoegen indien nodig.

Nu zou ik graag een knop willen maken, waar de relatie op kan klikken, om een rij in te kunnen voegen.
Dit om het voor de gebruikers zo gemakkelijk mogelijk te maken.
Wel moeten de bestaande formules meegenomen worden, bij het invoegen van de rij.


Ik hoop dat bovenstaande zo duidelijk is. Bekijk bijlage Test bestand.xlsx

 

[HSV]

Maak een commandbutton aan en zet deze code er eens achter.
Selecteer een cel in een van de twee tabellen, en druk op de knop.

Private Sub CommandButton1_Click()
With ListObjects(ActiveCell.ListObject.Name)
   .ListRows.Add (ActiveCell.Row - .HeaderRowRange.Row)
End With
End Sub

 

[HBZ]

Zou je even een toelichting willen geven, waar ik dat in moet geven.
Dit heb ik namelijk nog niet eerder gedaan

 

[HSV]

De code alsmede de knop om op te klikken staat erin.
Je moet het bestand opslaan met macro's.
.xlsb of .xlsm.

 

[HBZ]

Bedankt Harry!

Zou je mij alleen nog willen uitleggen hoe het werkt?
Ik moet deze knop ook in een ander bestand toevoegen.

 

[HSV]

Zoek eens op 'Ontwerpmodus en AciveX-besturingselementen'.
Beide bovengenoemde instrumenten kun je vinden in Opties → Aanpassen → Alle opdrachten.

Met de ActiveX-controls kies je de Commandbuttonknop dan dubbelklik je daarop en vervangt de code door onderstaande code die ik iets heb aangepast als je buiten de tabellen een cel hebt geselecteerd.

Daarna druk je op de knop Ontwerpmodus om de knop af te sluiten en werkend te maken.

Private Sub CommandButton1_Click()
If Not Intersect(ActiveCell, Union(ListObjects(1).DataBodyRange, ListObjects(2).DataBodyRange)) Is Nothing Then
Application.ScreenUpdating = False
  With ListObjects(ActiveCell.ListObject.Name)
   .ListRows.Add (ActiveCell.Row - .HeaderRowRange.Row)
  End With
End If
End Sub

Ps. de knoppen staan ook in Menu Ontwikkelaars.

 

[HBZ]

De knoppen kan ik inderdaad vinden en het lukt ook om een Commandbuttonknop op de pagina te krijgen.
Nu is het alleen nog zo dat de knop niet werkt, terwijl ik de ontwerpmodus wel uit zet.

 

[HSV]

Als de Ontwerpmodus aanstaat moet je even dubbelklikken op de button zodat je in de Vb-Editor komt.
In het grote witte vlak plak je de code.
Vbe sluiten en ontwerpmodus sluiten.

 

[HBZ]

Dat heb ik gedaan. Vervolgens heb ik de ontwerpmodus gesloten.

 

[HSV]

Werkt het niet?

 

[HBZ]

nee.
Ik selecteer de rij en klik daarna op de knop. Er gebeurt dan niets.

 

[HSV]

En de code staat erin?

 

[HBZ]

Alles staat erin, maar dan wil het nog niet.
Bij deze het document.

 

[HSV]

Werkt prima toch?

Selecteer een cel in een van de tabellen, geen hele rij van het blad.

 

[HBZ]

Je hebt inderdaad gelijk.
Ik selecteerde in 1 keer de gehele rij, is dit ook mogelijk?

 

[HBZ]

Harry,

Ik wil je in ieder geval bedanken voor je hulp.
Ik ben nu de laatste puntjes op de i aan het zetten in het document.
Nu loop ik er nog tegenaan, dat wanneer ik het werkblad beveilig, de button niet werkt.
Waar kan ik deze instelling aanpassen?

 

[HSV]

Even je wachtwoord aanpassen in de code (tussen de dubbele quotes).

Private Sub CommandButton1_Click()
If Not Intersect(ActiveCell, Union(ListObjects(1).DataBodyRange, ListObjects(2).DataBodyRange)) Is Nothing Then
Application.ScreenUpdating = False
    [COLOR=#0000ff]unprotect "wachtwoord"[/COLOR]
  With ListObjects(ActiveCell.ListObject.Name)
   .ListRows.Add (ActiveCell.Row - .HeaderRowRange.Row)
  End With
   [COLOR=#0000ff]protect "wachtwoord"[/COLOR]
End If
End Sub

 

[HBZ]

Bedankt Harry.

Kan het kloppen dat door de code het niet mogelijk is om de cellen weer te verwijderen?
(uiteindelijk lukt het mij wel als ik de beveiliging eraf haal, maar de mensen moeten ook zelf cellen kunnen verwijderen.

Bij het instellen van de beveiliging heb ik wel aangegeven dat ze rijen en kolommen mogen verwijderen.

 

[HSV]

Dat zijn van die onbegrijpelijke dingen in Excel.

 

[HBZ]

oke, jammer. Tot nu toe ging alles zo mooi.

Er is dus geen oplossing voor?