Toevoegen rij(en)

[fransol1]

Hallo,

ik heb een kleine uitdaging,
ik moet metingen uitvoeren, soms 10 kabels en dan weer 200 stuks
ik zou graag willen kiezen hoeveel rijen ik er bij zou willen.
In A8 zit een verborgen regel, hier wil ik een kopie van toevoegen.(kiezen hoeveel stuks)


Vast bedankt, Frans

 

[SjonR]

Waarom al die verborgen kolommen en samengevoegde cellen? Als je de samengevoegde cellen even wegdenkt, werkt dit volgens mij wel.

Private Sub CommandButton1_Click()
Range("A14:AH10000").Borders.LineStyle = xlNone
    With Range("A14:AH" & InputBox("Voer het gewenst aantal rijen in!") + 13).Borders
        .LineStyle = xlContinuous
    End With
End Sub

 

[Jack Nouws]

Ik zou er een tabel van maken...

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Private Sub CommandButton1_Click()
  For j = 1 To InputBox("Voer het gewenst aantal rijen in!")
    ListObjects(1).ListRows.Add
  Next
End Sub
[/FONT]

 

[roeljongman]

Je hebt die verborgen rij niet nodig als opmaak

zolang je binnen de tabel een rij selecteert van Kolum A tm AH en je doet invoegen dan wordt ook de opmaak gekopieerd van de rij direct boven het invoeg bereik.

Ik heb dus een code gemaakt waarmee jij alleen een aantal regels hoeft te selecteren, dat hoeft niet het exacte bereik te zijn alleen een 4 cellen onderelkaar in kolom A of willekeurige andere kolom zal bij klikken op de knop zorgen dat 4 rijen worden ingevoegd. voor het hele bereik van kolom A tm AH.

Sub RijenInvoegen()

Selection.Cells(Selection.Row, 1).Resize(Selection.Rows.Count, 34).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

 

[emields]

of zo. natuurlijk zonder samengevoegde cellen.

 

[fransol1]

Jongens, Bedankt
Het is gelukt