..:: 24 Haziran 2018 Seçim Sonuçlarını Kayıt/Hesaplama ::..

[Ömer BARAN]

Merhabalar.

Bir müddet forumla ilgilenmemiştim ve belgeyi eklemekte de biraz geciktim sanırım.
Umarım sorunsuz kullanılır, denemelerimde bir sorunla karşılaşmadım.
Biraz makro, biraz formül, şimdilik ihtiyacı görecektir.
.

 

[assenucler]

Sayın Ömer BARAN,

Emek ve paylaşımınız için teşekkür eder, saygılarımı sunarım.

 

[cerit]

Merhaba,
24 haziran seçtiğimde(belirtilen yolu izleyerek) ve milletvekili hesapla butonuna bastığımda;
sayfa 11 YENİ_MV_HESAPLA makrosu yok görünüyor.Selamlar.

 

[Ömer BARAN]

Merhaba.

Evet haklısınız.
Aşağıdaki kod'u BARAN isimli MODULE içerisine yapıştırın ve sayfadaki MV HESAPLA düğmesiyle ilişkilendirin.
.
Sub YENI_MV_HESAPLA()
Dim ilno As Integer
Dim h As Worksheet
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Set h = Sheets("Hesaplama")
If Sheets("Harita").[CC2] = 1 Then
MsgBox "Seçilen veriler 2015 Haziran seçimlerine ilişkin olduğundan," & vbLf & _
"herhangi bir HESAPLAMA YAPILMADAN SONUÇLAR AKTARILMIŞTIR.", vbInformation, "..:: Ömer BARAN ::.."
Exit Sub
End If
h.[R4:AB90].ClearContents
For ilno = 4 To 90
h.[BC1] = ilno - 3
h.[BA1:BN38].Calculate
If h.Cells(ilno, "AC") > 0 Then _
h.[BD1:BN1].Copy: h.Cells(ilno, "R").PasteSpecial Paste:=xlPasteValues
Next
h.Calculate
h.[BC1] = 0: Sheets("Harita").Activate
Application.Calculation = xlCalculationAutomatic
'HARITA.RENK
Application.ScreenUpdating = True
MsgBox "MİLLETVEKİLİ SAYILARI HESAPLANDI... ", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[cerit]

Merhaba,
Hocam maalesef MV hesaplamıyor.
Zamanınız varsa kontrol edebilir misiniz
Selamlar.

 

[Ömer BARAN]

Şu an oy kullanma sonrası, dışardayım.
Bilgisayar başına geçtiğimde belgeyi yenilerim.

 

[Ömer BARAN]

Ya da yapabiliyorsanız; Hesaplama isimli sayfayı görünür hale getirdikten ve FORMÜLLER menüsünden Hesaplama Yöntemini Otomatik olarak değiştirin ve ardından da sayfada en sağa doğru gidip, Değer Değiştirme Düğmesini kullanarak, mevcut verilere göre MV hesaplamasını yaptırabilirsiniz.

 

[Ömer BARAN]

İlk mesaja eklediğim, adının sonunda 2 olan yeni eki deneyiniz.

 

[alikaraaslan]

Merhabalar.

Bir müddet forumla ilgilenmemiştim ve belgeyi eklemekte de biraz geciktim sanırım.
Umarım sorunsuz kullanılır, denemelerimde bir sorunla karşılaşmadım.
Biraz makro, biraz formül, şimdilik ihtiyacı görecektir.
.

kolay gelsin 2023 seçimleriyle alakalı bir çalışmanız var mı