• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Döngü ile toplam alma

  • Konbuyu başlatan Konbuyu başlatan seddur
  • Başlangıç tarihi Başlangıç tarihi
Katılım
12 Nisan 2012
Mesajlar
533
Excel Vers. ve Dili
Microsoft office professional plus 2019
Merhaba.Ekran alıntısında görünen tabloda sutunların toplamlarını döngü kullanarak almak istiyorum.Yardımcı olabilirseniz sevinirim.
 

Ekli dosyalar

  • Ekran.2.PNG
    Ekran.2.PNG
    22.9 KB · Görüntüleme: 9
Merhaba,
Döngü olmadı ama idare edin gaarii :)

Kod:
Sub Makro1()
    Range("B6").FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    Range("B6:Q6").FillRight
    Range("B13").FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    Range("B13:Q13").FillRight
End Sub
 
Tamamdır çalışıyor yalnız tabloda görüldüğü gibi hücrelerin sol kenarlarında işaretçikler oluşuyor.Önlemenin bir yolu var mı?
 

Ekli dosyalar

  • Ekran.3.PNG
    Ekran.3.PNG
    23.1 KB · Görüntüleme: 5
Merhaba,
O işaretçiklerin bir anlamı var, seçin hücreleri neymiş bakın, önemsizse yok sayın deyin.
Kurtulursunuz.
 
Tamam sorunu çözdüm.Yardımcı olduğunuz için Teşekkür ederim.
 
Geri
Üst