Add Conditional format to macro

[pedro-egoli]

I have the following macro that places date in cell I7.

Sub currenttime1()
d = Date
Set Displaytime = Sheets(1).Range("i7")
Displaytime.Cells(1, 1) = Str(d)
Columns("i:i").AutoFit
End Sub

If code is run I would like conditional formatting as follows for cell I7.

Font - Bold
Border - Outline
Pattern - Light blue

Cell would remain blank if code is not run.

Thanks

Pedro

 

[Weaver]

Easiest thing to do is to record a macro whilst you set up the CF then use the code produced. It's what I'd do.

 

[pedro-egoli]

Thanks Weaver.

After I recorded code i named it currenttime1, in the drop down box re Personal.xls, hoping to join the initial macro which has the same name.

I ran the macro and it coloured cell i7 after I manually added date, so that part works.
However, though I thought it would just be a matter of pasting the date macro (initial currenttime1) above new macro I am unable to do so.

The new macro highlights when I click on page and I cannot enter anything.

With a limited knowledge of vba and too many grey hairs to understand all the terminology I am lost.

If someone can advise how to add a recorded macro to an existing one I will delete what I have done and start again.

The existing macro and start of my recorded macro for conditional formatting looks like this

Sub currenttime1()
d = Date
Set Displaytime = Sheets(1).Range("i7")
Displaytime.Cells(1, 1) = Str(d)
Columns("i:i").AutoFit
End Sub
Sub currenttime1()
'
' Currenttime1 Macro
' Macro recorded 13-08-2011 by Peter
'

I had pasted recorded macro into word so that is where I got above from.

Thanks

Pedro

 

[Weaver]

post all the code - should be doable.

Unless you're expecting the code to actually work in Word, that is.

 

[pedro-egoli]

Thanks Weaver.
That did not work .

So I tried a different tack and changed the date macro part to simply

    Range("i7") = Date

Put that before the conditional format macro and it worked.

Thanks
Pedro