How convert minus value to positive after show in label on userform

[Alaa mg]

Hi again,
I try to change minus value to positive and positive to minus , but the problem minus value doesn't change to positive value in Label4 on userform as bold in line, how I fix that,please?

Private Sub ComboBox1_Change()
I
If ComboBox1.ListIndex = -1 Then Exit Sub
If ComboBox1.Value <> "" Then
Dim lRow As Integer
lRow = Application.Match(ComboBox1.Value, Sheets("CUSS").Range("B:B"), 0)
Label4.Caption = Format(Cells(lRow, 5).Value, "#,##0.00#")
End If
If Label4.Caption < 0 Then Label4.Caption = Label4.Caption * -1
If Label4.Caption > 0 Then Label4.Caption = Label4.Caption * -1
Label4.Caption = Format(Label4.Caption, "#,##0.00")
End Sub

 

[Joe4]

You do not need all the IF checks. Simply use the Abs (absolute value) function on the value, i.e.

Label4.Caption = Format(Abs(Cells(lRow, 5).Value), "#,##0.00#")

 

[Alaa mg]

I'm not sure what You mean ?!
do you mean I don't need these?

If Label4.Caption < 0 Then Label4.Caption = Label4.Caption * -1
If Label4.Caption > 0 Then Label4.Caption = Label4.Caption * -1
Label4.Caption = Format(Label4.Caption, "#,##0.00")

 

[Joe4]

Correct.
And replace this line you currently have:

Label4.Caption = Format(Cells(lRow, 5).Value, "#,##0.00#")

with this:

Label4.Caption = Format(Abs(Cells(lRow, 5).Value), "#,##0.00#")

 

[Alaa mg]

OK but will not change positive to minus !

 

[Joe4]

OK but will not change positive to minus !

Whoops! I misread that. I thought you wanted to simply make them all positive.
But if you want to flip them (make positive into a negative, and a negative into a positive), simply multiply the value portion by -1, i.e.

Label4.Caption = Format(Cells(lRow, 5)*-1, "#,##0.00#")

 

[Alaa mg]

so should be this ,just I would make sure there is no error.

Label4.Caption = Format(Abs(Cells(lRow, 5) * -1), "#,##0.00#")
Label4.Caption = Format(Cells(lRow, 5) * -1, "#,##0.00#")

right?

 

[Joe4]

No, you only need the bottom one. That replaces the top one with the ABS.
This should be all you need:

Label4.Caption = Format(Cells(lRow, 5) * -1, "#,##0.00#")

 

[Alaa mg]

No, you only need the bottom one. That replaces the top one with the ABS.

misunderstood , sorry!
now it works greatly .
thank you so much for help me again.

 

[Joe4]

You are welcome.