Excel Örüntülü Toplama

Aşağıdaki VBA makroyu kullanabilirsiniz.

ALT+F11'e basın

Insert/Module tıklayın

Kodları yapıştırın

excele geçin. sonucu almak istediğiniz hücreye formülü girin

Örneğin:

=ptopla(D7;D100;7)

kullanımı:

=ptopla(başlangıç hücre;bitiş hücre;artış değeri)

Function PTopla(baslangic_hucre As Range, bitis_hucre As Range, artan As Long) As Double

  Dim n As Long

  For n = baslangic_hucre.Row To bitis_hucre.Row Step artan

    t = t + Cells(n, baslangic_hucre.Column)

  Next

  PTopla = t

End Function

Öncelikle Teşekkür ederim baya yardımcı olacak ama ben bu işlerden pek anlamıyom bu hatayı veriyor

BASIC çalışma zamanı hatası.

Değişken seçimlik değil.

nasıl düzeltebilirim yardımcı olursan sevinirim

bu satırda veriyor hatayı

For n = baslangic_hucre.Row To bitis_hucre.Row Step artan

kodlar bende normal çalışıyor. excel sürüm kaç?

yine de olabilecek hatalara karşı kodları düzenledim.

ayrıca çalışır dosyayı şuradan indirebilirsiniz

https://www.mediafire.com/file/g2tl66aqvqccebs/excel_ptopla_vba_makro.xlsm/file

'Mesut Akcan

'makcan@gmail.com

'https://www.youtube.com/mesutakcan

'https://mesutakcan.blogspot.com

Option Explicit

Function PTopla(baslangic_hucre As Range, bitis_hucre As Range, artan As Long) As Double

 Dim n As Long, t As Double

 For n = baslangic_hucre.Row To bitis_hucre.Row Step artan

  t = t + Cells(n, baslangic_hucre.Column).Value

 Next

 PTopla = t

End Function

C2 hücresine

=B2/1000

yazıp formülü aşağı çoğalt