Ürün Fiyat Ayırma

[igultekin2000]

iyi günler;
Şu anki haliyle sorunsuz çalışor. BİJUTERİ (01,67 TL) şeklinde olduğunda BİJUTERİ haline getiriyor, BİJUTERİ-1,67 olduğunda BİJUTERİ haline getirmek için mevcut koda ne ilave etmemiz gerekiyor. Teşekkürler.

Sub Test()
    'Haluk - 31/05/2019
    '
    Dim objRegEx As Object, NoB As Long, myStr As String
    
    Set objRegEx = CreateObject("VBscript.RegExp")
    objRegEx.Global = True
    objRegEx.Pattern = "\([^()]*\)"
    NoB = Range("B" & Rows.Count).End(xlUp).Row
    For i = 3 To NoB
        myStr = Range("B" & i).Text
        myStr = objRegEx.Replace(myStr, "")
        Range("B" & i) = myStr
        myStr = Empty
    Next
    Set objRegEx = Nothing
End Sub

 

[Haluk]

Aşağıdaki satırın yerine;

objRegEx.Pattern = "\([^()]*\)"

bunu kullanın,

objRegEx.Pattern = "\([^()]*\)|(\-.*$)"

.

 

[igultekin2000]

Aşağıdaki satırın yerine;

objRegEx.Pattern = "\([^()]*\)"

bunu kullanın,

objRegEx.Pattern = "\([^()]*\)|(\-.*$)"

.

Teşekkürler, sorunsuz çalışıyor