Luc,
je code "lijkt" vrij moeilijk te worden als je, anders dan jij, niet juist weet wat de bedoeling is.
Goede raad, plaats zo kort mogelijke vragen over 1 probleem, en illustreer dit goed.
Wat je opmerking betreft over het niet werken van de knop: De knop werkt wel (zie je dat er een verschil is tussen "De knop werkt niet" of " De code geeft een melding").
Nu, die melding is in de macro code ingebouwd: MsgBox ("Datum niet gevonden op doelblad")
With Sheets(doelblad)
'.....
'.....ander IF-Then statement
'.....
datum = [AC4] * 1 '(in doelblad ("10 weken") staat in cel "AC4" de waarde "4%"
If WorksheetFunction.CountIf(.Rows(2), datum) = 0 Then
MsgBox ("Datum niet gevonden op doelblad")
Exit Sub
End If
De msgbox zegt je dat er op het doelblad (= "tien weken") , rij 2, de Variabele datum [AC4] * 1 niet voorkomt (=0)
Is de parameter "AC4" wel juist?
Is de parameter Rows(2) wel juist?
SoftAid