Regels toevoegen

[Hans83]

Hoi.

ik wil een macro maken als ik bijvoorbeeld in cel C2 drie heb staan dat hij dan onder C6 drie rijen aanmaakt en ieder rij heeft vanaf C6 t/m wat er in C2 staat een getal staan bijvoorbeeld 1 t/m 3.
hoop dat het een beetje duidelijk is.

Groetjes Hans

 

[Wigi]

Sub rijeninvoegen()

    Dim l As Long
    
    If Range("C2").Value > 0 Then
        Range("C7").Resize(Range("C2").Value, 1).EntireRow.Insert
    End If
    
    For l = 1 To Range("C2").Value
    
        Range("C6").Offset(l).Value = l
    
    Next

End Sub

Wigi

 

[Hans83]

Bedankt

en als C2 op blad1 staat en dat de macro een regel moet toevoegen op blad2?

 

[Roncancio]

Bedankt

en als C2 op blad1 staat en dat de macro een regel moet toevoegen op blad2?

Onderstaande code zet de gegevens op het 2e werkblad (ongeacht de naam van het werkblad).

Sub rijeninvoegen()

    Dim l As Long
    
    If Range("C2").Value > 0 Then
        [B]Worksheets(2)[/B].Range("C7").Resize(Range("C2").Value, 1).EntireRow.Insert
    End If
    
    For l = 1 To Range("C2").Value
    
        [B]Worksheets(2)[/B].Range("C6").Offset(l).Value = l
    
    Next

End Sub

Wil je de naam van het werkblad veranderen dan dien je het vette gedeelte te vervangen door: Worksheets([naam werkblad])
Bijv.:

Worksheets("Blad2")

Met vriendelijke groet,


Roncancio

 

[Hans83]

Bedankt het werkt perfect.

is er ook een mogelijkheid dat hij niet de opmaak mee neemt?
bijvoorbeeld een arcering en cel grote?

Groetjes Hans

 

[Roncancio]

Bedankt het werkt perfect.

is er ook een mogelijkheid dat hij niet de opmaak mee neemt?
bijvoorbeeld een arcering en cel grote?

Groetjes Hans

Volgens mij neemt de macro de opmaak niet mee.
Of moet dat juist wel?

Met vriendelijke groet,


Roncancio

 

[Hans83]

Volgens mij neemt de macro de opmaak niet mee.
Of moet dat juist wel?

Met vriendelijke groet,


Roncancio

er boven staat een regel met een arcering en die neemt hij over en ik heb er boven celen samen gevoegd en dat neemt hij weer niet over raar.

 

[Roncancio]

er boven staat een regel met een arcering en die neemt hij over en ik heb er boven celen samen gevoegd en dat neemt hij weer niet over raar.

Zo raar is dat niet aangezien je meer dan 1 cel moet hebben om cellen te kunnen samenvoegen. Met deze macro worden alleen maar cellen toegevoegd niet samengevoegd.

Met vriendelijke groet,


Roncancio