Gegevens uit kolom (A en B) na elke 50 kopieren naar volgende kolommen.

[Esducsafe]

@Helpers
Na wat speurwerk een deel van mijn oplossing gevonden.
Maar ik wil de gegevens die in kolommen A en B na elke 50 kopieren naar de kolommen C en D enz.

Het aantal rijen in Kolom A + B = 150
Ik wil vanaf rij 51 de gegevens (51 t/m 100) naar C1 kopieren en vanaf rij 101 naar E1
Wie kan mij aan een oplossing helpen?
Alvast bedankt.
Esko

Sub MoveCols6()
Dim r As Range
Dim ar As Variant
Dim i As Integer
Dim fn As Range
Dim str As String

'Set the Array Values
ar = Array("Sales", "Dept 1")

    Columns("C:D").Select
    Selection.ClearContents

    For i = 0 To UBound(ar) 'Loop through the Array
        Set fn = [A1:B1].Find(ar(i), LookAt:=xlWhole)[ATTACH]324079.vB[/ATTACH]
        str = str & fn.Address & ","
    Next i
    'Take the trailing comma from the string
    str = Left(str, Len(str) - 1)
    Set r = Range(str).EntireColumn
   ' r.Copy Sheet2.[a1] 'Copy and Paste to new sheet in cell A1.
    r.Copy Sheet1.[C1] 'Copy and Paste to new sheet in cell A1.
    
End Sub

 

[SjonR]

zoiets?

Sub MoveCols6()
Dim i As Integer, ii As Integer
ii = 3
    For i = 51 To 101 Step 50
        Cells(1, ii).Resize(i - 1, 2).Value = Cells(i, 1).Resize(i - 1, 2).Value
        ii = 5
    Next i
End Sub

 

[snb]

Wat is er mis met ?

Sub M_snb()
  [C1:D50]=[A51:B100].Value
  [E1:E50]=[A101:B150].Value
End Sub

 

[SjonR]

te makkelijk

al zou E50 dan toch F50 moeten worden denk ik.

Sub M_snb()
  [C1:D50]=[A51:B100].Value
  [E1:[COLOR="#FF0000"]F[/COLOR]50]=[A101:B150].Value
End Sub

 

[Esducsafe]

Beste SjonR en snb
Bedankt voor jullie bijdragen.
Helaas was mijn vraag toch niet volledig.
Ben vergeten om aan te geven dat niet alleen de value's ,
maar ook de opmaak gekopieerd moet worden.
Zelf wat, zonder resultaat, geprobeerd. Idee?
Esko

 

[SjonR]

Tja, de bakker om een half brood vragen is in de regel een half brood krijgen.

 

[SjonR]

zo dan?

Sub SjonR()
  Range("A51:B100").Copy Range("C1:D50")
  Range("A101:B150").Copy Range("E1:F50")
End Sub

 

[snb]

Wat is er moeilijk aan het vooraf formatteren van [C1:F50] ?

 

[Esducsafe]

Beste Sjon en SNB,
Ik denk dat ik eerst langs de bakker moet.
Bedankt.
Groet,
Esko