Beste,
Onderstaande code heb ik eerder al eens hulp bij gehad van edmiels.
Nu wil ik de code op cellen (kolom E) gebruiken waar formules in staan. Zolang er datums staan gaat het goed, bij de eerste cel die blanco is maar wel een formule bevat gaat het fout.
Hoe moet ik de code aanpassen? Dus Range ("d8:d"&[e1000] veranderen naar Range("e8:e"&[f1000]
Onderstaande code heb ik eerder al eens hulp bij gehad van edmiels.
Nu wil ik de code op cellen (kolom E) gebruiken waar formules in staan. Zolang er datums staan gaat het goed, bij de eerste cel die blanco is maar wel een formule bevat gaat het fout.
Hoe moet ik de code aanpassen? Dus Range ("d8:d"&[e1000] veranderen naar Range("e8:e"&[f1000]
Code:
Private Sub CommandButton1_Click()
'hiermee worden de nummers uit kolom A voor de activiteiten gezet
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Run "Module7.DEL"
Application.Run "Module8.Datumreeks_onder"
For Each cl In Range("d8:d" & [e1000].End(xlUp).Row)
If cl <> "" Then
k = ActiveSheet.Range("DD_s", _
ActiveSheet.Range("DD_s").End(xlToRight)).Find(cl.Value, LookIn:=xlFormulas, Lookat:=xlWhole).column
Cells(cl.Row, k).Offset(, -1) = Cells(cl.Row, 1)
End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveWorkbook.Save
End Sub