Yazıyı Parçalara Ayırma

[baydeniro]

Merhaba Arkadaşlar. A kolonunda olan yazıları verilen karaktere göre (bu örnekte tire işareti -) karakterin solunda kalan yazı olarak B kolonuna ve karakterin sağında kalan yazı olarak C kolonuna MAKRO ile ayırmak mümkün mü ? Eğer - yok ise hiç dokunmasın veya tamamını B kolonuna alsın. Aslında ben bunu fonksiyon ile yapabiliyorum ama makrolu çözümü var mıdır ? Örnek dosya ekte.

 

[Mahmut Kök]

Sub ayır()
olcut = Range("b1")
For a = 2 To [a65536].End(3).Row
b = InStr(1, Cells(a, "a"), olcut, vbTextCompare)
If b < 1 Then GoTo devam
Cells(a, "b") = Left(Cells(a, "a"), b - 1)
Cells(a, "c") = Right(Cells(a, "a"), (Len(Cells(a, "a")) - b))
devam:
Next

End Sub

 

[baydeniro]

Çok Teşekkürler

Sayın mesleki, yardımınız için çok teşekkürler. Elleriniz dert görmesin. Ayrıca Atatürkçülüğünüzü de tebrik ederim. Sizin gibi insanların var olduğunu bilmek bile ayrı bir sevinç kaynağı. Sağlıcakla kalın.