Selam Arkadaşlar; yaptığımız ürünlerin günlere göre satışlarını tutuyorum... istediğim aylık olarak en çok satan ilk 10 ürünü adetleri ile görmek... ekte ayrıntılı olarak belirtilmiştir.. ilginize teşekkür ederim...
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function Benzersiz(Aralik As Range, i As Integer)
Application.Volatile
Dim ciftolmayan As New Collection
For Each ce In Aralik
On Error Resume Next
ciftolmayan.Add ce, CStr(ce)
Next ce
If i > ciftolmayan.Count Then
Benzersiz = ""
Else
Benzersiz = ciftolmayan(i)
End If
End Function