suddenly show error for code was work without problem

Kalil

Revision #1, 26 Sepetember 2024

The same file works in Excel 365 but not Excel 2016- since the TEXTJOIN function isn't available in 2016 (just 2019, 2021 and 365). I tried it in 2010 and got the error.

In the attached revised file, I've replaced the first TEXTJOIN line with a simple loop through your range rng to produce the same effect (see changes in bold):

Private Sub DoIt(rng As Range, r As Range)
    Dim txt, x, c As Range 'ap As Object,
    Dim Cll As Range

    Set ap = Application
    'txt = ap.TextJoin("", False, rng)
    'Replace with loop through cells in range rng:
    For Each Cll In rng
        txt = txt & Cll.Value
    Next Cll

    With Sheets("inv").Cells(1).CurrentRegion
        x = .Rows.Count
        x = .Parent.Evaluate("iferror(match(""" & txt & """," & _
            "a1:a" & x & "&b1:b" & x & "&c1:c" & x & ",0),0)")
        If x > 0 Then
            Set c = .Parent.Cells(x, 5): x = c.Value
        End If
    End With
       'MsgBox ap.TextJoin(" ", False, rng) & vbLf & IIf(x - r < 0, _
       "You can't subtract", "Remains : " & x - r), , "Current stock : " & x
       MsgBox txt & vbLf & IIf(x - r < 0, _
       "You can't subtract", "Remains : " & x - r), , "Current stock : " & x
    If x - r < 0 Then
        Application.EnableEvents = False
        r.ClearContents
        Application.EnableEvents = True
    Else
        c = c - r
    End If
End Sub

Hope this is what you wanted- if so, please remeber to mark this Answer as Selected.