macro om gegevens in cel te zetten

[nizinny1964]

Hoi, Ik heb een excel-bestand met 3 tabbladen.
Eerste tabblad bevat gegevens van persoon A.
Tweede tabblad bevat gegevens van persoon B.
Op derde tabblad moet eigenlijk via een macro alle gegevens automatisch in de cellen komen te staan. Dus op derde tabblad moet de naam van persoon A worden samengesteld door de achternaam & voornaam van eerste tabblad te pakken en ook moet via nog een macro het totaal van JAN van eerste tabblad (persoon A) in vakje JAN op derde tabblad komen te staan.
Ik hoop dat iemand me nog kan volgen.
Ik voeg bestandje wel bij.

vr.gr. nizinny1964

 

[Wigi]

You lucky bastard... hier heb je de oplossing al.

Sub derdeblad()
Dim wsh As Worksheet, m As Integer
For Each wsh In ThisWorkbook.Sheets
    If wsh.Name <> "totalen" Then
        Sheets("totalen").Range("A" & Rows.Count).End(xlUp).Offset(1) = _
            wsh.Range("D3") & " " & wsh.Range("D1")
        For m = 1 To 12
            Sheets("totalen").Cells(Rows.Count, m + 1).End(xlUp).Offset(1) = _
                wsh.Cells(38, m * 2 + 1)
        Next
    End If
Next
End Sub

Wigi