• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çö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
7
En iyi yanıt
0
Puanları
1
Yaş
58
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
7
En iyi yanıt
0
Puanları
1
Yaş
58
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

  • DAĞLIM.xlsx
    9.4 KB · Görüntüleme: 7

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bu kodları kullanabilirsiniz.
PHP:
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
7
En iyi yanıt
0
Puanları
1
Yaş
58
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