Bij code rijen invoegen graag ook de formules en layout mee invoegen

Status
Niet open voor verdere reacties.

gast0660

Terugkerende gebruiker
Lid geworden
28 dec 2010
Berichten
4.530
Hoi,
Ik heb volgende code
Code:
Private Sub CommandButton1_Click()
Dim Rng As Long
    Dim lngA As Long
    Dim lngB As Long
     
    Application.ScreenUpdating = False
     
    Rng = InputBox("Aantal in te voegen rijen?")
     
    If Rng = 0 Then Exit Sub
     
    Range(ActiveCell, ActiveCell.Offset(Val(Rng) - 1, 0)).EntireRow.Insert
    lngB = ActiveCell.Offset(-1, 0).Row
    lngA = Cells(lngB, Columns.Count).End(xlToLeft).Column
    Range(Cells(lngB, 1), Cells(lngB + Val(Rng), lngA)).FillDown
End Sub
Maar ik wil dat de formules en de layout ook worden meegenomen, niet de inhoud
Iemand een idee?
groet
 
Misschien zoiets?

Code:
Private Sub CommandButton1_Click()
Dim Rng As Long
    Dim lngA As Long
    Dim lngB As Long
     
    Application.ScreenUpdating = False
     
    Rng = InputBox("Aantal in te voegen rijen?")
     
    If Rng = 0 Then Exit Sub
     
    Range(ActiveCell, ActiveCell.Offset(Val(Rng) - 1, 0)).EntireRow.Insert
    lngB = ActiveCell.Offset(-1, 0).Row
    lngA = Cells(lngB, Columns.Count).End(xlToLeft).Column
[COLOR="#008000"]'    Range(Cells(lngB, 1), Cells(lngB + Val(Rng), lngA)).FillDown[/COLOR]
    
    [COLOR="#FF0000"]Range(Cells(lngB, 1), Cells(lngB, lngA)).Copy
    Range(Cells(lngB + 1, 1), Cells(lngB + Val(Rng), lngA)).PasteSpecial (xlPasteFormulas)
    Range(Cells(lngB + 1, 1), Cells(lngB + Val(Rng), lngA)).PasteSpecial (xlPasteFormats)[/COLOR]
    
    
End Sub

Grtz,
MDN111.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan