Opgelost Macro werkt niet op blanco cel als er formules in staan

[KeBr]

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]

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

 

[edmoor]

Zonder wachtwoord te weten valt er weinig te zien in het VBA project.

 

[KeBr]

Beste edmoor,

Ik had het net zelf ook gezien. Hierbij nogmaals maar dan zonder wachtwoordbeveiliging.

 

[KeBr]

Beste formleden,

Is er nog iemand die hier een oplossing voor heeft?

 

[emields]

als er een formule instaat is de cel niet leeg en zou de macro moeten werken.
ps, ik kan moeilijk geloven dat de macro zo van mij komt.

 

[AHulpje]

Een "lege" cel in kolom D is echt leeg, een "lege" cel in kolom E bevat een spatie.
De test in de code voor kolom D

If cl.Text <> "" Then

moet dus voor kolom E gewijzigd worden in

If cl.Text <> " " Then

Of je wijzigt de formule in kolom E van

=ALS(D8="";" ";.....

naar

=ALS(D8="";"";.....

Verder de code iets versimpeld en alle code bij elkaar gezet in de module van werkblad Projectplanning.
Ook een Unprotect statement aan de knop klik event toegevoegd.

 

[KeBr]

Beste AHulpje,

Bedankt voor je reactie, het kan dus zo simpel zijn om alleen een spatie weg te halen.
Ook de aanpassingen aan de codes werken goed.