Problem with isempty rule

Hello, I have the following problem:

I'm writting a macro that almost works. I only still have a problem with the following ruel:

If IsEmpty(Sheets("Smeerlijst-Backlog").Cells(t, 3).Value) = False Then

In the cell that i look if it is empty there stands a forumla that gives as result "X" or "" (blank).
Now vba looks to the cell and always see the formula => is empty gives always "FALSE" as result !

Now is my question: is there a way to say that vba don't looks at the formula but to the result of the formla?

Thanks in advance

Mmm, it doesn't work. it now gives the following:

Folt 13 during progress:

types doesn't match

Sub Smeerselectie()
'
' Smeerselectie Macro
' Selecteren van smeerpunten uit planningsoverzicht
'
s = 5 ' startpunt
e = 10 ' eindpunt
t = 0 ' teller

w = 16 ' weeknummer
k = 2 + w ' kolomnummer

For t = s To e

If Len(Sheets("Planningsoverzicht").Cells(t, k).Value) = 1 Then

Else
Sheets("Planningsoverzicht").Activate
Range(Cells(t, 1), Cells(t, 2)).Select
Selection.Copy
Sheets("Smeerlijst-Backlog").Select
Cells(9, 1).Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

Next

End Sub

This is the program.
Sheets("Planningsoverzicht").Cells(t, k).Value, in this cel, on the worksheet "planningsoverzicht" there is standing an =if(..) function that gives as result on base of the logical test "" or X

Grts Frozenice

Originally Posted by MrShorty

As you've discovered, a cell containing a formula is not empty. Are you consistent in using empty string as your placeholder? Does Sheets("Planningsoverzicht").Cells(t, k).Value="" return true?

I dont understand you question very well? Do you see some errors in my program?
The programs works exept the "if" in the for loop

grts

Hello,

In these reply i have added an example of my file.

Can you let it work?

Thanks in advance.

Grts Mathias


Smeerplan test.xlsx

Hello,

Do you find the problem in the program?

Grts

Hello,

Thanks for the help. Now the program works :D

Greetings Frozenice