Seçim Sonuç Çizelgesi

[ALTINYAYLA]

Arkadaşlar örnek bir seçim sonuç çizelgesi hazırladım buna ek neler yapılabilir. Önerilerinizi bekliyorum. Mesela tek tuşla tüm yazılı verileri silme eklenebilir. Başka fonksiyonel önerisi olacak arkadaşların yardımını bekliyorum...

 

[YUSUF44]

Merhaba.

Başlık olarak 23. Dönem yazıyor, bu seçim ise 25. Dönem.

F sütunundaki iptal edilen oy toplamı nedir ve H sütunundaki Sağlama nasıl çalışıyor?

 

[ALTINYAYLA]

Merhaba.

Başlık olarak 23. Dönem yazıyor, bu seçim ise 25. Dönem.

F sütunundaki iptal edilen oy toplamı nedir ve H sütunundaki Sağlama nasıl çalışıyor?

İlk Taslağı o dönemde hazırladıydımda geliştire geliştire bu hale geldi sadece seçimzamanları aklıma düştüğü için değiştirmeyi akıl edememişim dönemini.
İptal edilen oy toplamı sandıktan kulanılan oydan fazla çıkan oy sayısıdır. Sağlama ise formülünü eklememişim. İptal edilen geçersiz ve geçerli oyların kullanılan toplam oya eşit olmasıdır. ve hücre yeşil oluyor.

 

[YUSUF44]

Sağlama için aşağıdaki formülü kullanabilirsiniz:
H5 hücresindeki formül:

=ETOPLA($J$4:$AS$4;"OY";J5:AS5)

Değer girilmemiş hücrelerde Sayı/0 hatalarının görünmemesi için formülü aşağıdaki gibi değiştirebilirsiniz:
K5 hücresindeki formül:

=EĞER(J5="";"";J5/$G5)

Oy sütunlarına girilen verileri temizlemek için aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub oytemizle()
uyarı1 = MsgBox("Parti ve adayların aldıkları oy sayıları silinecek." & _
Chr(10) & "Emin misiniz?", vbYesNo)

If uyarı1 = vbYes Then
    sonsat = Cells(Rows.Count, "A").End(3).Row
    sonsut = Cells(4, Columns.Count).End(xlToLeft).Column

    For i = 10 To sonsut Step 2
        Range(Cells(5, i), Cells(sonsat, i)).ClearContents
    Next
    
End If

End Sub

Sandıklarda kullanılan geçerli ve geçersiz oy sayılarını yani D, E ve F sütunlarını silmek için aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub santemizle()
uyarı2 = MsgBox("Sandıklarda kullanılan geçerli ve geçersiz oy sayıları silinecek." & _
Chr(10) & "Emin misiniz?", vbYesNo)

If uyarı2 = vbYes Then
    sonsat1 = Cells(Rows.Count, "A").End(3).Row
    Range("D5:F" & sonsat1).ClearContents
End If

End Sub

Ya da bunların her ikisini de aynı anda yapmak için aşağıdaki kodları kullanabilirsiniz:

Sub temizle()
uyarı = MsgBox("Sandıklarda kullanılan geçerli ve geçersiz oy sayıları ile " _
& Chr(10) & "Parti ve adayların aldıkları oy sayıları silinecek." & _
Chr(10) & "Emin misiniz?", vbYesNo)

If uyarı = vbYes Then
    sonsat = Cells(Rows.Count, "A").End(3).Row
    sonsut = Cells(4, Columns.Count).End(xlToLeft).Column

    For i = 10 To sonsut Step 2
        Range(Cells(5, i), Cells(sonsat, i)).ClearContents
    Next
    
    Range("D5:F" & sonsat).ClearContents
    
End If

End Sub

İptal Edilen Oyların Toplamı sütunu aslında gereksiz. Sandık sonuçları girişi yapılırken kullanılan oy sayısı, itirazsız gereçli oy sayısı, itirazlı geçerli oy sayısı ve geçersiz oy sayısı bilgileriyle parti ve adayların aldığı oy sayıları kullanılır. Eğer o sütunu çıkarmayı düşünürseniz kodların buna göre revize edilmesi gerekir ya da o sütunu tamamen gizleyebilirsiniz.

 

[ALTINYAYLA]

Hocam İptal edilen oylar sütununu sildim. en alttaki kodları da
Range("D5:F" & sonsat).ClearContents
Range("D5:E" & sonsat).ClearContents olarak değiştirdim. ekledim. Ancak düğmeyi eklemeyi unuttum bu konuda bilginizi talep ediyorum yada eğer siz üzerinde değişiklik yapıp paylaşırsanız daha makbule geçer saygılarımla...

 

[YUSUF44]

Dosyada değişiklikler yapıp yükledim.
Biçimlendirmeler yaptım, formülleri ayarladım, makroları düzenledim, Özet sayfası ekleyip orda tablo ve grafik halinde toplamları gösterdim. Veri girişi yapılırken her partiye giriş yaptığınızda bir sonraki partinin oy sayısı hücresine gitmesini sağladım vs:

