tarihli etopla

[igultekin2000]

iyi akşamlar;

listeden başkabir (Raporlama) sayfasına kullanılan kumaş çeşitlerini tekrarsız olarak getirip tarih aralıklı toplamını almak itiyorum. tarih aralıklı toplamayı belki yapabilirim örnekler var. ancak envanter listesindeki tekrar eden kumaşları tek alarak başka sayfaya aktarmakla ilgili örnek bulamadım.
teşekkürler

http://s3.dosya.tc/server11/c4eux8/Raporlama.xlsx.html

 

[Emir Hüseyin Çoban]

. . .

Tekrarsız liste oluşturmak için..

Sub kod()
    Dim SD As Worksheet: Set SD = Sheets("Envanter")
    Dim SO As Worksheet: Set SO = Sheets("Raporlama")
    Dim liste(), dizi()
    son = SD.Cells(Rows.Count, "D").End(3).Row
    liste = SD.Range("D2:E" & son).Value
    Set dic = CreateObject("scripting.dictionary")
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        If Not dic.exists(aranan) Then
            dic.Add aranan, ""
        End If
    Next x
    SO.Range("A2:A" & Rows.Count).ClearContents
    SO.Range("A2").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End Sub

. . .

 

[igultekin2000]

sorun çözüldü.

. . .

Tekrarsız liste oluşturmak için..

Sub kod()
    Dim SD As Worksheet: Set SD = Sheets("Envanter")
    Dim SO As Worksheet: Set SO = Sheets("Raporlama")
    Dim liste(), dizi()
    son = SD.Cells(Rows.Count, "D").End(3).Row
    liste = SD.Range("D2:E" & son).Value
    Set dic = CreateObject("scripting.dictionary")
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        If Not dic.exists(aranan) Then
            dic.Add aranan, ""
        End If
    Next x
    SO.Range("A2:A" & Rows.Count).ClearContents
    SO.Range("A2").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End Sub

. . .

çok işime yarayacak kod, teşekkürler

makro sorunsuz çalışor, kullanmak esnasında bir ilavenin olması da güzel olurdu. benzersiz liste oluşurken bunu sıralı yani A-Z şeklinde yapmamız mümkün olurmuydu?