Hi all,

I want the code shown below to give only the sum part its result not in the
format "general", as happens now, but like 123.456,78 (European notation).
I think I should use xxx(Round(Application.sum(Target), 2),2) but I don't
know what function should be in place of xxx. Or perhaps a totally different
way?

Thanks in advance for your assistance.

Jack Sons
The Netherlands


--------------------------------------------------------------------------------------------------------
Application.StatusBar = _
"Average=" & Round(Application.Average(Target), 2) & _
"; " & _
"Count=" & Application.CountA(Target) & "; " & _
"Count nums=" & Application.Count(Target) & _
"; " & _
"Sum=" & Round(Application.sum(Target), 2) & "; " & _
"Max=" & Application.Max(Target) & "; " & _
"Min=" & Application.Min(Target)

Try:

Application.StatusBar = _
"Average=" & format(Round(Application.Average(Target), 2), "#,##0.00") & _
"; " & _
......

This is what I'd use with my USA settings.

If "#,##0.00" doesn't work, then try: "#.##0,00"

I'm not sure how the internalation stuff will work.

In fact, could you post back with your solution. I'm curious.


Jack Sons wrote:

Hi all,

I want the code shown below to give only the sum part its result not in the
format "general", as happens now, but like 123.456,78 (European notation).
I think I should use xxx(Round(Application.sum(Target), 2),2) but I don't
know what function should be in place of xxx. Or perhaps a totally different
way?

Thanks in advance for your assistance.

Jack Sons
The Netherlands

--------------------------------------------------------------------------------------------------------
Application.StatusBar = _
"Average=" & Round(Application.Average(Target), 2) & _
"; " & _
"Count=" & Application.CountA(Target) & "; " & _
"Count nums=" & Application.Count(Target) & _
"; " & _
"Sum=" & Round(Application.sum(Target), 2) & "; " & _
"Max=" & Application.Max(Target) & "; " & _
"Min=" & Application.Min(Target)

--

Dave Peterson

Dave,

Thanks, it works just as intentioned.
"#,##0.00" resulted in 12.345,67

In fact I had thought of "format" but VBA help showed only date
applications. Now I saw in the examples (only a mouse click away!) also a
catagory with other data. Had I looked better I would have noticed. Sorry
for that, but you were most helpful. As always!

Jack.

"Dave Peterson" schreef in bericht
...
Try:

Application.StatusBar = _
"Average=" & format(Round(Application.Average(Target), 2), "#,##0.00")
& _
"; " & _
......

This is what I'd use with my USA settings.

If "#,##0.00" doesn't work, then try: "#.##0,00"

I'm not sure how the internalation stuff will work.

In fact, could you post back with your solution. I'm curious.


Jack Sons wrote:

Hi all,

I want the code shown below to give only the sum part its result not in
the
format "general", as happens now, but like 123.456,78 (European
notation).
I think I should use xxx(Round(Application.sum(Target), 2),2) but I don't
know what function should be in place of xxx. Or perhaps a totally
different
way?

Thanks in advance for your assistance.

Jack Sons
The Netherlands

--------------------------------------------------------------------------------------------------------
Application.StatusBar = _
"Average=" & Round(Application.Average(Target), 2) & _
"; " & _
"Count=" & Application.CountA(Target) & "; " & _
"Count nums=" & Application.Count(Target) & _
"; " & _
"Sum=" & Round(Application.sum(Target), 2) & "; " & _
"Max=" & Application.Max(Target) & "; " & _
"Min=" & Application.Min(Target)

--

Dave Peterson

Thanks for posting back with your results, too.



Jack Sons wrote:

Dave,

Thanks, it works just as intentioned.
"#,##0.00" resulted in 12.345,67

In fact I had thought of "format" but VBA help showed only date
applications. Now I saw in the examples (only a mouse click away!) also a
catagory with other data. Had I looked better I would have noticed. Sorry
for that, but you were most helpful. As always!

Jack.

"Dave Peterson" schreef in bericht
...
Try:

Application.StatusBar = _
"Average=" & format(Round(Application.Average(Target), 2), "#,##0.00")
& _
"; " & _
......

This is what I'd use with my USA settings.

If "#,##0.00" doesn't work, then try: "#.##0,00"

I'm not sure how the internalation stuff will work.

In fact, could you post back with your solution. I'm curious.


Jack Sons wrote:

Hi all,

I want the code shown below to give only the sum part its result not in
the
format "general", as happens now, but like 123.456,78 (European
notation).
I think I should use xxx(Round(Application.sum(Target), 2),2) but I don't
know what function should be in place of xxx. Or perhaps a totally
different
way?

Thanks in advance for your assistance.

Jack Sons
The Netherlands

--------------------------------------------------------------------------------------------------------
Application.StatusBar = _
"Average=" & Round(Application.Average(Target), 2) & _
"; " & _
"Count=" & Application.CountA(Target) & "; " & _
"Count nums=" & Application.Count(Target) & _
"; " & _
"Sum=" & Round(Application.sum(Target), 2) & "; " & _
"Max=" & Application.Max(Target) & "; " & _
"Min=" & Application.Min(Target)

--

Dave Peterson

--

Dave Peterson