VBA plakt formule ipv waarde

[genexxa]

Als eerste ben ik niet echt thuis in VBA en heb van internet een code gehaald en deze aangepast.
Tot zo ver ging alles goed.
Echter loop ik er nu tegen aan dat de formule gekopieerd wordt ipv de waarde die de formule aan geeft.

Sub Gegevens_kopieren()
Dim cl As Range
'Sheet Dagstart
With Sheets("Weekoverzicht")
'Kijkt naar de namen van de tabbladen per persoon in regel (O8 t/m AL8)
  For Each cl In .Range("D14:D14")
  'Als, vanaf regel +1 (regel 15), 6 regels de waarde >0 is, dan
    If Application.Count(cl.Offset(1).Resize(9)) > 0 Then
    'Kopieer alle cellen met waarde, plak de waarde onder cel 3 ,vergelijkt de datum(E1)in de sheets. kijkt naar de naam in regel 9 (O9 t/m AL9) in de 2e regel
     cl.Offset(1).Resize(9).Copy Sheets(cl.Value).Cells(3, Application.Match(CLng(.Range("c14")), Sheets(cl.Value).Rows(2), 0)).Offset(1)
    End If
  Next cl
End With
End Sub

Kan iemand mij helpen hoe ik de waarde kopieer ipv de formule?

 

[HSV]

copy
pastespecial xlpastevalues

 

[genexxa]

Sub Gegevens_kopieren()
Dim cl As Range
'Sheet Dagstart
With Sheets("Weekoverzicht")
'Kijkt naar de namen van de tabbladen per persoon in regel (O8 t/m AL8)
  For Each cl In .Range("D14:D14")
  'Als, vanaf regel +1 (regel 15), 6 regels de waarde >0 is, dan
    If Application.Count(cl.Offset(1).Resize(9)) > 0 Then
    'Kopieer alle cellen met waarde, plak de waarde onder cel 3 ,vergelijkt de datum(E1)in de sheets. kijkt naar de naam in regel 9 (O9 t/m AL9) in de 2e regel
     cl.Offset(1).Resize(9).Copy 
     Sheets(cl.Value).pastespecial xlpastevalues.Cells(3, Application.Match(CLng(.Range("c14")), Sheets(cl.Value).Rows(2), 0)).Offset(1)
    End If
  Next cl
End With
End Sub

Ik heb dit geprobeerd maar dat werkt niet.
Ik weet ook niet zo goed waar ik deze moet toevoegen omdat mijn kennis op dit gebied te weinig is.
help??

 

[HSV]

Bijna, er is nog een kans.

 

[genexxa]

Nice het is gelukt.

Het was even zoeken maar met dank aan de hulp van HSV die mij de juiste kant op stuurde is het gelukt.

Sub Gegevens_kopieren()
Dim cl As Range
'Sheet Dagstart
With Sheets("Weekoverzicht")
'Kijkt naar Aantal in cel D14
  For Each cl In .Range("D14:D14")
  'Als, vanaf regel +1 (regel 15), 10 regels de waarde >0 is, dan
    If Application.Count(cl.Offset(1).Resize(10)) > 0 Then
    'Kopieer alle cellen met waarde, plak de waarde onder cel 3 ,vergelijkt de datum(C14)in de sheets. datum in regel 2
     cl.Offset(1).Resize(10).Copy
    Sheets(cl.Value).Cells(3, Application.Match(CLng(.Range("c14")), Sheets(cl.Value).Rows(2), 0)).Offset(1).PasteSpecial xlPasteValues
    End If
  Next cl
End With
End Sub

Thnx!!!

 

[HSV]

Er is nog een methode.

Sheets(cl.Value).Cells(3, Application.Match(CLng(.Range("c14")), Sheets(cl.Value).Rows(2), 0)).Offset(1).resize(10) = cl.Offset(1).Resize(10).value