Copy date

[noraa]

Hello I have a cell on Seet "Order List" B3 that has a formula to create a date I need to copy that date to Sheet "Fill" C3 when I run my code it fills in with a number instead of date column b on sheet fill is set to short date

Sub CopyDate()
Sheets("Fill").range("C3").Value = Sheets("Order list").range("B3").Value
End Sub

 

[MARK858]

If the number is like 45593 you just need to format the cell as a valid Date format for your regional settings, you'll find that cell is formatted as General or Number

 

[noraa]

Thank you for the response. I do have column C3 and Column B3 formatted as a short date. It still returns the number and not the date.

 

[MARK858]

Can you check the actual cell please and also tell us what =ISNUMBER(C3) returns on your Fill sheet

 

[noraa]

On "Order list" B3 it is pulling in a date from "Order" G6 the formula that shows in "order list" B3 is =Order!G6. It displays the date mm/dd/yyyy. When i use the code originally posted I get the number 45589 in "fill" C3.

 

[MARK858]

Please do what was requested in my last post please

 

[noraa]

I am not sure how to put =ISNUMBER(C3) in the code

 

[MARK858]

You don't add it to the code, you put it in an empty cell on the sheet, it is a regular formula.
I still need you to check the formatting on C3, I e. Right click the cell, Format cells and check if it is actually showing as a date format despite what you have formatted the column as

 

[noraa]

I checked the cell it is formatted to short date. I put =ISNUMBER in cell D13 on sheets fill when I hit enter cell C3 Highlights but does not return anything in D13. in the formula bar it does display a date just not in the cell

 

[MARK858]

=ISNUMBER in cell D13 on sheets fill when I hit enter cell C3 Highlights but does not return anything in D13

That doesn't make any sense to me if it had a real date or number it would return TRUE, if it had text that looks like a number it would return FALSE, if C3 was empty it return a FALSE

Book1
	C	D	E	F
3	45589	TRUE		Real number
4	24/10/2024	TRUE		Real number formatted as date
5	45589	FALSE		Text number
6	24/10/2024	FALSE		Text date
7		FALSE		empty cell
Fill

Cell Formulas
Range	Formula
D3:D7	D3	=ISNUMBER(C3)

Do you have any other VBA code? Sheet protection? and is your calculation set to Automatic?