- Katılım
- 9 Ocak 2012
- Mesajlar
- 22
- Excel Vers. ve Dili
- 2007 türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,Arkadaşlar şimdiden teşekkür ederim.
Sub Benzersiz()
Sheets("Ürünler").Range("a1:a5000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("d1"), Unique:=True
End Sub
Sub BenzersizUGL()
Sheets("UGL").Range("A1:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True
End Sub
=EĞER(E2="";"";ETOPLA(A:A;E2;C:C))
İyi çalışmalar.Üstad çok teşekkür ederim bundan sonrasını halledebilirim...