hulp bij Macro

[DannyGeysen]

In kolom 1 staat een range van 9 rijen, daarna een blanco rij, en opnieuw een range van 9 rijen met gelijkaardige data als range 1. Enkel in kolom 1 staan data.

Ik wil binnen een range de data van de 4e rij wegschrijven naar bijvoorbeeld D4
In diezelfde range wil ik in de data van de 5e rij wegschrijven naar bijvoorbeeld E4
Nog in diezelfde range wil ik de data van de 9e rij wegschrijven naar bijvoorbeeld F4

En dat zo voor de volgende ranges, maar dan wegschrijven in D14, E14, F14

Enz ... naar D24,E24, F24

Wie kan mij daarbij helpen?

 

[Hoornvan]

DannyGeysen,

Als je de handelingen eens met de macrorecorder opneem en die code onder een knop zet.
Daarna zou de code kunnen vereenvoudigen.

 

[Wigi]

Sub ff()

    For Each ar In Columns(1).SpecialCells(xlCellTypeConstants).Areas
        Range("D" & ar.Row + 3).Resize(, 3) = Split(ar(4) & "#" & ar(5) & "#" & ar(9), "#")
    Next

End Sub

Wigi

 

[Jack Nouws]

Of

Sub tst()
  With Sheets(1)
    For i = 4 To 24 Step 10
      .Cells(i, 4) = .Cells(i, 1)
      .Cells(i + 1, 5) = .Cells(i + 1, 1)
      .Cells(i + 5, 6) = .Cells(i + 5, 1)
    Next
  End With
End Sub

Met vr gr
Jack

 

[DannyGeysen]

Allemaal hartelijk dank voor de geboden oplossingen.

De oplossing van Wigi heb ik reeds geprobeerd en voldoet volledig.

Mijn dank,
Danny Geysen

 

[Jack Nouws]

Hallo,

Ik had je vraag verkeerd begrepen.
Deze voldoet wel (denk ik)

Sub tst()
  With Sheets(1)
    For i = 4 To 24 Step 10
      .Cells(i, 4).Resize(, 3) = Split(.Cells(i, 1) & "|" & .Cells(i + 1, 1) & "|" & .Cells(i + 5, 1), "|")
    Next
  End With
End Sub

Met vr gr
Jack

 

[Wigi]

Jack, probeer ook om de hardgecodeerde zaken er zoveel mogelijk uit te halen.

Dat geeft generiekere oplossing :thumb:

Sub tst()
  With [B]Sheets(1)[/B]
    For i = [B]4 To 24 Step 10[/B]
      ...
    Next
  End With
End Sub