I am trying to insert a function in my VBA code to only fill a cell when another cell has data in it

Question

This is my code. It fills the Date when I have this =Updating_Date(B5) typed in C5. What it is supposed to do is fill the Date ONLY when data is present in B5, and remove the Date when No data is present. Currently it displays Date no matter what. I need to write in a condition to make it ONLY display Date when data is present in Column B.

Below is what I have typed into a module, thanks to another user, with =Updating_Date(B5) entered in C5.

Function Updating_Date(dependent_cell as Range) As Date Updating_Date = Date End Function

Again, this displays the Date no matter if data is in column B or not.

Thanks.

Answer 1

I may not understand your example clearly, but it looks like you could just use one of these cell formulas:

=IF(ISBLANK(B5),"",TODAY())
=IF(ISBLANK(B5),"",NOW())
=IF(ISBLANK(B5),"",Updating_Date(B5))

If you want to do the check in VBA, here's an option:

Function Updating_Date(dependent_cell As Range)
    If LenB(dependent_cell.Value) > 0 Then Updating_Date = Date Else Updating_Date = ""
End Function

Not that the function can not return a date or else it'll return 0 instead of blank. I dropped that and added an If condition that returns blank if the dependent_cell is blank.