• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Çok sayıda hücre ve sayfada toplama

  • Konuyu Başlatan Konuyu Başlatan efkavasi
  • Başlangıç tarihi Başlangıç tarihi
  • Görüntülenme 734
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

efkavasi

Yeni Üye
Katılım
18 Ağu 2022
Mesajlar
16
Aldığı beğeni
1
Excel V
Office 2016 TR
Konu Sahibi
Geçen gün açtığım konu çözülmüştü. O konu özelinde aynı ve farklı sayfalardaki birden çok hücreyi en basit yolla nasıl toplama yapabilirim.
Sub Makro1()
For e = 1 To Sheets.Count
Sheets(e).Activate
If Application.CountIf(Cells, "verilen") > 0 Then
For i = 1 To Application.CountIf(Cells, "verilen")
Cells.Find(What:="verilen", After:=ActiveCell, SearchDirection:=xlNext).Activate
ActiveCell.Offset(0, 1).Value = 100
Next
End If
Next
End Sub

Yukarıdaki koda göre değer girilen hücrelerin toplamını başka bir sayfadaki hücreye toplam olarak yazdırmak istiyorum. Biraz denedim ama yapamadım. Şimdiden teşekkür ederim.
 
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
En son sayfada
Alicimri' Alıntı:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
satırlarını
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
şeklinde değiştirin.
Not: sayfa adını ve hücre adresini kendinize göre değiştirin
Genişletmek için tıkla...
cevap için teşekkürler ama sadece 1 kez toplama yapıyor. İlk yazmış olduğunuz koddaki "verilen" adındaki hücre sayısı kadar toplama yapmasını istiyorum. For i = 1 To Application.CountIf(Cells, "verilen") bu satır diyelim ki 150 tane verilen isiminde hücre buluyor o bulduğu hücrelerin yanındaki hücre toplamlarını bulmak istiyorum.
 
Olumlu oy 0 Negatif oyla
Denediniz mi?
Daha önce ki kodda değişiklik yapacaksınız Hem yazacak hem de yazdığı kadar toplam değişkenine 100 ilave edecek. sonucu da belirteceğiniz sayfaya yazacak.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Alicimri' Alıntı:
Kusura bakmayın HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
satırını ikinci Next ten sonraya yapıştırın.
Genişletmek için tıkla...
deniyorum hatta kodun son hali şu şekilde
[code
For e = 1 To Sheets.Count
Sheets(e).Activate
If Application.CountIf(Cells, "verilen") > 0 Then
For i = 1 To Application.CountIf(Cells, "verilen")
Cells.Find(What:="verilen", After:=ActiveCell, SearchDirection:=xlNext).Activate
ActiveCell.Offset(0, 1).Value = 1
toplam = taplam + ActiveCell.Offset(0, 1).Value
Next
End If
Next
Sheets("SON").Range("B2").Value = toplam
/code]

Deneme için sayfaları sildim tek sayfaya indirdim ve o sayfada yaklaşık "verilen" isminde hücre sayısı 40 hücre değerleri de 1 yaptım. Son isimli sayfanın B2 hücresinde 40 yazması lazım ama sadece 1 yazıyor.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
For e = 1 To Sheets.Count
Sheets(e).Activate
If Application.CountIf(Cells, "verilen") > 0 Then
For i = 1 To Application.CountIf(Cells, "verilen")
Cells.Find(What:="verilen", After:=ActiveCell, SearchDirection:=xlNext).Activate
ActiveCell.Offset(0, 1).Value = 10
toplam = toplam + ActiveCell.Offset(0, 1).Value
Next
Sheets("SON").Range("B2").Value = toplam
End If
Next

toplam yerine taplam yazmışım birde son sayfaya yazan kodu ilk nextin arkasına yapıştırdım sanırım oldu. Çok teşekkürler
 
Olumlu oy 0 Negatif oyla
son sayfa da verlen kontrolü yapmıyor toplamları yazıyor örnek dosya ekte.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Doğru olan ikinci next ten sonra olması birinci next ten sonra olursa her sayfa da verilen buldukça tekrar tekrar son sayfaya toplam yazıyor
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst