Macro Rijen Invoegen

[Freddy_Mulder]

Goedemiddag,

 

Wie kan mij helpen met het aanpassen van mijn script.

ik wil rijen invoegen van de actieve cel waar ik staat.

in deze rij zitten formules en invoer cellen nu wil ik alleen de formules meenemen en niet de invoer.

mijn script ziet er nu zo uit en kopieert de hele rij .

 

Sub Rijen_Invoegen()
ActiveSheet.Unprotect
For i = 1 To InputBox("Hoeveelregels?")
  Rows(ActiveCell.Row).Copy
  Rows(ActiveCell.Row).EntireRow.Insert Shift:=xlShiftDown
Next i
ActiveSheet.Protect
End Sub

 

Al vast bedankt voor jullie hulp

[alpha]

Plaats hier eens een Excel-voorbeeldbestandje waaruit blijkt welke formules je gebruikt en in welk bereik je gegevens staan.

 

[alpha]

@Freddy,

geen oplossing meer nodig?