date based question


J

jason

hello,

i need to copy a date formatted as "yyyymmdd" (preferably as a
string).
each time i copy it, i copy the mm/dd/yyyy format when i copy cells
(x,y).value or any other form.

any tips would be a huge help
 
Ad

Advertisements

R

Rick Rothstein

Since you posted to a programming newsgroup, I assume your question is
asking for a VB solution... use the Text property of the Range or Cells
objects to get the text that is in the cell instead of its underlying value.
For example, if A1 contains a date formatted as you indicated, then this
will copy the displayed text into the cell B1...

Range("B1").Valued = Range("A1").Text
 
J

jason

Since you posted to a programming newsgroup, I assume your question is
asking for a VB solution... use the Text property of the Range or Cells
objects to get the text that is in the cell instead of its underlying value.
For example, if A1 contains a date formatted as you indicated, then this
will copy the displayed text into the cell B1...

Range("B1").Valued = Range("A1").Text

--
Rick (MVP - Excel)








- Show quoted text -

very great.
thanks
 
J

jason

Since you posted to a programming newsgroup, I assume your question is
asking for a VB solution... use the Text property of the Range or Cells
objects to get the text that is in the cell instead of its underlying value.
For example, if A1 contains a date formatted as you indicated, then this
will copy the displayed text into the cell B1...

Range("B1").Valued = Range("A1").Text

--
Rick (MVP - Excel)








- Show quoted text -

exactly what i need.
thanks
 
J

jason

exactly what i need.
thanks- Hide quoted text -

- Show quoted text -

actually not working.

code:
dim q
q=1
cells(2,2)=1
cells(3,2)=1
cells(4,3)=2009




Worksheets("Sheet1").Cells(5, q + 1) = Worksheets
("Sheet1").Cells(2, q + 1) & "/" & Worksheets("Sheet1").Cells(3, q +
1) & "/" & Worksheets("Sheet1").Cells(4, q + 1)
Worksheets("Sheet1").Cells(5, q + 1).NumberFormat = "m/d/
yy;@"
Worksheets("Sheet1").Cells(6, q + 1).Value = Worksheets
("Sheet1").Cells(5, q + 1).Text
 
Ad

Advertisements

R

Rick Rothstein

For the example you gave, this cell...

Worksheets("Sheet1").Cells(4, q + 1)

has nothing in it. I think the problem goes back to this statement...

Cells(4, 3) = 2009

In particular, the 3... your previous statements use 2 for the column. Was
the 3 a mistake? If you change it to 2, the code you posted appears to work
correctly.

As an unrelated aside, you should consider prefacing all the cell references
with your worksheet reference, not just some of them.

--
Rick (MVP - Excel)


exactly what i need.
thanks- Hide quoted text -

- Show quoted text -

actually not working.

code:
dim q
q=1
cells(2,2)=1
cells(3,2)=1
cells(4,3)=2009




Worksheets("Sheet1").Cells(5, q + 1) = Worksheets
("Sheet1").Cells(2, q + 1) & "/" & Worksheets("Sheet1").Cells(3, q +
1) & "/" & Worksheets("Sheet1").Cells(4, q + 1)
Worksheets("Sheet1").Cells(5, q + 1).NumberFormat = "m/d/
yy;@"
Worksheets("Sheet1").Cells(6, q + 1).Value = Worksheets
("Sheet1").Cells(5, q + 1).Text
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top