Mijn vraag
Ik heb een formule gevonden die ik gebruik.
Echter kopieert het de formule en niet de waarde die de formule in de desbetreffende cel aangeeft.
Hieronder de code:
Sub Gegevens_kopieren()
Dim cl As Range
'Sheet Weekoverzicht
With Sheets("Weekoverzicht")
'Kijkt naar de aantallen van de tabblad Weekoverzicht kolom D
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(E1)in de sheet Aantal. kijkt naar de naam in regel 14 (Aantal) in de 2e regel
cl.Offset(1).Resize(10).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
Relevante software en hardware die ik gebruik
Excel 2010
Wat ik al gevonden of geprobeerd heb
Veel gezocht op google maar kom er niet uit.
Te weinig ervaring denk ik.
Ik hoop dat iemand van jullie mij kan helpen.
Ik heb een formule gevonden die ik gebruik.
Echter kopieert het de formule en niet de waarde die de formule in de desbetreffende cel aangeeft.
Hieronder de code:
Sub Gegevens_kopieren()
Dim cl As Range
'Sheet Weekoverzicht
With Sheets("Weekoverzicht")
'Kijkt naar de aantallen van de tabblad Weekoverzicht kolom D
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(E1)in de sheet Aantal. kijkt naar de naam in regel 14 (Aantal) in de 2e regel
cl.Offset(1).Resize(10).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
Relevante software en hardware die ik gebruik
Excel 2010
Wat ik al gevonden of geprobeerd heb
Veel gezocht op google maar kom er niet uit.
Te weinig ervaring denk ik.
Ik hoop dat iemand van jullie mij kan helpen.