Formule door kopieren in nieuw tabblad welke door macro wordt aangestuurd.

Status
Niet open voor verdere reacties.

MCF

Gebruiker
Lid geworden
3 dec 2014
Berichten
23
Ik heb een totaallijst waarvan uit ik nieuwe tabbladen maak, deze tabbladen vul ik in (urenstaten) het totaal van uren per persoon wil ik dan automatisch terughalen naar de totaallijst. De vraag is hoe krijg ik dit voor elkaar? Ik zit zelf te denken in verticaal zoeken, echter ik weet niet hoe ik deze formule moet opnemen in de macro.
 

Bijlagen

  • voorbeeld timesheet.zip
    1,1 MB · Weergaven: 55
Test deze macro eens
Code:
Sub testJP()
Set wf = Application.WorksheetFunction
For Each cl In Range("B10:B44")
If cl <> "" Then
Vari = wf.Match(cl, Blad2.Range("B10:B44"), 0)
AantH = cl.Offset(, 7).Value
Blad3.Cells(Rows.Count, "B").End(xlUp).Offset(1, 1 + Vari).Value = AantH

End If
Next
MyArray = Array([O2].Value, [O3].Value)
Blad3.Cells(Rows.Count, "B").End(xlUp).Offset(1).Resize(1, 2).Value = MyArray
[B10:B44,D10:H44].ClearContents
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan