Sayıları parantez içinden alma

[mrs303]

Selamlar,

Ben bir sütunda karışık şekilde bulunan yazı ve rakamlar içersinden sadece ( ) parantez içinde bulunan değerleri almak ve sırası ile ilgili sütunlara aktarmak istiyorum.

Makro veya formül ile nasıl yapacağımı bulamadım.

Teşekkürler....

 

[leumruk]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub Ayir()
Application.ScreenUpdating = False
For q = 3 To [b65536].End(3).Row
Sut = 4
    For x = 1 To Len(Cells(q, "b"))
        Sol_Pr = Mid(Cells(q, "b"), x, 1)
        Sag_Pr = Mid(Cells(q, "b"), x, 1)
        If Sol_Pr = "(" Then Sol_Sira = x
        If Sag_Pr = ")" Then Sag_Sira = x
            If Sol_Sira > 0 And Sag_Sira Then
                Cells(q, Sut) = Mid(Cells(q, "b"), Sol_Sira + 1, Sag_Sira - Sol_Sira - 1)
                Sol_Sira = 0: Sag_Sira = 0: Sut = Sut + 1
            End If
    Next
Next
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[mrs303]

Sn, Leumruk

Tam istediği gibi olmuş, çok güzel bir çalışma yapmışsınız. Emeğinize sağlık. Teşekkür ederim.