VBA code to produce substracted result

[Wafee]

Hi,

Can someone help me with VBA code that does the following.
There will be three types of values in. They are numbers, percentage and fractions. For numbers and percentages it has to subtract and produce the output. for fractions it has to subtract above and below values separately and produce the output.

As shown below, in fractions it has take above values from both and substarct them and then do the same for below values.

Column A	Column B	Column C
50	60	10
65%	50%	-5%
73/65	78/60	5/-5
62/70	60/65	-2/-5

 

[Wafee]

Then try this one. Should work for any number of "/" terms. eg 45/85/42/55/21 and 40/22/60/15/88

Sub SubtractThem_v2()
  Dim r As Range
  Dim s1 As String, s2 As String, s As String
  Dim Bits1 As Variant, Bits2 As Variant
  Dim i As Long

  Application.ScreenUpdating = False
  For Each r In Range("A2", Range("A" & Rows.Count).End(xlUp))
      s1 = r.Text
      s2 = r.Offset(, 1).Text
      Select Case True
        Case InStr(1, s1, "/") > 0
          Bits1 = Split(s1, "/")
          Bits2 = Split(s2, "/")
          s = vbNullString
          For i = 0 To UBound(Bits1)
            s = s & "/" & (Bits2(i) - Bits1(i))
          Next i
          r.Offset(, 2).Value = Mid(s, 2)
        Case Right(s1, 1) = "%"
          r.Offset(, 2).Value = (Split(s2, "%")(0) - Split(s1, "%")(0)) & "%"
        Case IsNumeric(s1)
          r.Offset(, 2).Value = s2 - s1
      End Select
  Next r
  Application.ScreenUpdating = True
End Sub

Wafee 2020-08-20 1.xlsm
	A	B	C
1
2	50	60	10
3	65%	50%	-15%
4	73/65	78/60	5/-5
5	Past	Present
6	50/60/70	55/58/72	5/-2/2
7	62/70	60/65	-2/-5
8	20%	20%	0%
9	45/85/42/55/21	40/22/60/15/88	-5/-63/18/-40/67
Subtract

That works mate, thanks again.

 

[Peter_SSs]

That works mate, thanks again.

Good news! Cheers.

 

[Siddozz]

Hi,

Can anyone help me with the same issue wherein i have both text and numbers combined in a cel, however wish to subtract the 2 numbers.

For eg: Net sales for Max 30000 vs Bea 43000

Need a sepearte column in which the difference is given
Please advise.

 

[Peter_SSs]

Hi,

Can anyone help me with the same issue wherein i have both text and numbers combined in a cel, however wish to subtract the 2 numbers.

For eg: Net sales for Max 30000 vs Bea 43000

Need a sepearte column in which the difference is given
Please advise.

Welcome to the MrExcel board!

Instead of one example with no expected results, what about you give us 5-6 examples with expected results with XL2BB so we can copy to test with?