İşaretlediğim yerlerden Toplam Alsın

[wortex]

Arkadaşlar A sütünununda değişik rakamlar var ( oldukça çok sayıda olduğunu düşünün 2 bin satır gibi).Ben B sütununda bazı satırlara ( istediğim satırlara) işaret koyacağım, mesela 1 yazacağım. C sütununda da bir toplam fonksiyonu yazacağım ama toplam formülünün başlangıç satırı bir önceki işaretlenmiş satır, bitiş satırıda o formülün yazıldığı satır olacak.
Sanırım anlatma ile olmayacak örnek dosyaya bakarsanız sevinirim.
Ben bir fonksiyon yazdım ama hesaplama işi çok ağır oluyor.Yani daha hızlı bir çözüm lazım.

 

[Levent Menteşoğlu]

Bu işlem için kullanıcı tanımlı fonksişyona bence gerek yok. Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. C sütunundaki bir hücreyi çift tıkladığınızda ilgili toplamı tıklanan hücreye yazacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 3 Then Exit Sub
Cancel = True
ilk = Cells(Target.Row, "b").End(xlUp).Row
son = Target.Row
If Target.Offset(0, -1) <> "" Then ilk = son
Target = WorksheetFunction.Sum(Range("a" & ilk & ":a" & son))
End Sub

 

[wortex]

Cevabınız için teşekkürler.Fonksiyona ihtiyaç duymamın sebebi,İşaretlenecek yerlerin tespiti için bir analiz programım yok biraz araştırma ve deneme yanılma yolu ile nerenin işaretlenmesi gerektiğini bulabiliyorum.Bu yüzden eşzamanlı görmek istiyorum.Ayrıca ben her işaret koyduğumda iki bölgenin değerlerinin değişmesi gerekecek.Yani hem işaretten önceki bölümü bitiş yeri değişiyor hemde işaretten sonraki bölümün başlangıç yeri değişiyor. İşlemler bittikten sonra yukarı satırlara tekrar dönüp kontrol edip birkaç yeri değiştirmem gerekebiliyor.Bazende satırları tek tek denemem gerekiyor buda herseferinde tekrar tekrar makro çalıştırmamı gerektiriyor.

Makro kullanmak istemeyişimin bir sebebi de Makro kullandıktan sonra excelde undo/geri al yapasmıyorsunuz. Buda benim için ayrı bir dezavantaj.

 

[a.akyurek]

Cevabınız için teşekkürler.Fonksiyona ihtiyaç duymamın sebebi,İşaretlenecek yerlerin tespiti için bir analiz programım yok biraz araştırma ve deneme yanılma yolu ile nerenin işaretlenmesi gerektiğini bulabiliyorum.Bu yüzden eşzamanlı görmek istiyorum.Ayrıca ben her işaret koyduğumda iki bölgenin değerlerinin değişmesi gerekecek.Yani hem işaretten önceki bölümü bitiş yeri değişiyor hemde işaretten sonraki bölümün başlangıç yeri değişiyor. İşlemler bittikten sonra yukarı satırlara tekrar dönüp kontrol edip birkaç yeri değiştirmem gerekebiliyor.Bazende satırları tek tek denemem gerekiyor buda herseferinde tekrar tekrar makro çalıştırmamı gerektiriyor.

Makro kullanmak istemeyişimin bir sebebi de Makro kullandıktan sonra excelde undo/geri al yapasmıyorsunuz. Buda benim için ayrı bir dezavantaj.

C2:

[/FONT]
[FONT=Lucida Console][/FONT] 
[FONT=Lucida Console]=IF(ROWS($E$1:E2)>MATCH(9.99999999999999E+307,$B$1:B1),[/FONT]
[FONT=Lucida Console]    SUM(A2,IF(B2="",C1,0)),[/FONT]
[FONT=Lucida Console]    "")

[/FONT]
[FONT=Lucida Console][SIZE=1][B]=EĞER(SATIRSAY($E$1:E2)>KAÇINCI(9,99999999999999E+307;$B$1:B1);[/B][/SIZE][/FONT]
[FONT=Lucida Console][SIZE=1][B]      TOPLA(A2;EĞER(B2="";C1;0));[/B][/SIZE][/FONT]
[FONT=Lucida Console][SIZE=1][B]      "")[/B][/SIZE]

 

[wortex]

İşte Budur !!! Sn a.akyurek çok teşekkürler.Sistem çalışıyor.

Formülün can alan kısmı TOPLA(A2;EĞER(B2="";C1;0)) bölümü sanırım. Topla içine böyle eğer yazıldığını ilk defa görüyorum ( ya iki gün oldu foruma gireli neler öğrendim neler , Allah bu forumdan ve bu foruma can veren sizlerden razı olsun )

SATIRSAY($E$1:E2)>KAÇINCI(9,99999999999999E+307;$B$1:B1) sınaması gereklimi. Herdurumda yanlış dönüyor ve TOPLA(A2;EĞER(B2="";C1;0)) kısmı çalışıyor. Bu sınamaya neden ihtiyaç duydunuz ?

 

[a.akyurek]

İşte Budur !!! Sn a.akyurek çok teşekkürler.Sistem çalışıyor.

Formülün can alan kısmı TOPLA(A2;EĞER(B2="";C1;0)) bölümü sanırım. Topla içine böyle eğer yazıldığını ilk defa görüyorum ( ya iki gün oldu foruma gireli neler öğrendim neler , Allah bu forumdan ve bu foruma can veren sizlerden razı olsun )

SATIRSAY($E$1:E2)>KAÇINCI(9,99999999999999E+307;$B$1:B1) sınaması gereklimi. Herdurumda yanlış dönüyor ve TOPLA(A2;EĞER(B2="";C1;0)) kısmı çalışıyor. Bu sınamaya neden ihtiyaç duydunuz ?

Haklısın...

=TOPLA(A2;EĞER(B2="";C1;0))

yeterli.

 

[wortex]

Tekrar teşekkürler