Per kolom waarden overnemen via macro

[fun_surfer]

Hallo allemaal,

Ik heb in een project een macro waarin ik gegevens overneem die verticaal zijn ingevuld. Nu heb ik een ander project waarbij de waarden horizontaal zijn overgenomen. Hoe pas ik dan de macro aan?
Ik heb in de macro 'For Rij = 9 To 27 Step 6' voorafgaand door 'Dim rij as Integer', maar nu wil ik dus van kolom E naar K per kolom verspringen. Ik heb de macro nu vrij omslachtig, namelijk per dag, maar dat betekend 7 blokken en zeer zeker dat de macro gigantisch veel korter en overzichtelijker kan.

GRTZ fun_surfer.

 

[Roncancio]

Zoiets ?

Dim Kolom as Integer
For Kolom = 5 To 11
Cells(1,Kolom) =

Met vriendelijke groet,


Roncancio

 

[fun_surfer]

Hoi Roncancio,

Ik heb je idee verwerkt, maar nu krijg ik in mijn blad 'cumulatieven' bij alle 7 dagen de tijden en werkzaamheden van alleen dag 1 van mijn urenweekstaat.
Wat doe ik fout?

Sub urenweekstaat()
Dim Kolom As Integer
Dim Dag As Range
For Kolom = 5 To 11
        With Worksheets("cumulatieven").Range("A:A")
            Set Dag = .Find(Worksheets("urenweekstaat").Cells(5, Kolom), LookAt:=xlPart, LookIn:=xlValues)
            If Not Dag Is Nothing Then
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 1) = Worksheets("urenweekstaat").Range("E19")
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 2) = Worksheets("urenweekstaat").Range("E7")
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 3) = Worksheets("urenweekstaat").Range("E9")
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 4) = Worksheets("urenweekstaat").Range("E11")
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 7) = Worksheets("urenweekstaat").Range("E13")
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 8) = Worksheets("urenweekstaat").Range("E14")
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 9) = Worksheets("urenweekstaat").Range("E15")
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 10) = Worksheets("urenweekstaat").Range("E16")
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 11) = Worksheets("urenweekstaat").Range("E17")
                Worksheets("cumulatieven").Cells(Dag.Row, Dag.Column + 12) = Worksheets("urenweekstaat").Range("E21")
            End If
        End With
Next
Worksheets("cumulatieven").Select
End Sub

GRTZ en bedankt voor zover, Art.

 

[Roncancio]

Hallo,

Dat komt omdat je in je code het resultaat van de E-kolom hard gecodeerd heeft.
Dus alle dagen krijgen de waardes van de E-kolom.

Met vriendelijke groet,


Roncancio

 

[fun_surfer]

Oeps, dat had ik over het hoofd gezien...
Hij staat gelijk als opgelost, bedankt voor je hulp weer!

GRTZ Art.