Rij invoegen NA geselecteerde cel

[tonissteiner]

is er iemand die mij zou willen helpen met een VBA code? ik zou een rij willen invoegen maar niet standaard volgens excel voor die rij maar als je een cel selecteert zou die rij moeten ingevoegd worden na deze cel.
ik heb volgende code maar die voegt dus in voor die geselecteerde cel.

ook zou dan de cel in kolom A moeten geselecteerd worden na het invoegen van die rij

Sub Titel_Nieuw()
'
Application.ScreenUpdating = False

    Dim sCelAdres As String

    sCelAdres = Selection.Address
    
    ActiveSheet.Unprotect
    
    Rows("14:20").Select
    Selection.EntireRow.Hidden = False

    Application.Goto Reference:="Titel_sjabloon"
    Selection.Copy

    Range(sCelAdres).Select
    Rows(ActiveCell.Row).EntireRow.Insert Shift:=xlShiftDown
    Application.CutCopyMode = False
    
    Rows("15:20").Select
    Selection.EntireRow.Hidden = True
    
    ActiveSheet.Protect
    
  Application.ScreenUpdating = True
    
End Sub

Alvast bedankt

 

[Roncancio]

ActiveCell.Offset(1, 0).EntireRow.Insert

Met vriendelijke groet,


Roncancio

 

[tonissteiner]

Woehoew bedankt,

is niet moeilijk als je het weet he

 

[tonissteiner]

Beste Roncancio,

hoe kan ik het ook gedaan krijgen dat ik naar de cel in kolom A spring die laatst ingevoegd werd?

 

[Roncancio]

1 coderegel toegevoegd.

ActiveCell.Offset(1, 0).EntireRow.Insert
Range("A" & ActiveCell.Row + 1).Select

Met vriendelijke groet,


Roncancio

 

[tonissteiner]

Beste Roncanio,

bedankt voor je reactie maar het blijkt toch niet echt te werken. ik denk dat het te maken heeft met de regel
Rows("15:20").Select
Selection.EntireRow.Hidden = True
die op het einde van de code staat
er zou ergens nog een sleutel moeten ingebouwd worden dat de laatst geselecteerde onthouden zou worden en er na die hidden terug naartoe gesprongen zou kunnen worden
heb je hier ook een oplossing voor?

mvg,

Stefan

 

[Joske2000]

Hi Stefan,

De select eruit dus :

ipv :

Rows("15:20").Select
Selection.EntireRow.Hidden = True

Rows("15:20").EntireRow.Hidden = True

In feite moet je zoveel mogelijk select en activate uit je code halen.

Joske

 

[tonissteiner]

hallo Joske,

bedankt voor de tip en bedankt voor de oplossing. nu kan ik weer verder

hasta la ...