Hücredekiye veriye göre işlem yapmak

[haso_excel]

Merhaba arkadaşlar,

Elimdeki database de A kolonunda no ve b kolonunda text bilgilerim var.
Amacım ise, B kolonundaki textin uzunluğunu 5 e böleceğim ve kaç çıkarsa satır her satıra A kolonundaki numarayı atıycam ve ilk beşten itibaren B kolonuna yazdırıcam. Formül yada kod farketmez.İlgilenen arkadaşlara şimdiden teşekkür ederim.
A B
no text
1 HASANHASANHASANHASANHAS

istenen
A B
1 HASAN
1 HASAN
1 HASAN
1 HASAN
1 HAS
örnek dosya ekte

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında, sağ taraftaki boş alana aşağıdaki kod'u yapıştırın,
-- Sayfaya ekleyeceğiniz bir Metin Kutusu/Şekil/Düğme'ye sağ tıklayap MAKRO ATAyı seçin,
-- Açılan küçük ekranda, BEŞERLİ_PARÇALA'yi seçerek işlemi onaylayın,
-- Bu Metin Kutusu/Şekil/Düğme'ye fareyle tıkladığınızda sayfada C ve D sütununa istenilen listeleme yapılacaktır.
.

[B][COLOR="blue"]Sub BEŞERLİ_PARÇALA()[/COLOR][/B]
[C1] = "NO": [D1] = "İSTENİLEN"
If Cells(Rows.Count, 3).End(3).Row > 1 Then Range("C2:D" & Cells(Rows.Count, 3).End(3).Row).ClearContents
For sat = 2 To Cells(Rows.Count, 1).End(3).Row
    uza = Len(Cells(sat, 2))
    If uza Mod 5 > 0 Then a = 1
    uzb = Int(Len(Cells(sat, 2)) / 5) + a
        For s = 1 To uzb
            ss = Cells(Rows.Count, 3).End(3).Row + 1
            Cells(ss, 3) = Cells(sat, 1)
            Cells(ss, 4) = Mid(Cells(sat, 2), (s - 1) * 5 + 1, 5)
        Next
Next
MsgBox "İşlem tamamlandı...", vbInformation, "...::.. Ö. BARAN ..::..."
[B][COLOR="blue"]End Sub[/COLOR][/B]

 

[haso_excel]

Teşekkürler işlem tamamdır elinize sağlık

 

[Erdem Akdemir]

Merhaba,

Soruda bir hata olabilir mi?

3.sırada olan ERCÜERCÜ istenilen kısımda ERCÜ olarak yazılmış,ilk beş karakterin alınması gerekmiyor muydu?