Hücre içindeki kelimeleri bölme.

[akarat]

Arkadaşlar merhaba, bir excel tablosunun içinden çıkamadım.
bir hücrede geçenleri birçok kez bölmem gerekiyor ve birçok fonksiyon denedim başarılı olamadım sanırım macro yazılması gerekiyor ve bu konuda fazla bilgim olmadığından size danışmak istedim yardımcı olanlara, ilgilenip olamayanlara şimdiden teşekkürler.

Soruma gelince:
Örneğin A2 hücresinde "1. arama : ahmet arandı 2. arama : mehmet arandı 3. arama : arandı ama yetkliyi yerinde yoktu."
1. arama ve 2. arama arasında yazanları alıp B2 ye
2.arama ve 3. arama arasındaki alıp C2 ye bunun gibi gidecek şekilde bi macroya yada formüle ihtiyacım var.

Ne yapmak istememi anlamanız amacıyla dosyayı upload ettim.

Teşekkür eder.
İyi Çalışmalar dilerim

 

[uzmanamele]

merhaba

formül ile yapılabilir ama 1.arama, 2.arama vs gibi yazıların aranan metinle aynı olması gerekir.
örnek dosyanızda birmiktar düzenleme yaptım, inceleyiniz.

 

[hamitcan]

Alternatif:

Sub Aramalari_Ayir()
For x = 2 To [a65536].End(3).Row
    a = Split(Cells(x, 1), "arama:")
    y = 1
    For i = 1 To UBound(a)
        y = y + 1
        Cells(x, y) = Left(a(i), Len(a(i)) - 3)
    Next
Next
End Sub

 

[uzmanamele]

merhaba
syn hamitcan'ın çözümü çok daha hoş.

ben iyi bir beyin jimnastiği yaptım sadece

 

[hamitcan]

Süleyman bey, bu split fonksiyonu ile herşeyi ayırıyorsunuz. Vba içinde iyiki böyle bir fonksiyon var.

 

[akarat]

Syn uzmanamele ve Syn hamitcan ilginiz için çok teşekkür ederim. Sayenizde kolayca hallettim işimi.
İyi Çalışmalar.