kısa yolla toplama

[incsoft]

=C5+C6+C9+C10+C13+C14+C17+C18+C21+C22+C25+C26+C29+C30+C33+C34+C37+C38+C41+C44+C47+C50+C53+C56+C59+C62+C63+C66+C69+C72+C75+C78+C81+C84+C87+C90+C93+C96+C99+C102+C105+C108+C111+C114+C117+C118+C121+C124+C127+C130+C133+C136+C139+C142+C145+C148+C149+C152+C155+C158+C161+C164+C167+C170+C173+C176+C179+C182+C183+C186+C189+C192+C195+C198+C199+C202+C203+C206+C207+C210+C211+C214+C215+C218+C219+C222+C223+C226+C227+C230+C231+C234+C235+C238+C239+C242+C243+C246+C247+C250+C251+C254+C255+C258+C259+C262+C263+C266+C267+C270+C271+C274+C275+C278+C279+C282+C283+C286+C287+C290+C291+C294+C295+C298+C299+C302+C303+C306+C307+C310+C311+C314+C315+C318+C319+C322+C323+C326+C327+C330+C331+C334+C335+C338+C339+C342+C343+C346+C347+C350+C351+C354+C355+C358+C359


Arkadaşlar yukarıdaki gibi bir formülüm var ve bu satır sayısı zamanla çoğalmaktadır.Bu gibi uzun toplama işlemini kısa yoldan yapmanın ne gibi metodları vardır? Aynı formülü TOPLA komutuyla da yapmış olsam uzun olmaktadır.

Teşekkürler.

 

[Murat OSMA]

Makro ile sonucu A1 hücresine bu şekilde yazdırabilirsiniz.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim topla#
    For i = 5 To Range("c65536").End(3).Row Step 2
        topla = topla + Cells(i, 3).Value + Cells(i + 1, 3).Value
   Next i
   Range("A1").Value = topla
End Sub[/SIZE][/FONT]

 

[ÖmerBey]

Verilerinizde bir standart olmadığı için bu haliyle kolay yol olmaz. Verilerinizin ilk başındaki düzen olsaydı (mod 4'te 1 ve 2 değerini veren satırlar) örnek olarak şöyle bir formül işinizi görebilirdi.

=TOPLA.ÇARPIM((MOD(SATIR($C$5:$C$359);4)>0)*(MOD(SATIR($C$5:$C$359);4)<3)*($C$5:$C$359))