[Çözüldü] Yan yana yazdırma

[joeblack73]

Merhaba,
"veri" sayfasındaki aşağıdaki tablodaki verileri, yeni "sonuç" sayfasında yan yana makro ile nasıl yazdırabiliriz?
selamlar

Kutu no malzeme no adet
48856600 2458 1
48856600 3560 2
87799000 4587 2
32566400 1578 3
32566400 7896 1
32566400 3588 2
32566400 2458 1
97865400 4587 2
97865400 1445 5
97865400 3256 8

sonuç
Kutu no malzeme no adet malzeme no adet malzeme no adet malzeme no adet
48856600 2458 1 3560 2
87799000 4587 2
32566400 1578 3 7896 1 3588 2 2458 1
97865400 4587 2 1445 5 3256 8

[erseldemirel]

Benzeri vardı uyarladım;

Sub Test()
Set sayfaveri = ThisWorkbook.Sheets("veri")
Set sayfasonuc = ThisWorkbook.Sheets("sonuç")
satirsay = 2
For verisay = 2 To sayfaveri.Cells(sayfaveri.Rows.Count, 1).End(xlUp).Row
kutuNo = sayfaveri.Cells(verisay, 1).Value
malzemeNo = sayfaveri.Cells(verisay, 2).Value
adet = sayfaveri.Cells(verisay, 3).Value

If verisay = 2 Or sayfaveri.Cells(verisay - 1, 1).Value <> kutuNo Then
sayfasonuc.Cells(satirsay, 1).Value = kutuNo
sayfasonuc.Cells(satirsay, 2).Value = malzemeNo
sayfasonuc.Cells(satirsay, 3).Value = adet
satirsay = satirsay + 1
Else
sayfasonuc.Cells(satirsay - 1, sayfasonuc.Columns.Count).End(xlToLeft).Offset(0, 1).Value = malzemeNo
sayfasonuc.Cells(satirsay - 1, sayfasonuc.Columns.Count).End(xlToLeft).Offset(0, 1).Value = adet
End If
Next verisay
End Sub

[joeblack73]

Merhaba,
Elinize, emeğize sağlık.
selamlar

[erseldemirel]

Kolay gelsin ii çalışmalar