Rij invoegen (mbh VBA gekoppeld aan button) voor een bepaald geselecteerde cel

[tonissteiner]

Dag gebruikers,

in bijgaand bestandje zou ik graag een rij toevoegen. de rij die ingevoegd zou moeten worden is een template. deze template is een verborgen rij op het werkblad. in dit voorbeeld rij 25 of rij 26. welke rij er ingevoegd zou worden bepaal je door én van de twee buttons aan te klikken "add new company" of "add new name". de bedoeling is dus als je op een welbepaalde cel in kolom B gaat staan, de rij ervoor ingevoegd zal worden met als template rij 25 of 26 dus.

waarschijnlijk niet zo moeilijk voor iemand die thuis is in VBA maar voor mij onmogelijk. in het bestandje zitten al een aantal macro's waarmee ik geëxperimenteerd heb maar het lukt mij totaal niet

 

[HSV]

Lukt het hiermee?

Sub Company()
 With ActiveCell
  If .Column = 2 Then
   .EntireRow.Insert xlShiftDown
     Range("A25").EntireRow.Copy .Offset(-1).EntireRow
   End If
  End With
End Sub
Sub Name()
 With ActiveCell
  If .Column = 2 Then
   .EntireRow.Insert xlShiftDown
     Range("A26").EntireRow.Copy .Offset(-1).EntireRow
   End If
  End With
End Sub

 

[tonissteiner]

het werkt prima! Bedankt HSV.
eigenlijk simpel... als je het weet en kent hé

met vriendelijke groet