Try,
Private Sub CommandButton1_Click()
Dim vDB As Variant
Dim rngDB As Range
Dim s As String, sReplace As String
Dim i As Long
Dim Ws As Worksheet
Set Ws = Sheets("BOM")
With Ws
Set rngDB = .Range("e2", .Range("e" & Rows.Count).End(xlUp))
End With
vDB = rngDB
For i = 1 To UBound(vDB, 1)
s = vDB(i, 1)
If s Like "UZL.*" And s Like "*.ENG" Then
sReplace = Me.LanguageBox.Value '"RUS"
s = Replace(s, "ENG", sReplace)
vDB(i, 1) = s
End If
Next i
rngDB = vDB
End Sub
Assuming that you have inserted a command button in your user form, insert it when you click the command button in the user form code. It can be implemented differently.
- Userform image

- Userform code image
