Hi All,
Every other cell in Sheet1 Column A from A6 to A 42 has text/numbers
copied from other workbooks.
The cells are formated as General.

My objective is (in those cells) to have the text or numbers followed
by the Month & Day (two digits each)
when ever the copy/paste macro is run, BUT won't change untill the
copy/paste code is run next week:

IE: if 0453 is pasted to a cell, and date is Janurary 12th, then cell
would display
0453 01/12

Some stuff that don't work:
'ActiveCell.Offset(1, 0).Value = Now
'rng.Offset(1, 0).Value = Now
'rng.Offset(1, 0).Value = "A4" & Now
'rng.Offset(1, 0).Value = A4 & Now & Format("mm/dd")
'rng.Offset(1, 0).Value = ("A4") & (Now & Format("mm/dd"))
'if(a4="",""(a4 & Format(Now, "mm-dd")))

Dont be disillusioned by the offset and stuff, i was concentrating on
the text and date.
I could name the cells for the range, as they are the same cells that
get copied over.
Any direction?


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=503878

Are you only copying values? Will there ever be formulas?

how about

Dim c as range
For each c in Sheet1.Range("A6:A42")
if c.value<"" then
c.value=c.value & " " & Format(Now,"mm-dd")
end if
Next c

You would run this directly after the copy-paste routine. It might be
better to modify your existing routine, but difficult to suggest how without
seeing it.

Tim

"Desert Piranha"
wrote in
message news:Desert.Piranha.222edm_1137981301.681@excelfor um-nospam.com...

Hi All,
Every other cell in Sheet1 Column A from A6 to A 42 has text/numbers
copied from other workbooks.
The cells are formated as General.

My objective is (in those cells) to have the text or numbers followed
by the Month & Day (two digits each)
when ever the copy/paste macro is run, BUT won't change untill the
copy/paste code is run next week:

IE: if 0453 is pasted to a cell, and date is Janurary 12th, then cell
would display
0453 01/12

Some stuff that don't work:
'ActiveCell.Offset(1, 0).Value = Now
'rng.Offset(1, 0).Value = Now
'rng.Offset(1, 0).Value = "A4" & Now
'rng.Offset(1, 0).Value = A4 & Now & Format("mm/dd")
'rng.Offset(1, 0).Value = ("A4") & (Now & Format("mm/dd"))
'if(a4="",""(a4 & Format(Now, "mm-dd")))

Dont be disillusioned by the offset and stuff, i was concentrating on
the text and date.
I could name the cells for the range, as they are the same cells that
get copied over.
Any direction?


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=503878

Hi Tim,
Thx for responding. I will check this out and get back as i have to
leave for about an hour.
BUT it will always be values (text or numbers) no formulas.

Thx Again
DaveTim Williams Wrote:
Are you only copying values? Will there ever be formulas?

how about

Dim c as range
For each c in Sheet1.Range("A6:A42")
if c.value<"" then
c.value=c.value & " " & Format(Now,"mm-dd")
end if
Next c

You would run this directly after the copy-paste routine. It might be
better to modify your existing routine, but difficult to suggest how
without
seeing it.

Tim


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=503878

Hi Tim,
Ok Its working kinda. Im getting the correct format but this is whats
displaying in the cell:
453 01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22
01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22

he he he. i will work on it tonight and see what i can figure out.

Does the fact that is every other cell (or row) have any thing to do
with this result?

Thx much,
Dave
Desert Piranha Wrote:
Hi Tim,
Thx for responding. I will check this out and get back as i have to
leave for about an hour.
BUT it will always be values (text or numbers) no formulas.

Thx Again
Dave


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=503878

You are running the code only once, after copying all of the values, right?
Also, maybe your "empty" cells aren't really empty.

If you still don't get it working then post your code.

Tim.



"Desert Piranha"
<Desert.Piranha.222j0a_1137987301.2897@excelforu m-nospam.com wrote in
message news:Desert.Piranha.222j0a_1137987301.2897@excelfo rum-nospam.com...

Hi Tim,
Ok Its working kinda. Im getting the correct format but this is whats
displaying in the cell:
453 01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22
01-22 01-22 01-22 01-22 01-22 01-22 01-22 01-22

he he he. i will work on it tonight and see what i can figure out.

Does the fact that is every other cell (or row) have any thing to do
with this result?

Thx much,
Dave
Desert Piranha Wrote:
Hi Tim,
Thx for responding. I will check this out and get back as i have to
leave for about an hour.
BUT it will always be values (text or numbers) no formulas.

Thx Again
Dave


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=503878