VBA userform - decimal separator

[agfac]

Hi,

I've a VBA userform that finds values in an excel workbook and fill an textbox with that value. I used find and offset to do that. The value is for example "1,4".

On my PC, it fill correctly the textbox with value "1,4" but if I try to run the same VBA userform on another PC it fill the textbox with the value "1.4".

Why is it happenning?

Thanks

 

[agfac]

Could someone help me please?

 

[Norie]

How are you putting the value in the textbox?

 

[agfac]

How are you putting the value in the textbox?

This is an example:

If (CB_fcci_potencia_sinal.Value = "Sim" _
    And CB_fcci_potencia_ilum.Value = "Sim" _
    And CB_fcci_potencia_simul.Value = "Sim" _
    And CB_fcci_potencia_det.Value = "Sem SADI" _
    And CB_fcci_potencia_sea.Value = "Não") Then


    Set SearchRange = Worksheets("Potência no CI").Range("E4:E125")
     
    Set lastCell = SearchRange.Cells(SearchRange.Cells.Count)
     
    Set AreaciFound = SearchRange.Find(What:=areaci, After:=lastCell, LookIn:=xlValues, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, _
    SearchFormat:=False)
    
    If AreaciFound Is Nothing Then
         
        MsgBox areaci & "was not found.", vbInformation, vbNullString
        Exit Sub
         
    End If
     
    If AreaciFound.Offset(, 5) = efetivo Then
        TextBox23.Value = AreaciFound.Offset(, 11).Value
    Else
        FirstAddress = AreaciFound.Address
        Do
            Set AreaciFound = SearchRange.FindNext(AreaciFound)
            If AreaciFound.Offset(, 5) = efetivo Then
                TextBox23.Value = AreaciFound.Offset(, 11).Value
                Exit Do
            End If
        Loop While Not AreaciFound.Address = FirstAddress
    End If


End If

 

[GTO]

@agfac:

Please see Excelguru Help Site - A message to forum cross posters

For all: VBA userform - decimal separator

Mark

 

[Norie]

See Mark's suggestion @ VBAExpress.

 

[agfac]

See Mark's suggestion @ VBAExpress.

I've tested his suggestion and it works!

Problem solved!

Thanks

 

[Artik]

agfac, try also

TextBox23.Value = Format(AreaciFound.Offset(, 11).Value)

Artik