waarden uit verschillende bladen in een kolom

[RoCompy87]

Hallo,

Ik heb een Excel-werkmap met een variabel aantal werkbladen (met behulp van een macro kan door de eindgebruiker namelijk een nieuw werkblad worden aangemaakt). Hoe is het met VBA mogelijk om op, bijvoorbeeld, het eerste werkblad een kolom te vullen met de waarde van cel C10 van elk werkblad, te beginnen bij het zesde werkblad. Dus kolom A van het tweede werkblad, moet bijvoorbeeld op rij 1 gevuld worden met 'auto' (cel C10 van het zesde werkblad) en op rij 2 met 'trein' (cel C10 van het zevende werkblad) enzovoorts.

Ik hoop dat mijn vraag een beetje helder is. Ik zou zelf eigenlijk niet weten hoe ik de VBA-code hiervoor moet opstellen

 

[etri]

Dat kan via de volgende macro:

Public Sub KopieerGegevens()
    Dim i As Integer
    
    'Start bij de tweede sheet
    For i = 2 To Worksheets.Count
        'Kopieer de waarde van cell C10 van de geselecteerde worksheet
        Worksheets(i).Range("c10").Copy
        'Plak de waarde naar kolom A (sheet 2 in rij 1, sheet 3 in rij 2, etc)
        Worksheets(1).Range("a" & CStr(i - 1)).PasteSpecial xlPasteAll
    Next i
End Sub

 

[RoCompy87]

Helemaal goed :thumb: