Soru Düşeyara - Yerinekoy gibi bir işlem hk.

[endersen]

Çok kıymetli Üstadlarım,

Excel konusunda bilgilerinizden istifade etmek istediğim bir konu var. Yazıya dökmek ne yazık ki çok zor ancak deneyeceğim. ( Örnek Dosya Mevcut)

http://s3.dosya.tc/server18/yw1vzk/Ornek_Dosya.xlsx.html

Belirli aralıklarla bize bir excel raporu geliyor ve bu rapor içerisinde yer alan bilgilerin ne yazık ki el ile düzeltilmesi gerekiyor. İnanılmaz bir iş yükü oluşuyor.

Numaralandırılmış bir dosyası var: Örneğin Dosya No: 001
Bu dosya içerisinde 2-3-4-5 v.s. sorumlusu var (bazen sadece şahıs bazen de hem şahıs hem kurum oluyor) ve isimleri ", " ile ayrımlaştırılmış aynı hücre içerisinde yer alıyor
Bu sorumluların TC ve VN'ları da var bunlarda TC'ler aynı hücrede VN'ları ayrı hücrede yer alıyor.

Dosya No: 001
Sorumlu: Ender Şen, Nadir Mutlu, Arıf Tekstil A.Ş.
TCKN: 0123456789, 234567890123
VKN: 34567891234

Böyle bir dosyayı 3e bölüp ayrı satırlarda alt alta görmek istiyorum. Şöyle ki:

001-1 - Ender Şen - 0123456789
001-2 - Nadir Mutlu - 234567890123
001-3 - Arıf Tekstil A.Ş. - 34567891234

Yazım olarak belki tatmin edici bir açıklama giremedim ama örnek dosyamda nasıl geliyor ben nasıl olmasını istiyorum şeklinde belirttim.

Değerli vaktiniz için şimdiden teşekkür ederim

 

[Muzaffer Ali]

Merhaba.
Şöyle bir yöntem önerebilirim;

Verilerin olduğu sütunun tamamını seçin.
Excel / Veri " tabını açın, Metni Sütunlara Dönüştür seçin.
Açılan sayfada "Sınırlandırılmış" seçin.
İleri tıklatın.
Ayırıcılar altında "Virgül" ve "Diğer" seçin.
Diğer in yanındaki kutucuğa iki nokta üst üste ( : ) işareti yazın.
İleçri yi tıklatın

"Veri Önizleme" altında "Genel" yazısını tıklatın
"Sütun Veri Biçimi" altında "Metin" seçin.
Bunu diğer "Genel" yazılarının hepsi için yapın.Başlık gibi görünen "Genel" yazılarının hepsinin "Metin" olduğundan emin olun.
eğer bunu yapmazsanız TC nolar rakam gibi görüneceğinden ileride sorun yaşayabilirsiniz.

"Son" u tıklatın.

Hepsi bu kadar.

Kolay gelsin.

 

[veyselemre]

Sub dokumHazirla()

    sat = 20
    Set s1 = Sheets("Orjinal Hali")
    Set s2 = Sheets("Olmasını İstediğim Hali")
    s2.[a20:E1000].ClearContents
    For i = 2 To s1.Cells(Rows.Count, 1).End(3).Row

        s2.Cells(sat, 2) = s1.Cells(i, 2)
        al = Replace(s1.Cells(i, 3), "(Borçlu / Müflis)", "")

        If InStr(al, ",") Then
            ek = 0
            bol = Split(al, ",")
            bolTC = Split(s1.Cells(i, 4), ",")
            bolVKN = Split(s1.Cells(i, 5), ",")

            For Each bl In bol
                ek = ek + 1
                s2.Cells(sat, 1) = s1.Cells(i, 1) & "- " & ek
                s2.Cells(sat, 3) = Trim(bol(ek - 1))
                If ek - 1 <= UBound(bolTC) Then
                    If bolTC(ek - 1) <> "" Then
                        s2.Cells(sat, 4) = Trim(bolTC(ek - 1))
                    End If
                End If
                If ek - 1 <= UBound(bolVKN) Then
                    If bolVKN(ek - 1) <> "" Then
                        s2.Cells(sat, 5) = Trim(bolVKN(ek - 1))
                    End If
                End If
                sat = sat + 1
            Next
        Else
            s2.Cells(sat, 3) = Trim(al)
            s2.Cells(sat, 1) = s1.Cells(i, 1)
            s2.Cells(sat, 4) = s1.Cells(i, 4)
            s2.Cells(sat, 5) = s1.Cells(i, 5)
            sat = sat + 1
        End If

    Next i
End Sub