gegevens verplaatsen in steeds nieuwe kolom

[mazzel01]

Hoi,
Ik heb een probleem. In een excel bestand wil ik de gevens via een macro knop steeds verplaatsen naar een ander werkblad in steeds een volgende kolom. Maar als ik nieuwe gegevens invul, overschrijft hij natuurlijk de reeds geplaatste. Hoe kan ik ervoor zorgen dat de gegevens steeds in een nieuwe, opeenvolgende kolom geplaatst worden via een makro?
Het bestandje zit in de bijlage

 

[Wigi]

Sub overzetten()
    [B1:B4].Cut Sheets("samenvatting").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
End Sub

Wigi

 

[ExcelAmateur]

mazzel01,

Ik heb de macro van Wigi in de file geplaatst voor je.

 

[mazzel01]

Bedankt maar mijn kennis is te beperkt om het in een ander bestand te gebruiken

Beste Wigi en Excelamateur,
Bedankt voor jullie hulp maar ik dacht met het voorbeeld zelf aan de slag te kunnen gaan. Helaas lukt dit niet. Vandaar dat ik nu het bestand waar het echt om gaat naar jullie stuur. Het is dus de bedoeling dat de gegevens van werkblad "invulblad" gekopieerd worden in steeds een nieuwe kolom in werkblad "koppelgegevens". Ik krijg dit niet voor elkaar. Zouden jullie mij hier in kunnen helpen. In tablad omnummering staan de cellen van het invoerblad naast de cellen van het blad koppelgegevens waar ze naartoe moeten worden gezet met de bedoeling dat als er een neiuwe berekening wordt gemaakt via de macroknoppen de gegevens in de koppelgegevens worden gezet en de kolom steeds opschuift.

 

[Wigi]

mazzel01

Deze macro kan je gebruiken voor het overzetten van de gegevens, steeds in een nieuwe kolom.

In blad omnummering moet je in kolom B de letter B vervangen door niets (dus verwijderen - die B is toch van geen nut aangezien het steeds om een nieuwe kolom gaat).

Wigi

 

[mazzel01]

Welke macro?

Beste Wim,
Welke macro bedoel je ij je laatste antwoord?

 

[ExcelAmateur]

mazzel01
Welke macro?

Beste Wim,
Welke macro bedoel je ij je laatste antwoord?

De macro die Wigi heeft gemaakt, staat in #2

 

[Wigi]

Ik had al een nieuwe macro geschreven, maar die is blijkbaar niet doorgekomen.

Sub overzetten()

    Dim iKolom As Integer
    
    On Error Resume Next
    
    iKolom = Sheets("koppelgegevens").Cells(2, Columns.Count).End(xlToLeft).Column + 1
    
    For Each Rng In Sheets("omnummering").Columns(1).SpecialCells(2)
        Sheets("koppelgegevens").Cells(Rng.Offset(, 1).Value, iKolom).Value = Sheets("Invulblad").Range(Rng.Value).Value
    Next

End Sub

Wigi

 

[mazzel01]

Hardstikke bedankt, het werkt!