https://drive.google.com/file/d/0B43WMUs21VpfOW95MUVpdDNuU0k/view?usp=sharing

 

[ALTINYAYLA]

Hocam emeğine sağlık, hakkını helal et... Saygılarımı sunuyorum...

 

[YUSUF44]

Helal olsun, ne demek. Geçici Seçim personeli olarak ilgimi çekmişti.

 

[ALTINYAYLA]

Yeni Seçim Oy Dağılımı

Selamlar kıymetli üstadlar, yeniden Altın üye olmanın mutluluğu ile yazıyorum. Malumunuz olduğu üzere önümüzde seçimler var. O seçimlerde kullanacağımız seçim sonuç Oy dağılım uygulamasında yeni bir değişiklik yapmayı düşündüm ama daha düşünce aşamasında içinden çıkamayacağım kanaati getirerek sizlere yazmaya karar verdim. Son seçimde kullandığımız Çizelge Uygulamasını ekte sunuyorum ve yapmak istediğim özellikleri aşağıda sıralıyorum. Bu konularda sizlerin engin tecrübelerinden istifade etmek istiyorum. Göstereceğiniz alakadan ötürü şimdiden teşekkür ederim.
1. Mevcut uygulamada Partilerin ve aldıkları oyları yazdığımız kısmı "Güncel (ittifaklı) oy pusulası şeklinde yeniden tasarlamak.
2. uygulamada mevcut sandık sayısı 30 ama icabında sandık sayısının azaltılıp artırılmasını sağlayacak özellik olması.
3. mevcut formül ve kodların hatalı olması endişesiyle rantabl çalışıp çalışmadığının kontrol edilmesi.

SAYGILARIMLA...

 

[Ömer BARAN]

Merhaba Sayın ALTINYAYLA.

Malum, 24 Haziran'da iki ayrı seçim, iki ayrı pusula, ancak tek zarf var. Allah sandık başında görevli olanlara kuvvet/sabır versin.
Aşağıda bir kısım sıkıntıları yazdım; sayım sırasında ciddi sıkıntıların yaşanacağı kesin gibi görünüyor.

-- Milletvekilliği seçimleri için; siyasal partilerin 1'i dışında baraj yok,
-- Cumhurbaşkanlığı seçimi için ise ittifaklar nedeniyle birlikte değerlendirilmesi gereken oylar var,
-- Bir'den fazla mühür basılmış pusulaların geçersiz sayılmayıp, ilgili siyasal partilere dağıtımı var
-- Bir bakan'ın mecliste belge diye gösterdiği peçete gibi pusulalar da olabilir ( ) vs vs,
-- Cumhurbaşkanlığı seçimine ilişkin sonuçların kamuoyuna nasıl bir şablonla aktarılacağına ilişkin bir ipucu da yok.

Herneyse; birçok nedenle belge tasarımının sil baştan yapılmasının yerinde olacağını,
bu güzel fikrin üstünde çalışmak için ise yeterli sürenin olduğunu düşünüyorum.

Tasarımı yaparsanız, keyifle üstünde çalışacak birçok üyenin olacağını sanıyorum.

Kolay gelsin.
.

 

[ALTINYAYLA]

İnşallah paylaşımımız üstadlarımıza yeniden tasarım için ilham kaynağı olur.

 

[ALTINYAYLA]

Örnek çalışmayı 10 üstadımız indirmiş. Umarım güzel bir çalışma ortaya çıkacaktır...

 

[ALTINYAYLA]

Örnek Uygulamaya ilham olacak oy pusulasının örneği YSK tarafından yayınlandı...

 

[Haluk]

Örnek Uygulamaya ilham olacak oy pusulasının örneği YSK tarafından yayınlandı...

Bunu Excel'e aktardınız mı ?

.

 

[ALTINYAYLA]

Bunu Excel'e aktardınız mı ?

.

Maalesef, zaten yapmak istediğim ve yardım isteme gayemiz o... 9 No'lu mesajda örnek uygulama

 

[ALTINYAYLA]

Hocalarım seçime az kaldı yokmu çalışmayı yapıp sunacak Kıymetli üstadlarımız...

 

[ALTINYAYLA]

Arkadaşlar ve üstadlar toparladım. Kullanıma hazır. Eksiği varmı yokmu onada ustadlar bakacak artık. güle güle kullanın...

 

[assenucler]

Emek ve paylaşımınız için teşekkürler. İyi bayramlar Sayın Altınyayla..

 

[ALTINYAYLA]

Emek ve paylaşımınız için teşekkürler. İyi bayramlar Sayın Altınyayla..

Rica ederim güle güle kullanın.

 

[baykep]

Çıkaracağı milletvekili sayılarını da gösterse güzel olurdu. ör. ilin çıkaracağı milletvekili sayısı 5 olsun. toplam oy sayılarına göre her partinin çıkaracağı milletvekili sayılarını göstersin.