Hello from Steved

The objective is to Convert 1:05pm to 1305 please in the same Column.

I do not know enough experience to wright the macro to have the below working
Please help me.

Cells(SomeRow, SomeColumn).Value = Format(Cells(2, "C").Value,"hhmm")

Thankyou.

Is your "time" value a real time value formatted to appear **without** a
space between the numbers and the am/pm designation (as your example shows)?
Or is it a string value exactly as shown (that is, without the space)? Do
you want the result to be a real time value formatted to look like the
military time, or do you just want a 4-digit number (or possibly a
4-character string) that has nothing to do with a real Excel time value?

--
Rick (MVP - Excel)


"Steved" wrote in message
...
Hello from Steved

The objective is to Convert 1:05pm to 1305 please in the same Column.

I do not know enough experience to wright the macro to have the below
working
Please help me.

Cells(SomeRow, SomeColumn).Value = Format(Cells(2, "C").Value,"hhmm")

Thankyou.

hi
a small syntax problem. a value cannot equal a format.
try this
Cells(SomeRow, SomeColumn).NumberFormat = "hhmm"
you may want to use .....
Cells(SomeRow, SomeColumn).NumberFormat = "hh:mm;@"
this way it would look more like a real time instead of just a four digit
number.

regards
FSt1
"Steved" wrote:

Hello from Steved

The objective is to Convert 1:05pm to 1305 please in the same Column.

I do not know enough experience to wright the macro to have the below working
Please help me.

Cells(SomeRow, SomeColumn).Value = Format(Cells(2, "C").Value,"hhmm")

Thankyou.

Hello Rick from Steved

1:05 pm

In worksheet it is displayed as 13:05 "no spaces"

In formula Bar it is displayed as 1:05:00 p.m.

ok, In worksheet I would like it to be displayed as 1305 please

7:05 am

In worksheet it is displayed as 7:05 "no spaces"

In formula Bar it is displayed as 7:05:00 a.m.

ok, In worksheet I would like it to be displayed as 0705 please

Yes please 4-digit number

I Thankyou for taking timeout on my issue.





"Rick Rothstein" wrote:

Is your "time" value a real time value formatted to appear **without** a
space between the numbers and the am/pm designation (as your example shows)?
Or is it a string value exactly as shown (that is, without the space)? Do
you want the result to be a real time value formatted to look like the
military time, or do you just want a 4-digit number (or possibly a
4-character string) that has nothing to do with a real Excel time value?

--
Rick (MVP - Excel)


"Steved" wrote in message
...
Hello from Steved

The objective is to Convert 1:05pm to 1305 please in the same Column.

I do not know enough experience to wright the macro to have the below
working
Please help me.

Cells(SomeRow, SomeColumn).Value = Format(Cells(2, "C").Value,"hhmm")

Thankyou.

Worksheetfunction
=TEXT(A1,"HHMM")

VBA
=Format(Range("A1"),"hhmm")


If this post helps click Yes
---------------
Jacob Skaria


"Steved" wrote:

Hello Rick from Steved

1:05 pm

In worksheet it is displayed as 13:05 "no spaces"

In formula Bar it is displayed as 1:05:00 p.m.

ok, In worksheet I would like it to be displayed as 1305 please

7:05 am

In worksheet it is displayed as 7:05 "no spaces"

In formula Bar it is displayed as 7:05:00 a.m.

ok, In worksheet I would like it to be displayed as 0705 please

Yes please 4-digit number

I Thankyou for taking timeout on my issue.





"Rick Rothstein" wrote:

Is your "time" value a real time value formatted to appear **without** a
space between the numbers and the am/pm designation (as your example shows)?
Or is it a string value exactly as shown (that is, without the space)? Do
you want the result to be a real time value formatted to look like the
military time, or do you just want a 4-digit number (or possibly a
4-character string) that has nothing to do with a real Excel time value?

--
Rick (MVP - Excel)


"Steved" wrote in message
...
Hello from Steved

The objective is to Convert 1:05pm to 1305 please in the same Column.

I do not know enough experience to wright the macro to have the below
working
Please help me.

Cells(SomeRow, SomeColumn).Value = Format(Cells(2, "C").Value,"hhmm")

Thankyou.