Macro To Create A Date Value

[RoyinUK2000]

I want to create a macro that will put a date into a specified cell. When the macro is ran i need the beginning of the current month in cell F1 and the end of the current month in cell F2.

Does anyone know how to do this

Thanks
Roy

 

[WillR]

On 2002-10-10 07:21, RoyinUK2000 wrote:
I want to create a macro that will put a date into a specified cell. When the macro is ran i need the beginning of the current month in cell F1 and the end of the current month in cell F2.

Does anyone know how to do this

probably a tidier way to do it but this works.

Sub Dates()
    
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=EOMONTH(TODAY(),0)"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=EOMONTH((R[-1]C),-1)+1"
    Range("F1:F2").Select
    Selection.NumberFormat = "d-mmm-yy"
End Sub

=======================
hth

_________________
Will<img src=http://www.smilies.nl/dieren/pengy.gif>
Do NOT feed the Penguin!
This message was edited by WillR on 2002-10-10 07:55

 

[RoyinUK2000]

I have tried that but it just returns an error stating bad parameter, excel expected different kind of value.


Any idea's peeps

Roy

 

[WillR]

SORRY...check your available functions....
Under dates, you should have the EOMONTH function. If you don't you will need to add an 'add-in' called 'analysis tool pack'

goto tools addins and tick the box for analysis tool pack - you may need to ask your administrator to add it ...