• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İş Paylarına Göre Sınıflandırma

  • Konbuyu başlatan Konbuyu başlatan isodem
  • Başlangıç tarihi Başlangıç tarihi
Katılım
5 Temmuz 2007
Mesajlar
50
Excel Vers. ve Dili
2010 TR
Merhaba,

Elimdeki listede şehirlere yapılan 9 aylık satışlar var. 9 aylık satışlara göre;

Satışların %70 ini oluşturan şehirlere "A"
Satışların %15 ini oluşturan şehirlere "B"
Satışların %10 unu oluşturan şehirlere "C"
Satışların %5 ini oluşturan şehirlere "D"

formül ile nasıl yapabilirim.https://we.tl/ym6YIlK2Zl
 
Hocam,
tam tam istediğim şey n sütunundaki gibidir.L-M-N sütünlarındaki işlemleri ilk tabloma sırayı bozmadan formül ile nasıl yapabilirim.

https://we.tl/5Z5OphTbKg
 
ellerinize sağlık çok teşekkür ederim
@İdris Bey tam istediğim gibi ama isme göre sıraladığımda sınıflar bozuluyor.
@sakman bey tablonuzu inceledim ellerinize sağlık tekrardan ama safya çoğaltmadan tek sütunda yapmak istiyorum
 
buyurun
sayfa ilavesi yok.
ad tanımlaması yok.
koşullu biçimlendirme yok.
Toplam kolonu da olmasın denilirse, vakit bulursam bakabilirim ancak.

Sonradan Ekleme :
Kullanılan formül (C2 hücresinde) (Dizi formülüdür. CTRL+SHIFT+ENTER ile girilmelidir)

Kod:
=ARA(TOPLA(BÜYÜK($B$2:$B$66;SATIR(DOLAYLI("1:"&RANK(B2;$B$2:$B$66)+EĞERSAY($B$2:B2;B2)-1))))/TOPLA($D$2:$O$66)*100;{0;70,00000001;85,00000001;95,00000001};{"A";"B";"C";"D"})

link :http://s5.dosya.tc/server3/kcyao8/c1_1.xlsx.html
 
Son düzenleme:
makro ile çözüm isterseniz
buyurun
bu defa Toplam kolonu da yok.
Not : AA kolonu işlem yapılmak için kullanılıyor. Veri girmeyin..

link : http://dosya.co/3apjdx7qqgve/ç1_1.rar.html


Kod:
Sub snf()
Application.ScreenUpdating = False
Range("aa:aa").ClearContents
With Range("aa2:aa82")
.Formula = "=if(a2="""","""",sum(c2:n2))"
.Value = .Value
End With
Range("a1:aa82").Sort Key1:=Range("aa2"), Order1:=xlDescending, Header:=xlYes
With Range("b2:b82")
.Formula = "=if(a2="""","""",LOOKUP(sum($aa$2:aa2)/SUM($c$2:$n$82)*100,{0,70.00000001,85.00000001,95.00000001},{""A"",""B"",""C"",""D""}))"
.Value = .Value
End With
Range("aa:AA").ClearContents
Range("a1:n82").Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlYes
Range("a1").Select
Application.ScreenUpdating = True
End Sub
 
Hayırlı sabahlar ellerine sağlık
 
Geri
Üst