Macro verplaatsen gegevens van Tabblad

[leen85]

Hoi,

Ik wil graag gegevens verplaatsen van blad 1 ( staan verticaal onder elkaar) naar de eerst beschikbare rij in blad 2 (staan horizontaal naast elkaar).
Indien mogelijk moet de macro ook de gegevens in blad 2 direct rangschikken op datum

Kan iemand me daar mee helpen?

Mvg,

Leen

 

[edmoor]

Vast wel, maar dat gaat het best als je een voorbeeld documentje plaatst.

 

[leen85]

Bekijk bijlage Macro testje.xlsx

Astu...

 

[edmoor]

Code voor de knop:

Private Sub CommandButton1_Click()
    Dim LR As Long
    With Sheets("Sheet2")
        LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        .Range("A" & LR & ":L" & LR) = Sheets("Sheet1").Range("C2:C13").Value
        .Range("A2:L" & LR).Sort Key1:=.Range("A1"), Header:=xlYes
    End With
    Sheets("Sheet1").Range("C2:C13").ClearContents
End Sub

 

[leen85]

Bedankt!

Als ik deze ingeef, heeft hij mij in alle kolommen op blad 2 de datum weer.
Wat kan ik aanpassen dat ie de gegevens eronder in de juiste kolom zet?

maar nogmaals bedankt! je bent een super hulp!

 

[edmoor]

Bij mij doet 'ie dat prima.
Plaats dat document met de code en gegevens in het eerste blad hier eens.

 

[leen85]

Bekijk bijlage Macro testje.xlsm

Ik heb dringend eens een cursus nodig, kan je er me een aanraden?

 

[gast0660]

Hoi,
@Edmoor, heb het ook eventjes getest (in vb bestandje) en ik heb hetzelfde voor als TS

 

[edmoor]

Inderdaad. Heb ik niet goed op gelet. Probeer deze maar:

Private Sub CommandButton1_Click()
    Dim LR As Long
    With Sheets("Sheet2")
        LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        .Range("A" & LR & ":L" & LR) = Application.Transpose(Sheets("Sheet1").Range("C2:C13").Value)
        .Range("A2:L" & LR).Sort Key1:=.Range("A1"), Header:=xlYes
    End With
    Sheets("Sheet1").Range("C2:C13").ClearContents
End Sub

 

[HSV]

Of:

Private Sub CommandButton1_Click()
    With Sheets("Sheet2")
     .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 12) = Application.Transpose(Range("C2:C13").Value)
     .Cells(1).CurrentRegion.Sort .[a1], , , , , , , 1
    End With
 Range("C2:C13").ClearContents
End Sub

 

[leen85]

Inderdaad, hij werkt perfect! echt bedankt!!!

 

[edmoor]

Ik heb dringend eens een cursus nodig, kan je er me een aanraden?

Kijk hier eens:
http://www.excel-pratique.com/en/vba.php