Çö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
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
54
Konum
istanbul
Ad Soyad
Kemal Durmuş
#1
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
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#2
Merhaba,
Örnek dosya gönderirseniz bakalım.
 

kemal

Yeni Üye
Katılım
1 Nis 2019
Mesajlar
3
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
54
Konum
istanbul
Ad Soyad
Kemal Durmuş
#3
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,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#4
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
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
54
Konum
istanbul
Ad Soyad
Kemal Durmuş
#5
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