Özet Tabloyu normal tabloya çevirmek

[ravensqu]

Arkadaşlar öncelikle merhaba;

Müşterilerimizden gelen tablolar özet tablo şeklinde oluyor. Bizim kullandığımız sisteme atmak için de bunu düzenlemek gerekiyor. Ekte dosyada gelen ve olması gerken şekli var. bunu bir makro ile gerçekleştirmek mümkün mü? Çok hakim olduğum bir konu değil, sizlere danışmak istedim...

Şimdiden teşekkürler...

 

[faceoff]

Gelen özet taplonun tum alanlarını seçip kopyalayın daha sonra başka bir sayfaya özel yapıştır menüsünden değerleri seçerseniz işiniz görülmüş olur

 

[hamitcan]

Gönderdiğiniz dosyadaki örnekte Özet Tablo kullanılmamış. Özet Tablo haliyle gönderin.

 

[ravensqu]

Öncelikle dönüşünüz için teşekkürler...

Faceoff: özet tablodan bu şekle dönüyor. Müşterilerimiz bu şekilde veriyor diye de düşünebilirsiniz. Farz edin di ben ilk sayfayı gönderdim siz de 2. sayfayı elde edeceksiniz...

Hamitcan: Özet tabloyu bu şekle çeviriyoruz. Bundan sonrasında mesele, 2. sayfadaki yapıya çevirmek...

Bu arada özel yapıştırdaki işlemi tersine çevir ile olmuyor... Bunu da belirtmek isterim.

Tekrar teşekkürler...

 

[Merhum İdris SERDAR]

Arkadaşlar öncelikle merhaba;

Müşterilerimizden gelen tablolar özet tablo şeklinde oluyor. Bizim kullandığımız sisteme atmak için de bunu düzenlemek gerekiyor. Ekte dosyada gelen ve olması gerken şekli var. bunu bir makro ile gerçekleştirmek mümkün mü? Çok hakim olduğum bir konu değil, sizlere danışmak istedim...

Şimdiden teşekkürler...

.

ÖZET TABLOLAR (PİVOT TABLE)


Burada yer alan 24 No'lu mesajımdaki örnek dosyayı inceleyin.

.

 

[hamitcan]

Alternatif;

Sub nn()
    k = 1
    Set S1 = Sheets("Gelen")
    Set S2 = Sheets("Olması gereken")
    S2.[a2:c1000].Clear
    For i = 2 To [a65536].End(3).Row
    For j = 2 To 5
        k = k + 1
        S2.Cells(k, 1) = S1.Cells(i, 1)
        S2.Cells(k, 2) = S1.Cells(i, j)
        S2.Cells(k, 3) = S1.Cells(1, j)
    Next j
    Next i
    MsgBox "Bitti."
End Sub

 

[ravensqu]

Alternatif;

Sub nn()
    k = 1
    Set S1 = Sheets("Gelen")
    Set S2 = Sheets("Olması gereken")
    S2.[a2:c1000].Clear
    For i = 2 To [a65536].End(3).Row
    For j = 2 To 5
        k = k + 1
        S2.Cells(k, 1) = S1.Cells(i, 1)
        S2.Cells(k, 2) = S1.Cells(i, j)
        S2.Cells(k, 3) = S1.Cells(1, j)
    Next j
    Next i
    MsgBox "Bitti."
End Sub

Öncelikle teşekkürler Hamitcan bey. Gerçekten işime yaradı. Ancak bir de satır ve sütun sayısını artırırsak nasıl yaparız? mesela 5. ay ve 4. ürün eklersek vb... kodu bu yönde düzenleme şansımız olur mu, nasıl bir yöntem izlenmeli... cevap veren arkadaşlarıma teşekkürler...

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub nn()
    k = 1
    Set S1 = Sheets("Gelen")
    Set S2 = Sheets("Olması gereken")
    S2.[a2:c1000].Clear
    For i = 2 To [a65536].End(3).Row
[COLOR=RED]For j = 2 To Range("1:1").End(xlToRight).Column[/COLOR]
        k = k + 1
        S2.Cells(k, 1) = S1.Cells(i, 1)
        S2.Cells(k, 2) = S1.Cells(i, j)
        S2.Cells(k, 3) = S1.Cells(1, j)
    Next j
    Next i
    MsgBox "Bitti."
End Sub

 

[Merhum İdris SERDAR]

Arkadaşlar öncelikle merhaba;

Müşterilerimizden gelen tablolar özet tablo şeklinde oluyor. Bizim kullandığımız sisteme atmak için de bunu düzenlemek gerekiyor. Ekte dosyada gelen ve olması gerken şekli var. bunu bir makro ile gerçekleştirmek mümkün mü? Çok hakim olduğum bir konu değil, sizlere danışmak istedim...

Şimdiden teşekkürler...

.

Verdiğim yanıtı beğenmediniz herhalde...

Belirttiğim yöntemle ve makro ile yapılmış dosyanız ekte.

.

 

[ravensqu]

.

Verdiğim yanıtı beğenmediniz herhalde...

Belirttiğim yöntemle ve makro ile yapılmış dosyanız ekte.

.

Estağfurullah Yurttaş... Ne demek... Ben sorunumu biraz yanlış anlattım sanırım. İlk mesajda verdiğim dosyadaki hali ile veri bana ulaşıyor. Esasında bir özet tablo şeklinde değil. ama içerik olarak aynı. O nedenle tam olarak yapmak istediğim ekte verdiğim dosyadaki dönüşümdü. Hamitcan tarafından verilen çözüm buna uyan şekliydi. Emek vermiş olmanız bile yeter elbette. bu çözümü de elbette kullanabilirim.

Tekrar teşekkürler.