ürün adını baz alarak fiyat sipariş numarası ve marka olarak sınıflandırma

[marinerr4]

Merhaba, şimdilik elimde 4 sürünlü veri var. bu verilerden ürün adı baz alınarak fiyat, sipariş numarası, ve marka olarak yan tarafa veya başka bir çalışma sayfasına verilerimi gruplandırmak istiyorum. sıralamam ürün adına (koduna) göre olacak. Yardımlarınız için şimdiden teşekkür ederim. Makro olarak aktarabilirmiyim bilmiyorum ama şimdilik formul bulabilirsem işimi görür diye düşünüyorum. İyi çalışmalar.
Dosya http://s000.tinyupload.com/?file_id=32975440981087875101

 

[Orion1]

Dosyanız ektedir.

DOSYAYI INDIR

Option Base 1
Sub liste_59()
Dim i As Long, n As Long, liste(), myarr(), deg As String
Dim sonsat As Long, z As Object
Sheets("Sayfa1").Select
Range("F3:I" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
liste = Range("A2:D" & sonsat).Value
Set z = CreateObject("Scripting.Dictionary")
ReDim myarr(1 To UBound(liste), 4)
For i = 1 To UBound(myarr)
    deg = Range("A" & i).Value & Range("B" & i).Value & Range("C" & i).Value & Range("D" & i).Value
    If Not z.exists(deg) Then
        n = n + 1
        z.Add (deg), n
        myarr(n, 1) = liste(i, 1)
        myarr(n, 2) = liste(i, 2)
        myarr(n, 3) = liste(i, 3)
        myarr(n, 4) = liste(i, 4)
    End If
Next i
Erase liste
Range("F3").Resize(n, 4) = myarr
Erase myarr
Set z = Nothing
MsgBox "İşlem tamam."
End Sub

 

[marinerr4]

Çok Teşekkür ederim. Sağolun

 

[Orion1]

Çok Teşekkür ederim. Sağolun

Rica ederim:
İyi çalışmalar.