Dengeli rakam dağılımı

Katılım
15 Ocak 2018
Mesajlar
105
Beğeniler
8
Excel Vers. ve Dili
2015 TR
#1
http://s7.dosya.tc/server15/ywtb6u/cagri_degerlendirme_calisma_tablosu.xlsx.html

İşimiz 1. sayfada. Kısmen ve beklenen altı diye seçenek var. Kısmen seçince soldan 10 puan düşüyor beklenen altı olunca 20 puan düşüyor 100 üzerinden. Benim isteğim bu 2 seçeneğe dokunmadan 10 20 30 40.... 100 şeklinde aşağıya doğru açılmasını istiyorum ve yanındaki puandan kırsın istiyorum. Yani 10 u seçtim 90 a düşecek aynı satırda 40 seçtim 50 ye düşecek.

Yanii


Okla gösterdiğim yerde puanlar aşağı doğru açılacak, 10 20 30 diye 100e kadar, ve bunun sol taraftaki 100 puandan düşülmesi. Bu işlemi işaretlediğim tüm satır ve sütunda yapmam lazım. Her kutucukta seçenekler çıkıyor. Atıyorum ki ben bir satırda 10 seçtim aynı satırdaki 100 sayısı 90 a düşecek, aynı satırda farklı sütunda 20 seçtim 70 e düşecek. Bu şekilde puanların eklenmesini istiyorum.
 
Son düzenleme:

kulomer46

Altın Üye
Altın Üye
Katılım
23 Mart 2007
Mesajlar
615
Beğeniler
59
Excel Vers. ve Dili
excel 2013 türkçe
#4
Merhaba

Sorunuzu tekrar paylaşırsanız belki çözüm bulabiliriz.
Sorunuzu tekrar paylaşmanızı bekliyorum.

Selamlar...
 
Katılım
15 Ocak 2018
Mesajlar
105
Beğeniler
8
Excel Vers. ve Dili
2015 TR
#5
Merhaba

Sorunuzu tekrar paylaşırsanız belki çözüm bulabiliriz.
Sorunuzu tekrar paylaşmanızı bekliyorum.

Selamlar...
http://s7.dosya.tc/server15/ywtb6u/cagri_degerlendirme_calisma_tablosu.xlsx.html

İşimiz 1. sayfada. Kısmen ve beklenen altı diye seçenek var. Kısmen seçince soldan 10 puan düşüyor beklenen altı olunca 20 puan düşüyor 100 üzerinden. Benim isteğim bu 2 seçeneğe dokunmadan 10 20 30 40.... 100 şeklinde aşağıya doğru açılmasını istiyorum ve yanındaki puandan kırsın istiyorum. Yani 10 u seçtim 90 a düşecek aynı satırda 40 seçtim 50 ye düşecek.

Yanii


Okla gösterdiğim yerde puanlar aşağı doğru açılacak, 10 20 30 diye 100e kadar, ve bunun sol taraftaki 100 puandan düşülmesi. Bu işlemi işaretlediğim tüm satır ve sütunda yapmam lazım. Her kutucukta seçenekler çıkıyor. Atıyorum ki ben bir satırda 10 seçtim aynı satırdaki 100 sayısı 90 a düşecek, aynı satırda farklı sütunda 20 seçtim 70 e düşecek. Bu şekilde puanların eklenmesini istiyorum.
 

kulomer46

Altın Üye
Altın Üye
Katılım
23 Mart 2007
Mesajlar
615
Beğeniler
59
Excel Vers. ve Dili
excel 2013 türkçe
#6
Merhaba

Önce dosyanızı Farklı Kaydet deyip Dosya Türü olarak aşağıdan Makro içerebilen dosya türü ' nü seçip farklı kaydetmeniz lazım.

1558259503405.png

Sonra M2:AA640 aralığını seçin.
Veri doğrulama dan Listeyi seçip ekrandaki gibi değerleri girip Ok tuşuna basınız.

1558257356927.png

Böylece artık hücre tıklandığında aşağıya doğru açılan listede 10 20 30 .. 100 diye rakamlar sıralanacaktır. Sonra...
 
Son düzenleme:

kulomer46

Altın Üye
Altın Üye
Katılım
23 Mart 2007
Mesajlar
615
Beğeniler
59
Excel Vers. ve Dili
excel 2013 türkçe
#7
Sonra 1 isimli sayfanın Worksheet_Change olayına aşağıdaki kodları yapıştırınız.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row >= 2 And Target.Row <= 640 And Target.Column >= 13 And Target.Column <= 27 Then
    For i = 13 To 27     
        topla = topla + Cells(Target.Row, i) 
    Next
 
    Cells(Target.Row, 12) = 100 - topla

End If

End Sub

Örnek resim ekledim.

1558257900594.png


Programınız bu şekilde kullanıma hazırdır. Esen kalınız.

Selamlar...
 

Ekli dosyalar

ÆSir

Altın Üye
Katılım
15 Ocak 2018
Mesajlar
105
Beğeniler
8
Excel Vers. ve Dili
2015 TR
#8
Merhabalar,

Gold olmadığım için indiremiyorum :(
 

kulomer46

Altın Üye
Altın Üye
Katılım
23 Mart 2007
Mesajlar
615
Beğeniler
59
Excel Vers. ve Dili
excel 2013 türkçe
#9
Merhaba

Yukarda anlattıklarımı uygularsanız indirmeye gerek kalmaz. Selamlar...
 
Üst