Çözüldü hücre içeriğini kolonlara dağıtmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

kemal

Yeni Üye
Katılım
1 Nis 2019
Mesajlar
3
Puanları
1
Yaş
54
Konum
istanbul
Ad Soyad
Kemal Durmuş
Merhaba
a kolonunda 3 er karakterli, 2 şer karakterli ve 1 er karkterli veriler mevcut
bunları b,c,d kolonlarına dağıtmam gerekiyor.

1 er karekterli leri d sütununa
2 şer karakterli leri c ve d sütununa
3 er karekterlileri b,c,ve d sütununa koyması gerekiyor.

a b c d
123 1 2 3
12 1 2
1 1
 

kemal

Yeni Üye
Katılım
1 Nis 2019
Mesajlar
3
Puanları
1
Yaş
54
Konum
istanbul
Ad Soyad
Kemal Durmuş
Merhaba
ilginiz için teşekkür ediyorum. Tablomu olduğu gibi ekledim.
Dağlım yapılması gereken aslında 3 kolon var. Bunları renklendirdim.
Yardımcı olmanızı rice ederim.
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,084
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Bu kodları kullanabilirsiniz.
VBA:
DefInt B, I, U
Sub Osma()
    Range("E2:P10000").ClearContents
    bir = 10: iki = 13: uc = 16
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        For a = 3 To 1 Step -1
            For s = Len(Cells(i, a).Value) To 1 Step -1
                Cells(i, uc) = Mid(Cells(i, a).Value, s, 1)
                uc = uc - 1
            Next s
            If uc < iki Then uc = bir Else uc = iki
        Next a
        uc = 16
    Next i
    uc = Empty: iki = Empty: bir = Empty
End Sub
 

kemal

Yeni Üye
Katılım
1 Nis 2019
Mesajlar
3
Puanları
1
Yaş
54
Konum
istanbul
Ad Soyad
Kemal Durmuş
Merhaba
Teşekkür ederim. Gayet güzel olmuş. Emeğinize sağlık
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt