First off, I appologize if this had been posted before. I have been looking
for a while now and cannot find the exact answer I need. I know it is going
to be very basic, yet have no luck doing it on my own. Thank you in advace
to all of you who may help me. Anyways, I am trying to write simple code to
update a cell value with the Text "Week of" and then calculate the first day
of the previous work week (Sunday) in mm/dd format. If this is not possible,
I am fine with the Today -7 function, but cannot get that to work. Here is
the code I have been working with and get an error on the Text portion alone.

Range("c2,c13,k13").Value = "Week of" & (Text(Today - 7, "mm/dd"))

Again, thank you to all who helps me with this.

Brandon

My appologies, I'm sure you all would know this, but I am getting a Sub or
function not defined error.

BMeredith wrote:
First off, I appologize if this had been posted before. I have been looking
for a while now and cannot find the exact answer I need. I know it is going
to be very basic, yet have no luck doing it on my own. Thank you in advace
to all of you who may help me. Anyways, I am trying to write simple code to
update a cell value with the Text "Week of" and then calculate the first day
of the previous work week (Sunday) in mm/dd format. If this is not possible,
I am fine with the Today -7 function, but cannot get that to work. Here is
the code I have been working with and get an error on the Text portion alone.

Range("c2,c13,k13").Value = "Week of" & (Text(Today - 7, "mm/dd"))

Again, thank you to all who helps me with this.

Brandon

Ok,

I got it to work witht he now function, but I do not need the time. Is
there another function that will just give me the day.



BMeredith wrote:
First off, I appologize if this had been posted before. I have been looking
for a while now and cannot find the exact answer I need. I know it is going
to be very basic, yet have no luck doing it on my own. Thank you in advace
to all of you who may help me. Anyways, I am trying to write simple code to
update a cell value with the Text "Week of" and then calculate the first day
of the previous work week (Sunday) in mm/dd format. If this is not possible,
I am fine with the Today -7 function, but cannot get that to work. Here is
the code I have been working with and get an error on the Text portion alone.

Range("c2,c13,k13").Value = "Week of" & (Text(Today - 7, "mm/dd"))

Again, thank you to all who helps me with this.

Brandon

It is Date in VBA.

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"BMeredith" <u29549@uwe wrote in message news:69c85cb727ed6@uwe...
Ok,

I got it to work witht he now function, but I do not need the time.
Is
there another function that will just give me the day.



BMeredith wrote:
First off, I appologize if this had been posted before. I have been
looking
for a while now and cannot find the exact answer I need. I know it is
going
to be very basic, yet have no luck doing it on my own. Thank you in
advace
to all of you who may help me. Anyways, I am trying to write simple
code to
update a cell value with the Text "Week of" and then calculate the first
day
of the previous work week (Sunday) in mm/dd format. If this is not
possible,
I am fine with the Today -7 function, but cannot get that to work. Here
is
the code I have been working with and get an error on the Text portion
alone.

Range("c2,c13,k13").Value = "Week of" & (Text(Today - 7, "mm/dd"))

Again, thank you to all who helps me with this.

Brandon

I got it to work witht he now function
How about an ugly if function
=IF(WEEKDAY(TODAY())=2,TODAY()-1,IF(WEEKDAY(TODAY())=3,TODAY()-2,IF(WEEKDAY(TODAY())=4,TODAY()-3,IF(WEEKDAY(TODAY())=5,TODAY()-4,IF(WEEKDAY(TODAY())=6,TODAY()-5,IF(WEEKDAY(TODAY())=7,TODAY()-6,TODAY()))))))
You could always give it a name to you don't loose half you screen when you
look at it.

--
Mike Q.


"BMeredith" wrote:

Ok,

I got it to work witht he now function, but I do not need the time. Is
there another function that will just give me the day.



BMeredith wrote:
First off, I appologize if this had been posted before. I have been looking
for a while now and cannot find the exact answer I need. I know it is going
to be very basic, yet have no luck doing it on my own. Thank you in advace
to all of you who may help me. Anyways, I am trying to write simple code to
update a cell value with the Text "Week of" and then calculate the first day
of the previous work week (Sunday) in mm/dd format. If this is not possible,
I am fine with the Today -7 function, but cannot get that to work. Here is
the code I have been working with and get an error on the Text portion alone.

Range("c2,c13,k13").Value = "Week of" & (Text(Today - 7, "mm/dd"))

Again, thank you to all who helps me with this.

Brandon

That was it, thank you Bob. I knew it was something stupid, lol. Thanks
again.

Bob Phillips wrote:
It is Date in VBA.

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

Ok,

[quoted text clipped - 15 lines]

Brandon

--
Message posted via http://www.officekb.com