Adding date to selected cells (VBA)

[torkunc]

Hi,

In VBA, I'd like to add date from A1 to my selected cells.
I can do it if only 1 cell is selected; but when it comes to a range like "a2:a5" I can not!

And there is one condition:

If selected cell(s) is empty then copy the date from A1

but if not

then join the dates of the selected cells and A1 with the delimiter comma (,)​

I think a loop to an array needs to be written but I fail!

Thnx fr yr help.

 

[gallen]

Something like this does the trick. Change the format to how you want the date:

Sub IncludeDate()
    Dim c As Range
    Const sFormat As String = "dd/mm/yy"
    
        For Each c In Selection
            c = IIf(c = "", Format([A1], sFormat), c & "," & Format([A1], sFormat))
        Next c
End Sub

 

[sykes]

gallen - Don't think you meant to put two "I"s in your If statement:

Sub IncludeDate()
    Dim c As Range
    Const sFormat As String = "dd/mm/yy"
    
        For Each c In Selection
            c = IIf(c = "", Format([A1], sFormat), c & "," & Format([A1], sFormat))
        Next c
End Sub

...
...probably should be:

Sub IncludeDate()
    Dim c As Range
    Const sFormat As String = "dd/mm/yy"
    
        For Each c In Selection
            c = If(c = "", Format([A1], sFormat), c & "," & Format([A1], sFormat))
        Next c
End Sub

 

[Fluff]

@sykes
IIf with 2 "I"s is correct.
If you try removing one of them you will see that line of code go red.

 

[sykes]

Thanks very much Fluff - I've learned something (else) there.
gallen - apologies.
torkunc - disregard my post, please.

 

[gallen]

No problem @sykes.

The IIF has is handy when reacting to a boolean value and keeps the code all on one line.