=TEXT(A1,"mm/dd/yyyy")
I have multiple types of custom format results in a particular column.Welcome to the Board!
The TEXT function will do that.
So, if you have a valid date in A1, and you want it to be TEXT in a certain format, you would use:
or something to that effect.VBA Code:=TEXT(A1,"mm/dd/yyyy")
If you need more help, please provide details!
MrExcel.xlsx | |||||
---|---|---|---|---|---|
H | I | J | |||
1 | SN | SN | |||
2 | BTH-2945 | ||||
3 | BTH-2946 | ||||
4 | BTH-2947 | ||||
5 | BTH-2948 | ||||
6 | T-00208 | ||||
7 | T-00209 | ||||
8 | T-00210 | ||||
9 | T-00211 | ||||
10 | T-00212 | ||||
11 | T-00213 | ||||
12 | T-00214 | ||||
13 | T-00215 | ||||
14 | T-00216 | ||||
15 | BE-07418 | ||||
16 | BE-07419 | ||||
17 | BE-07420 | ||||
18 | BE-07421 | ||||
19 | BE-07422 | ||||
20 | BE-07423 | ||||
21 | BE-07424 | ||||
22 | BE-07425 | ||||
23 | BE-07426 | ||||
24 | BE-07427 | ||||
25 | BE-07428 | ||||
26 | BE-07429 | ||||
27 | BE-07430 | ||||
28 | BE-07431 | ||||
29 | BE-07432 | ||||
30 | BE-07433 | ||||
31 | BE-07434 | ||||
32 | BE-07435 | ||||
33 | BE-07436 | ||||
34 | BE-07437 | ||||
35 | BE-07438 | ||||
36 | BE-07439 | ||||
37 | BE-07440 | ||||
38 | BE-07441 | ||||
39 | BE-07442 | ||||
40 | BE-07443 | ||||
41 | BE-07444 | ||||
42 | BE-07445 | ||||
43 | BE-07446 | ||||
44 | BE-07447 | ||||
45 | JW-04460 | ||||
46 | JW-04461 | ||||
47 | JW-04462 | ||||
48 | JW-04463 | ||||
49 | JW-04464 | ||||
50 | JW-04465 | ||||
51 | JW-04466 | ||||
52 | JW-04467 | ||||
53 | JW-04468 | ||||
54 | JW-04469 | ||||
55 | JW-04470 | ||||
56 | JW-04471 | ||||
57 | JW-04472 | ||||
58 | JW-04473 | ||||
59 | JW-04474 | ||||
60 | JW-04475 | ||||
61 | JW-04476 | ||||
62 | JW-04477 | ||||
63 | BE-07547 | ||||
64 | BE-07548 | ||||
65 | BE-07549 | ||||
66 | BE-07550 | ||||
67 | BE-07551 | ||||
68 | BE-07552 | ||||
69 | BE-07553 | ||||
70 | T-00377 | ||||
71 | T-00378 | ||||
72 | T-00379 | ||||
73 | T-00380 | ||||
74 | T-00381 | ||||
75 | T-00382 | ||||
76 | T-00383 | ||||
77 | JW-04951 | ||||
78 | JW-04952 | ||||
79 | JW-04953 | ||||
80 | JW-04954 | ||||
81 | JW-04955 | ||||
82 | JW-04956 | ||||
83 | JW-04957 | ||||
84 | BE-07641 | ||||
85 | BE-07642 | ||||
86 | BE-07643 | ||||
87 | BE-07644 | ||||
88 | BE-07645 | ||||
89 | BE-07646 | ||||
90 | BE-07647 | ||||
91 | JW-04904 | ||||
92 | JW-04681 | ||||
93 | JW-04682 | ||||
94 | JW-04683 | ||||
95 | JW-04684 | ||||
Sheet1 |
Sub FormattedNumberToText()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range("H2", Cells(Rows.Count, "H").End(xlUp))
Cell.Offset(, 2) = Cell.Text
Next
Application.ScreenUpdating = True
End Sub