I have a set of data imported to my spreadsheet using a macro. One of
the fields in that set is a Date...

I want to compare the month of the date to a string and add the line of
data to another spreadsheet accordingly....

How can this be done?

regards,
ladyhawke

Hi,

If I understand correctly your request, most probably conditionnal
formatting would provide you with what you are looking for ...

HTH
Cheers
Carim

if lcase(format(cell,"mmmm")) = "february" then

--
Regards,
Tom Ogilvy


"ladyhawke" wrote:

I have a set of data imported to my spreadsheet using a macro. One of
the fields in that set is a Date...

I want to compare the month of the date to a string and add the line of
data to another spreadsheet accordingly....

How can this be done?

regards,
ladyhawke

I need to pick up the month part of the date (should be easy) and the
select the spreadsheet to recieve the data some how...

The idea is the the sheets are named jan - feb - mar etc. and every
date found that fits into one of these months should be put in the
corresponding sheet...

need to check the year though if its next year it should be put in a
"parking sheet" to be copied into a new file...

does this make sense

regards,
Ladyhawke

Hi,

Believe you are looking for something like :

If Sheet.Name = Text(month(yourcell),"mmm") then
your code
End If

HTH
Cheers
Carim

Dim sh as Worksheet
if year(cell) = 2006 then
set sh = Worksheets(format(cell,"mmm"))
else
set sh = worksheets("Parking")
End if

There is not "TEXT" function in VBA.

However, based on the OP's original response, I don't know if this is
helpful. Perhaps

http://www.rondebruin.nl/copy5.htm

--
Regards,
Tom Ogilvy


"Carim" wrote:

Hi,

Believe you are looking for something like :

If Sheet.Name = Text(month(yourcell),"mmm") then
your code
End If

HTH
Cheers
Carim

Your code snippet worked fine, except I'm not getting the date from a
cell but from an object. I solved it easily thought so thx for helping
out all of you!

This got me quite a step further into the VBA world :oD

//ladyhawke

Tom Ogilvy skrev:

Dim sh as Worksheet
if year(cell) = 2006 then
set sh = Worksheets(format(cell,"mmm"))
else
set sh = worksheets("Parking")
End if

There is not "TEXT" function in VBA.

However, based on the OP's original response, I don't know if this is
helpful. Perhaps

http://www.rondebruin.nl/copy5.htm

--
Regards,
Tom Ogilvy


"Carim" wrote:

Hi,

Believe you are looking for something like :

If Sheet.Name = Text(month(yourcell),"mmm") then
your code
End If

HTH
Cheers
Carim