Soru Belli Karakter Arasını VBA ile Alma

[leonadies]

Merhaba üstadlar;

K5 hücresinde yer alan "........... (Salı) ..........." cümlesindeki "SALI" ifadesini almak istiyorum. Yalnız VBA kullanmam gerekmekte. Cümleler değişken parantez içi değişken.
Tek amacım parantez içinde yer alan kelime ne olursa olsun bulma. Tam istediğim gibi şekilde olanı bulup bir türlü bulup çözemedim.

 

[YUSUF44]

Deneyiniz:

Sub parantez()
    bas = WorksheetFunction.Find("(", [K5])
    bit = WorksheetFunction.Find(")", [K5])
    [K6] = Mid([K5], bas + 1, bit - bas - 1)
End Sub

 

[AdemCan]

Sonuçtan emin olmak için denemeler yaparken çözüm paylaşılmış
Aynı cevap olacak ama hazırlamışken paylaşayım.

Sub parantez_ici()
Dim metin As String, kelime As String
Dim baslangic As Integer, bitis As Integer

metin = Range("K5").Value
baslangic = WorksheetFunction.Find("(", metin)
bitis = WorksheetFunction.Find(")", metin)
kelime = Mid(metin, baslangic + 1, bitis - baslangic - 1)

MsgBox kelime, vbInformation, "Parantez İçindeki Kelime"

metin = "": kelime = ""
baslangic = 0: bitis = 0
End Sub

 

[veyselemre]

Sub TEST()
    With CreateObject("VBScript.RegExp")
        .Pattern = "(.+\()(.+)(\).+)"
        If .TEST([k5].Value) Then [k6].Value = .Replace([k5].Value, "$2")
    End With
End Sub

 

[AdemCan]

Merhaba Sayın @veyselemre
RegExp için yararlanabileceğimiz kaynak tavsiye edebilir misiniz?

 

[veyselemre]

Sub TEST2()
    al = [k5].Value
    bul1 = InStr(al, "(")
    bul2 = InStr(al, ")")
    If bul1 > 0 And bul2 > 0 Then
        al = Mid(al, bul1 + 1, bul2 - bul1 - 1)
    End If
    MsgBox al
End Sub

 

[leonadies]

Değerli üstadlar elinize sağlık teşekkür ediyorum hepsi sorunsuz çalışmakta

 

[veyselemre]

Merhaba Sayın @veyselemre
RegExp için yararlanabileceğimiz kaynak tavsiye edebilir misiniz?

Regular Expressions (RegExp) - Düzenli İfadeler

Bu başlık altında Regular Expressions ( Düzenli İfadeler) ile ilgili örnekleri bulabilirsiniz.

www.excel.web.tr

Bu kısımda zeki beyin çalışması vardı.

 

[AdemCan]

Teşekkür ederim. Elinize sağlık.