how forrmating

[SunTEam]

Hey guys,
I need some help. In Excel is possible to set a cell for number format,
data format .. and more
I need to check this format in macro. Do You know, how to do it?

now i'll try to explain what i do, maybe there is another solution for
my problems. So, i've got a worksheet and inside numbers. Some numbers
are the prices and the rest are dimension of products. I need to
calculate those prices for foreign exchange (dollars, euro ....) So i
need increase the price numbers. I set the price cells to number format
( cells formating ) and the dimension to char type. To finish my work i
need to recognize is the current selected cells of number formatting.
i tryied something like that:

IsNumeric(myCell.Value)

but if the cells is of char formatting and inside is number - the result
of isNumberic is "true". How can i split my numbers to numbers and text
.... and then recognize in VB script

[Bob Phillips]

If myCell.NumberFormat = "#,##0.00"

or whatever your format is.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"SunTEam" <[email protected]> wrote in message
news:[email protected]...
> Hey guys,
> I need some help. In Excel is possible to set a cell for number format,
> data format .. and more
> I need to check this format in macro. Do You know, how to do it?
>
> now i'll try to explain what i do, maybe there is another solution for
> my problems. So, i've got a worksheet and inside numbers. Some numbers
> are the prices and the rest are dimension of products. I need to
> calculate those prices for foreign exchange (dollars, euro ....) So i
> need increase the price numbers. I set the price cells to number format
> ( cells formating ) and the dimension to char type. To finish my work i
> need to recognize is the current selected cells of number formatting.
> i tryied something like that:
>
> IsNumeric(myCell.Value)
>
> but if the cells is of char formatting and inside is number - the result
> of isNumberic is "true". How can i split my numbers to numbers and text
> ... and then recognize in VB script

[SunTEam]

Bob Phillips napisał(a):
> If myCell.NumberFormat = "#,##0.00"
>
> or whatever your format is.
>

Thank for help, but i cannot resolve my problem yet
Now i'im trying something like that

For Each myCells In mrange
If myCells.NumberFormat = "#,##0.00" Then
If myCells.Value <> 0 Then
myCells.Value = myCells.Value * some
End If
End If
Next

... and no one number is changed :-(

dimension numbers are like : 80
prices number are like: 30.00

can you help me more?

[SunTEam]

SunTEam napisał(a):
> Bob Phillips napisał(a):
>
>> If myCell.NumberFormat = "#,##0.00"
>>

ok .now its' working
i changed "#,##0.00" to "0.00"

[Bob Phillips]

I would also put an Isnumeric test in there, just in case.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"SunTEam" <[email protected]> wrote in message
news:[email protected]...
> SunTEam napisał(a):
> > Bob Phillips napisał(a):
> >
> >> If myCell.NumberFormat = "#,##0.00"
> >>
>
> ok .now its' working
> i changed "#,##0.00" to "0.00"