İşaretlenen Satırların Toplamını Göstermek

[starmetin]

Ýşaretlenen Satırların Toplamını Göstermek

Selam Arkadaşlar,

Ctrl ile mesela A hücresindeki işaretlenen satırlardaki değerlerin toplamını C1 satırında gösterebilirmiyim..
bununla ilgili bir ekte bir örnek dosya koyuyorum yardımcı olabilecek
arkadaşlara teşekkürler....

hürmetler..

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayarak deneyin.

[vb:1:a2f810f7a5]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column <> 1 Then Exit Sub
[c2] = [c2] + ActiveCell
End Sub
[/vb:1:a2f810f7a5]

 

[starmetin]

malesef beceremedim

 

[Levent Menteşoğlu]

sayfa1'in sekmesi üzerine fare ile sağ klik yapın ve kod görüntüleyi seçin, böylece sayfanın kod sayfası açılır, yukarıda verdiğim kodu buraya kopyalayın. Sonrada sayfa üzerindeki hücreleri ctrl ile seçtiğinizde kod otomatikman çalışacaktır.

 

[starmetin]

selam levent,
evet bu şekilde toplam alıyor , yalnız durmadan toplam alıyor ben diyelim başka bir hücreye gelip tekrar A hücresine geldiğim zaman aldığı toplamın üstüne devam ediyor... kısaca yapmak istediğim şeyi anlatırsam belki daha iyi yardımcı olabilirsiniz...

A hücresine değerler giriyorum bu değerler cTRL ile seçerek toplamını alıyorum.
A hücresine değerleri giriyorum B2 hücresine bulmak istediğim değeri yazıyorum C2 hücresine ise işaretlediğim satırların toplamını alıyorum D2 satırına B2-C2 formül yapıyorum bulmak istediğim rakam arasındaki farkı görmek için...
bir ayrıca bir başka bir macro ekledim en son seçtiğim CTRL hücresine pasif hale getiriyorum ki , seçtiklerim arasında bulmak istediğim toplamı bulabilmek için biraz karışık oldu ama , ekli dosya daha anlaşılır bir örnek koydum....yardımcı olursanız sevinirim...
teşekkürler Leventm

 

[Levent Menteşoğlu]

Ekte farklı bir örnek sunuyorum inceleyin. Bu örnekte ctrl tuşunu kullanmanıza gerek yok, sadece istediğiniz hücreyi fare ile seçmeniz yeterlidir. Ayrıntılı açıklama dosya içindedir.

 

[starmetin]

leventm varya yine döktürmüşün süpersin yaaa tekrar tekrar teşekkürler allah razı olsun senden...
hürmetler :mutlu: :dua: