Opgelost Lege regel

[xbox360]

Hoi,
ik had een klein vraagje
is het mogelijk als je iets plakt dan er automatische een lege regel tussen komt
1 2 3 4 5
6 7 8 9 10
is het nu
moet als het mogelijk is dit worden

1 2 3 4 5
lege regel
6 7 8 9 10
lege regel
11 12 13 14 15

enz enz

Alvast super bedankt

 

[emields]

ja ,dat is mogelijk.

 

[xbox360]

@emields
ik heb nog in de oude doos gekeken heb dit gevonden
maar ene keer werkt die wel en de andere keer niet,
dus even uitzoeken tegen welke probleem die loopt

Sub ExtraRegel()
Dim i As Integer
For i = 1 To Selection.CurrentRegion.Rows.Count - 1
ActiveCell.Offset(1, 0).Range("A1:A1").Select
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
Next i
End Sub

 

[OctaFish]

Je kan de lus beter van beneden naar boven laten uitvoeren met Step -1; nu klopt het aantal regels niet als je van boven naar beneden loopt.

 

[xbox360]

dus zo

For i = -1 To Selection.CurrentRegion.Rows.Count 1

 

[OctaFish]

Bijna goed .

For i = Selection.CurrentRegion.Rows.Count - 1 To 1 Step -1

En uiteraard (dat had je nog niet) inbouwen dat je de regel alleen invoert op een veelvoud van 5.

 

[emields]

Wanneer ga je eens leren van zelf een voorbeeldbestandje te plaatsen?

 

[Warme bakkertje]

En wanneer ga jij eindelijk eens ophouden met statische bereiken te gebruiken in codes.

Private Sub CommandButton1_Click()
    For i = Range("A" & Rows.Count).End(xlUp).Row + 1 To 2 Step -1
    'For i = [a100].End(xlUp).Row + 1 To 2 Step -1
        Cells(i, 1).EntireRow.Insert
    Next i
End Sub

 

[emields]

Als iedereen die hier een vraag stelt net zo veel kennis van vba heeft als u.

 

[HSV]

@emields,

Onderstaand zag ik gisteren nog ergens voorbij komen.

met een voorbeeldbestandje kom je al snel tot dit resultaat.

P.S. volgende keer maak ik zelf geen voorbeeldbestandje meer, foto's zijn voor een ander forum.

 

[xbox360]

@Allemaal,
sorry emields voor geen voorbeeld maar wel die van u
en Warme bakkertje voor u code
enja had deze code nog ergens op een oude cdtje staan