Cell Value & unchanging Date With Macro run

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Desert Piranha - 23 Jan 2006 01:54 GMT

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?

Signature

Desert Piranha

Reply to this Message

Tim Williams - 23 Jan 2006 02:11 GMT

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

> Hi All,
> Every other cell in Sheet1 Column A from A6 to A 42 has text/numbers
[quoted text clipped - 23 lines]
> get copied over.
> Any direction?

Reply to this Message

Desert Piranha - 23 Jan 2006 02:45 GMT

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?
>
[quoted text clipped - 13 lines]
>
> Tim

Signature

Desert Piranha

Reply to this Message

Desert Piranha - 23 Jan 2006 03:31 GMT

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
[quoted text clipped - 3 lines]
> Thx Again
> Dave

Signature

Desert Piranha

Reply to this Message

Tim Williams - 23 Jan 2006 06:17 GMT

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.

> Hi Tim,
> Ok Its working kinda. Im getting the correct format but this is whats
[quoted text clipped - 17 lines]
>> Thx Again
>> Dave

Reply to this Message