Yalnız Mesajı Göster
Eski 18-05-2017, 22:25  
leonadies
Altın Üye
 
leonadies kullanıcısının avatarı
 
Giriş: 12/02/2015
Şehir: Ankara
Mesaj: 144
Excel Vers. ve Dili:
Excel 2016 TR
Smile

Alıntı:
Zeki Gürsoy tarafından gönderildi Mesajı Görüntüle
Bunu deneyin...
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub parantezli_ifadeyi_ayir()
Dim regexp, veri, alan, hcr As Range, sh As Worksheet, ss As Long

Set sh = Sayfa1
ss = sh.Range("A" & Rows.Count).End(3).Row
Set alan = sh.Range("A1:A" & ss)
Set regexp = CreateObject("VBScript.RegExp")
regexp.Global = True
regexp.Pattern = "\(.*\)"

For Each hcr In alan
    Range(hcr.Offset(, 1), hcr.End(xlToRight)).ClearContents
    veri = regexp.Execute(hcr).Item(0)
    ayir = Split(Mid(veri, 2, Len(veri) - 2), " ")
    For d = 0 To UBound(ayir)
        sh.Cells(hcr.Row, d + 2) = ayir(d)
    Next d
Next hcr
MsgBox "İşlem tamamlandı.", vbInformation, Application.UserName
End Sub
Sizin kodda oldu üstadım. Teşekkür ederim
leonadies Çevrimdışı   Alıntı Yaparak Cevapla