Ismi üçe bölme macro

[ThEeNCi]

Selamlar
örnekte gösterdiğim gibi bir ismi üçe ayırma macrosu için yardımlarınızı bekliyorum
çok teşekkür ederim

 

[Necdet]

Merhaba,

Makroya gerek var mı?

Veri menüsünden Metni Sütunlara Dönüştür'den de bunu rahatlıkla yapabilirsiniz.

İlla Makro Diyorsanız : Makro kaydet ile elde ettiğim kodlarda biraz değişiklikle aşağıdaki hale geldi.

Sub Makro1()

    Application.DisplayAlerts = False
    Columns("C:C").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
        
End Sub

 

[ThEeNCi]

Necdet Bey çok teşekkür ederim macro lazımdı çok iyi oldu elinize sağlık