Macro werkt half (en dus eigenlijk helemaal niet )

[DJ.Funny]

Beste Lezers,

Ten eerste voor iedereen een oplossend 2016!!


Ik heb een macro gemaakt (met behulp van flink Googelen ) maar het geeft niet het gewenste resultaat

Sub Test3()

Dim i As Integer

Range("A4").Select

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

    ActiveCell.Offset(1, 0).Range("A1:A4").Select
    Selection.EntireRow.Insert
    ActiveCell.Offset(4, 0).Select
    
Next i

End Sub

Echter de laatste 4 cellen worden op deze manier niet meegenomen.

Ook zou ik de waarde van de cel erboven willen kopieren, alleen die specifieke combi lukt al helemaal niet

Kan iemand mij helpen?

Ik sluit de Excel bij daar zie je ook een Excel met zoals ik het uiteindelijke resultaat zou willen zien (tabblad resultaat).

Bekijk bijlage Regels_invoegen.xlsm

 

[gast0660]

Hoi,
Waar is de Excel?
Groet

 

[DJ.Funny]

Oeps, die staat er nu bij!!

 

[gast0660]

Hoi,
Het is weer mislukt
Ga naar Ga geavanceerd bijlage toevoegen (onder 100 kb blijven)

Edit is toch gelukt, ik had alleen naar uw laatste postje gekeken

 

[OctaFish]

Je moet ook niet bij 4 beginnen, maar bij 1. Nu loop je te kort door de lus.

 

[VenA]

Probeer deze eens.

Sub VenA()
ar = Sheets(1).Cells(4, 1).CurrentRegion
For j = 1 To UBound(ar)
    c00 = c00 & "|" & ar(j, 1) & "|" & ar(j, 1) & "|" & ar(j, 1) & "|" & ar(j, 1)
Next j
With Sheets(2)
    .Columns(1).NumberFormat = "@"
    .Cells(4, 1).Resize(UBound(ar) * 4, 1) = Application.Transpose(Split(Mid(c00, 2), "|"))
End With
End Sub

 

[Cobbe]

Test deze eens:

Sub Cobbe()
 Dim i As Integer
 For i = Range("A4").CurrentRegion.Rows.Count - 1 + 3 To 4 Step -1
    Selection.EntireRow.Insert
    Cells(i, 1).Offset(4, 0).Select
 Next i
End Sub

 

[DJ.Funny]

Uh beste VenA,

Gaat iets boven mijn pet maar ook boven de pet van mijn Excel! Die doet helemaal niets!

 

[VenA]

Heb je op blad 2 gekeken?

 

[DJ.Funny]

Haha VenA,

Blijkbaar niet, maar daar stond wel een enorme verrassing!!!

TOP!!!

Dan je wel!!

 

[HSV]

Stel dat het zich een factor x moest herhalen, en je wil niet teveel schrijfwerk van de code.

c00 = c00 & Application.Rept("|" & ar(j, 1), 4)

 

[DJ.Funny]

Kijk daar worden we blij van!! Vraag staat op opgelost, maar dan toch nog even wat plaatsenwaar ik heel vrolijk van wordt!!

TOP

:thumb::thumb::thumb:

 

[HSV]

Mooi,

Het is vooral handig bij wisselende aantallen.
Zo kan je de 4 verruilen door een waarde uit een cel.

c00 = c00 & Application.Rept("|" & ar(j, 1), [COLOR=#ff0000]range("a1").value) [/COLOR]

 

[DJ.Funny]

:thumb::thumb::thumb::thumb::thumb::thumb: