Ah forget this issue I think I've created a larger monster. I'll post
about it in a new topic.
Drummer361 wrote:
> Hi Norman,
>
> The error I get is:
>
> Run-time error '380':
> Could not set the Value property. Invalid property value.
>
> Then I click "debug" and it sends me to the highlighted line of code
> above.
>
>
> Norman Jones wrote:
> > Hi Drummer,
> >
> > What error do you receive?
> >
> > If I used continental European settings, I had no problem with the
> > indicated line of code.
> >
> >
> > ---
> > Regards,
> > Norman
> >
> >
> >
> > "Drummer361" <tyler.ingersoll@gmail.com> wrote in message
> > news:1154909103.754253.79420@p79g2000cwp.googlegroups.com...
> > > Hello,
> > >
> > > I am currently working on a project that is used in America, Europe,
> > > and South America, etc.
> > >
> > > I have a line of code that works and formats the ComboBox decimals
> > > properly in English, but when I change the Windows Language Options to
> > > German, Spanish, French, etc, (the decimal and periods are reversed) it
> > > gives me a VB Error on the line of code below:
> > >
> > > UserForm1.ComboBox1.Value = Format(UserForm1.ComboBox1.Value, "#0.000")
> > >
> > > The line of code above is used to format the ComboBox value on page
> > > entry. Does anybody have any idea why this won't work in European
> > > languages?
> > >
> > >
> > > Also, this line of code happens to work perfectly in all languages
> > > tested so far:
> > >
> > > For j = 12 To 23
> > > ComboBox1.AddItem Format((Worksheets("Worksheet1").Cells(j,
> > > 11).Value), "#0.000")
> > > Next j
> > >
> > > This adds and formats the entries from the Cells to the ComboBox
> > > dropdown menu. It works fine in all languages.
> > >
> > > Your help and suggestions are appreciated!
> > >
Bookmarks