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

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
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.
.
 

Ekli dosyalar

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,519
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Sayın Ömer BARAN,

Emek ve paylaşımınız için teşekkür eder, saygılarımı sunarım.
 
Katılım
1 Eylül 2012
Mesajlar
174
Excel Vers. ve Dili
2007 - 2010 Türkçe 32
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

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
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
 
Katılım
1 Eylül 2012
Mesajlar
174
Excel Vers. ve Dili
2007 - 2010 Türkçe 32
Merhaba,
Hocam maalesef MV hesaplamıyor.
Zamanınız varsa kontrol edebilir misiniz
Selamlar.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Şu an oy kullanma sonrası, dışardayım.
Bilgisayar başına geçtiğimde belgeyi yenilerim.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
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.
 
Son düzenleme:

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
İlk mesaja eklediğim, adının sonunda 2 olan yeni eki deneyiniz.
 
Katılım
10 Nisan 2023
Mesajlar
2
Excel Vers. ve Dili
2019
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ı
 
Üst