Tabloya dönüştürme

[igmox]

slm,
elimde müşterilerin dökümünün olduğu bir liste var, yanlız formati basit sekilde tablo yapmaya elvermiyor.şöyleki

=======================================
Müşteri Kodu : 1200012
Müşteri Adı : XXX Ticaret
Adresi : YYY Sokak
Vergi Dairesi: DDDDDDDDD
Vergi No : 222222223
=======================================
Müşteri Kodu : 1200023
Müşteri Adı : YYY Ticaret
Adresi : ZZZ Sokak
Vergi Dairesi: DDDDDDDDD
Vergi No : 222223333
=======================================

ve bu şekilde binlerce olarak devam ediyor. bunları sutunlar haline cevirmenin kolay bir yolu var mıdır ?

 

[hamitcan]

Olması gereken halini bir excel sayfasında,küçük bir örnek şekilde yaparsanız, daha doğru ve çabuk cevap alabilirsiniz.

 

[igmox]

ilginize çok teşekkür hocam, aynı maddeler altalta gelecek şekilde tablodan bahsetmiştim, format dosya ektedir.

 

[hamitcan]

İstediğiniz Devrik_Dönüşüm ile ilgili bir sorun. Aşağıdaki aşamaları takip edin.
1-Sütunlara dönüştüreceğiniz hücreleri seçin.
2-Seçilen hücreleri kopyalayın.
3-Bir sütun seçin.
4-Özel yapıştırdan İşlemi Ters çeviri seçin.Tamama basın.

 

[igmox]

hocam belirttiğiniz metodda her müşteri için ayrı ayrı dönüşüm yapmak gerekiyor ve bu müşterilerden binlerce var

 

[Merhum İdris SERDAR]

ilginize çok teşekkür hocam, aynı maddeler altalta gelecek şekilde tablodan bahsetmiştim, format dosya ektedir.

Öyle anlaşılıyor ki bu veriler metin olarak bir yerden geliyor.

Bu verileri, C:\'de NotePad-Note Defteri ile "veri" adı altında kaydedin. Ekteki metin dosyası gibi. Sonra Excel dosyasındaki "veri al "düğmesine basın. Yandaki formüllü tablo kısa gelirse aşağıya kadar istenildiği kadar kopyalayın.

Yada macrosuz bir yöntemle, bu verileri olduğu gibi kopyalayıp A sütununa koyun. Sonra bu verileri seçip, Data / Text to Column'dan Other'a : koyup işlemi bitirin.


Dosyalar ekte.

 

[hamitcan]

Ben de bir örnek hazırladım. Eki inceleyin.

 

[igmox]

hocam ben durumu basitleştirmek için örnekteki maddeleri azaltmıştım.
hocam utanarak söylüyorum, ekteki asıl dosya formatına gore çevrimi makro ya normal çevirme metoduyla gosterirseniz, kac gün size dua edeceğim bilemezsiniz.
çok teşekkürler

 

[veyselemre]

Sub al()
    Cells.Delete
    fname = ActiveWorkbook.Path & "\veriler.txt"
    fno = FreeFile

    Open fname For Input As fno

    While Not EOF(fno)
        Line Input #fno, veri
        a = a + 1
        Cells(a, 1) = veri
    Wend
    Close fno
    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(20, 9), Array(21, 1)), TrailingMinusNumbers:=True
    Range("A1:A12").Copy
    Range("d1").PasteSpecial Paste:=xlPasteAll, Transpose:=True

    sat = 2
    For x = 1 To [a65536].End(3).Row Step 14

        Range("b" & x & " :b" & x + 11).Copy
        Range("d" & sat).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        sat = sat + 1
    Next x
    Columns("A:c").Delete Shift:=xlToLeft
    With Range("A1:L1")
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
    End With
    Cells.EntireColumn.AutoFit
    [a1].Select
End Sub

 

[igmox]

hocam elleriniz dert görmesin, beni kaç günlük emekten kurtardınız, çok teşekkürler