Excel Tablo Karşılaştırma formatı

[maniac34]

Arkadaşlar merhaba;

Aşağıdaki resimde belirttiğim 1. tabloyu (Mevcut format olarak belirttiğim)
2.tablodaki(Olması gereken Tablodaki) gibi alt alta gelecek şekilde yapmak istiyorum.
Bunu formül ya da makro ile nasıl yapabilirim.

Şimdiden teşekkürler..

 

[maniac34]

Arkadaşlar bunu EĞER ve DÜŞEY ara formülleri ile yapmak istiyorum ama bir türlü beceremedim.
Yardımcı olabilirseniz sevinirim..

 

[1903emre34@gmail.com]

Dosya ektedir, formül aracılığıyla yapılmıştır.

http://s3.dosya.tc/server14/vdatk5/tablo_excel.zip.html

 

[alicimri]

Aşağıdaki kod Sayfa1 deki verileri Sayfa2 e aktarıyor.
Sayfa1 deki ürün listesinin A sütununda, Firma listesinin ise 1. satırda olduğu varsayılmıştır.

Sub AKTAR()
satir = Sheets("Sayfa1").Range("a" & Rows.Count).End(3).Row
sutun = Sheets("Sayfa1").Cells(1, Columns.Count).End(1).Column
For e = 3 To satir
son1 = Sheets("Sayfa2").Range("a" & Rows.Count).End(3).Row + 1
Sheets("Sayfa2").Range("A" & son1).Value = Sheets("Sayfa1").Cells(e, 1)
For i = 2 To sutun Step 3
son = Sheets("Sayfa2").Range("a" & Rows.Count).End(3).Row + 1
Sheets("Sayfa2").Range("A" & son).Value = Sheets("Sayfa1").Cells(1, i)
Sheets("Sayfa2").Range("B" & son).Value = Sheets("Sayfa1").Cells(e, i)
Sheets("Sayfa2").Range("c" & son).Value = Sheets("Sayfa1").Cells(e, i + 1)
Sheets("Sayfa2").Range("d" & son).Value = Sheets("Sayfa1").Cells(e, i + 2)
Next
Next
End Sub

örnek dosya aşağıdaki linkte
http://s3.dosya.tc/server14/u3e16y/a.zip.html

 

[alicimri]

Aşağıdaki kod ise Sayfa1 deki verileri Sayfa2 e biçimlendirerek aktarıyor.
Sayfa1 deki ürün listesinin A sütununda, Firma listesinin ise 1. satırda olduğu varsayılmıştır.
Sn. 1903emre34 nin örnek dosyasından yararlandım
http://s3.dosya.tc/server14/9mgs2i/excel.zip.html

Sub AKTAR()
Sheets("Sayfa1").Range("b2:d2").Copy Sheets("Sayfa2").Range("b1:d1")
satir = Sheets("Sayfa1").Range("a" & Rows.Count).End(3).Row
sutun = Sheets("Sayfa1").Cells(1, Columns.Count).End(1).Column
For e = 3 To satir
son1 = Sheets("Sayfa2").Range("a" & Rows.Count).End(3).Row + 1
Sheets("Sayfa1").Cells(e, 1).Copy Sheets("Sayfa2").Range("A" & son1)
 With Sheets("Sayfa2").Range("B" & son1 & ":D" & son1)
        .MergeCells = True
        .Interior.Color = 65535
        .Borders.LineStyle = xlContinuous
    End With
For i = 2 To sutun Step 3
son = Sheets("Sayfa2").Range("a" & Rows.Count).End(3).Row + 1
Sheets("Sayfa1").Cells(1, i).Copy Sheets("Sayfa2").Range("A" & son)
Sheets("Sayfa1").Cells(e, i).Copy Sheets("Sayfa2").Range("B" & son)
Sheets("Sayfa1").Cells(e, i + 1).Copy Sheets("Sayfa2").Range("c" & son)
Sheets("Sayfa1").Cells(e, i + 2).Copy Sheets("Sayfa2").Range("d" & son)
Next
Next
End Sub