Belli bir oranla artan hücrelerdeki sayıları toplama

[hilmi0707]

Arkadaşlar elimdeki bir tabloda d3;d17;d31........d2187 ye kadar olan her 14 hücrede bir sayılar var. Bunları kolay yönden nasıl toplayabilirim. Teşekkürler...

 

[Skorpiyon]

Sayın hilmi0707,

Sayfanıza 1 buton ve buton altına şu kodları ekleyin.

Sub Düğme1_Tıklat()
For a = 3 To 2187 Step 14
b = b + Cells(a, 4).Value
Next
MsgBox b
End Sub

 

[hilmi0707]

şaban hocam bu sayılar d sütununda. ben denemek için hepsine 100 verdim. toplamda 157 tane hücre var. toplamı 15700 olması gerekirken başka sayı çıkıyor. Bir de bunu belli bir hücreye yazdırmamız gerekiyor
İlgin için teşekkürler

 

[Skorpiyon]

Sayın hilmi0707,

Kodu buraya yazdıktan 1 dk. sonra a sütununda toplama yaptığımı farkettim ve koddaki
b = b + cells(a,1) satırını
b = b + cells(a,4) olarak düzelttim.
Siz ben düzeltmeyi yapmadan yakalamışsınız sanırım

+ hangi hücreye yazdırmak istiyorsanız ,
Msgbox b satırı yerine
Örneğin A1 'e yazdıracaksanız
[A1] = b yazmanız yeterli.

 

[Merhum İdris SERDAR]

Arkadaşlar elimdeki bir tabloda d3;d17;d31........d2187 ye kadar olan her 14 hücrede bir sayılar var. Bunları kolay yönden nasıl toplayabilirim. Teşekkürler...

.

Buradaki örnek dosyayı inceleyin.

http://www.excel.web.tr/f122/satyr-sutun-atlayarak-toplama-t105988.html

.

 

[hilmi0707]

Teşekkürler arkadaşlar. Yurttaş hocam dosyanızda sadece N li sayılar var. Yani artan sayılar birbirinin katları şeklinde.

 

[Skorpiyon]

Halloldu mu ?

 

[Merhum İdris SERDAR]

Teşekkürler arkadaşlar. Yurttaş hocam dosyanızda sadece N li sayılar var. Yani artan sayılar birbirinin katları şeklinde.

.


Dosyamda "sadece" N'li sayılar yok. Pek çok şey var. Dosyayı Tekrar inceleyin.

Birinci satırdan başlamayan; x satırdan başlayıp N, 2N, 3N, olarak toplayan sayfaya bakın.

Sizinki de 3.satırdan başlayan ve 14'ün katları şeklinde devam ediyor....

.