Soru Kelime Öbeklerini Ayırma

[leonadies]

Değerli Üstadlar;

A:A sütununa girilen ekteki kelime öbeklerini aradaki özel karakterlerden ayırmak şartı ile sırasıyla yanındaki B,C,D,E kolonlarına VBA ile ayırabilir miyiz? Özel Karakterler hep aynı sırada devam eder. Yani ! # % sırası hep aynı

Dosyalarım Ektedir.

 

[veyselemre]

Sub regexp()
    Dim i%, al$, sut%
    With CreateObject("VBScript.RegExp")
        .Pattern = "[^!#%]+"
        .Global = True
        .IgnoreCase = True
        For i = 1 To Cells(Rows.Count, 1).End(3).Row
            sut = 2
            al = Cells(i, 1).Value
            If .test(al) Then
                For Each Match In .Execute(al)
                    Cells(i, sut) = Match.Value
                    sut = sut + 1
                Next Match
            End If
        Next i
    End With
End Sub

 

[leonadies]

Üstadım @veyselemre eline sağlık Bu makronun Sayfa2 de sessizce çalışmasını istiyorum. yine verileri sayfa2 de yazsın yani

Sayfa1 de buton makroya basınca iş yapmıyor. Uğraştım ancak düzenleyemedim