Satır Atlatarak Nasıl Toplama Yapabilirim?

[şeyşey1]

Arkadaşlar elimdeki tablodaki aşağıdaki hücrelerdeki verileri nasıl bir formülle toplatabilirim?

İngilizce EXCEL 2003 kullanıyorum.

A4'ten A570'e kadar gidiyor fakat satır atlaya atlaya gidiyor.

A4-A6-A8-A10.............A570

Benim yazdığım formülde =sum(a4 yazıp CTRL basılı tutup tek tek seçiyorum ama tahmin edersiniz çok uzun sürüyor ve bir yerde formül çok uzun diye uyarı veriyor.)


Şimdiden Teşekkürler.

 

[halit3]

Arkadaşlar elimdeki tablodaki aşağıdaki hücrelerdeki verileri nasıl bir formülle toplatabilirim?

İngilizce EXCEL 2003 kullanıyorum.

A4'ten A570'e kadar gidiyor fakat satır atlaya atlaya gidiyor.

A4-A6-A8-A10.............A570

Benim yazdığım formülde =sum(a4 yazıp CTRL basılı tutup tek tek seçiyorum ama tahmin edersiniz çok uzun sürüyor ve bir yerde formül çok uzun diye uyarı veriyor.)


Şimdiden Teşekkürler.

bunu denermisiniz.

Sub deneme()
deg = 0
For i = 4 To 570
deg = deg + CDbl(Sheets(ActiveSheet.Name).Cells(i, "A").Value)
i = i + 1
Next i
MsgBox "toplam   " & deg
End Sub

 

[Necdet]

Merhaba,

Fonksiyonlarla :

=TOPLA(EĞER(MOD(SATIR(A4:A570);2)=0;A4:A570))
=SUM(IF(MOD(ROW(A4:A570);2)=0;A4:A570))

Dizi formüldür, formülü yazdıktan sonra Ctrl+ÜstOk+Enter ile formül girişini bitiriniz.

 

[şeyşey1]

bunu denermisiniz.

Sub deneme()
deg = 0
For i = 4 To 570
deg = deg + CDbl(Sheets(ActiveSheet.Name).Cells(i, "A").Value)
i = i + 1
Next i
MsgBox "toplam   " & deg
End Sub

Arkadaşım verdiğin kodu nereye nasıl yazıcam

 

[Necdet]

bizim yanıt gümbürtüye mi gitti?

 

[şeyşey1]

Merhaba,

Fonksiyonlarla :

=TOPLA(EĞER(MOD(A4:A570;2)=0;A4:A570))
=SUM(IF(MOD(A4:A570;2)=0;A4:A570))

Dizi formüldür, formülü yazdıktan sonra Ctrl+ÜstOk+Enter ile formül girişini bitiriniz.

Arkadaşım teşekkürler verdiğin formülü uyguladım fakat
A4=1 A6=2 A8=3 A10=4 A12=5 Değerlerinde toplam 15 olması gerekirken 6 çıkıyor.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

=TOPLA.ÇARPIM((A4:A570)*(SATIR(A4:A570)=ÇİFT(SATIR(A4:A570))))

 

[Ali]

Yada

=TOPLA.ÇARPIM(--(...............)

şeklinde olabilir.


Not: formülde ;2 olan kısımı değiştirerek istediğiniz kadar satır atlatıp toplayabilirsiniz. 3 satır, 6 satır gibi

.

 

[şeyşey1]

merhaba

bu işinizi görür mü?

=TOPLA.ÇARPIM((A4:A570)*(SATIR(A4:A570)=ÇİFT(SATIR(A4:A570))))

Arkadaşım verdiğin formülü ingilizceye çevirip yazdım tam oldu çok teşekkür ederim

ÇİFT SATIRLAR İÇİN =SUMPRODUCT((D4602)*(ROW(D4602)=EVEN(ROW(D4602))))

TEK SATIRLAR İÇİN =SUMPRODUCT((D5603)*(ROW(D5603)=ODD(ROW(D5603))))


İlgilenen Tüm Arkadaşlara Sonsuz Teşekkürler.

 

[uzmanamele]

Arkadaşım verdiğin formülü ingilizceye çevirip yazdım tam oldu çok teşekkür ederim

ÇİFT SATIRLAR İÇİN =SUMPRODUCT((D4602)*(ROW(D4602)=EVEN(ROW(D4602))))

TEK SATIRLAR İÇİN =SUMPRODUCT((D5603)*(ROW(D5603)=ODD(ROW(D5603))))


İlgilenen Tüm Arkadaşlara Sonsuz Teşekkürler.

merhaba
siz syn Ali'nin önerdiği formülü kullanın, benimki doğru sonucu bulsa bile asıl formül onunki.

 

[Necdet]

Arkadaşım teşekkürler verdiğin formülü uyguladım fakat
A4=1 A6=2 A8=3 A10=4 A12=5 Değerlerinde toplam 15 olması gerekirken 6 çıkıyor.

Formülü doğrudan yazınca ROW() (SATIR()) fonksiyonunu yazmayı unutmuşum. Yukarıdaki formül düzeltildi.

 

[Ali]

Süleyman Bey, arkadaş sanırım bize teşekkürü layık görmemiş.
Başka faydalanacak arkadaşlar teşekkür edebilir.

.

 

[şeyşey1]

Sevgili ali nickli arkadaşım konuda yazdığım mesajları lütfen tekrar bakar mısın? Aşağıdaki mesajımda ilgilenen tüm arkadaşlara teşekkürler yazdım. Uzun zamandır forumlarda vakit geçiren biri olarak hiç bir zaman bana birşeyler katan birşeyler için emek veren insanlara teşekkür etmeden geçmem.

Tekrar tekrar konuya bakan ve ilgilenen arkadaşlar teşekkürler

arkadaşım verdiğin formülü ingilizceye çevirip yazdım tam oldu çok teşekkür ederim

çift satırlar için =sumproduct((d4:d602)*(row(d4:d602)=even(row(d4:d602))))

tek satırlar için =sumproduct((d5:d603)*(row(d5:d603)=odd(row(d5:d603))))


[sıze="2"]ilgilenen tüm arkadaşlara sonsuz teşekkürler.[/sıze]

 

[Ali]

Sizinki tam oldu derseniz, siz ne anlarsanız.Sanki diğerleri yanlış.Size daha esnek istediğiniz kadar satır atlatıp hesaplayan formülü yazıyoruz. Bu arada Ali nickim değil adım. İsmi küçük yazmak ayrı bir saygısızlık.

Sizin yazdığınız yazıyı zaten okudum ve bilerek o mesajı yazdım. Ama siz hala alıntı yaptığınıza göre tekrar tekrar anlamadığınızı düşünüyorum.


Not:Formül silinmiştir. Formülü ihtiyacı olan,değerli üyelere lazım olduğu zaman başka bir başlıkta veririm.

.



.

 

[şeyşey1]

Sizinki tam oldu derseniz, siz ne anlarsanız.Sanki diğerleri yanlış.Size daha esnek istediğiniz kadar satır atlatıp hesaplayan formülü yazıyoruz. Bu arada Ali nickim değil adım. İsmi küçük yazmak ayrı bir saygısızlık.

Sizin yazdığınız yazıyı zaten okudum ve bilerek o mesajı yazdım. Ama siz hala alıntı yaptığınıza göre tekrar tekrar anlamadığınızı düşünüyorum.


Not:Formül silinmiştir. Formülü ihtiyacı olan,değerli üyelere lazım olduğu zaman başka bir başlıkta veririm.

.



.

öncelikle adının Ali olduğunu bilemem belki oğlunun belki babanın adı o yüzden öyle yazdım ayrıca o mesajın tamamını büyük harfle yazdığım için forum otomatik hepsini küçük yazmış(istersen deneyebilirsin). Sana ve diğer arkadaşlara ayrı ayrı teşekkür etmediğim için özür dilerim.

Ne seninle nede bu forumdan herhangi biriyle ters düşmek istemem çünkü sonuçta herkes birşeyler öğrenmek için burada.

 

[uzmanamele]

öncelikle adının Ali olduğunu bilemem belki oğlunun belki babanın adı o yüzden öyle yazdım ayrıca o mesajın tamamını büyük harfle yazdığım için forum otomatik hepsini küçük yazmış(istersen deneyebilirsin). Sana ve diğer arkadaşlara ayrı ayrı teşekkür etmediğim için özür dilerim.

syn şeyşey,
syn Ali üstadlarımızdan biridir, kendisinden çok şey öğrendik ve öğrenmeyede devam ediyoruz.
bizler için önemli olan küçük bir teşekkür, başka bir beklentimiz asla olmaz.
teşekkür edip etmemenizde önemli değil. amacımız birilerine yardımcı olabilmenin mutluluğunu yaşamak. yardımcı olabildiğimizi de ancak teşekkür edildiğinde anlayabiliriz.
size ısrarla syn Ali'nin önerdiği formülü kullanmanızı söyledim, çünkü her durumda geçerli formül o formüldü.
siz işinizi gören formülü aldınız ama asıl formülü görmezden geldiniz, seçim sizin.
mesajın tamamını büyük harfle yazdığınızı söylüyorsunuz, oysa büyük harflerle yazılan mesajlar pek hoş karşılanmaz.
üye arkadaşlar her sitede olduğu gibi kendileri için bir kullanıcı adı seçerler, ister kendi adı olur ister dedesiniz. ne farkeder? önemli olan o adla hitap edilmesidir. ben size "şeyşey" demek yerine "negibibişey" desem doğru olur mu?

 

[şeyşey1]

syn şeyşey,
syn Ali üstadlarımızdan biridir, kendisinden çok şey öğrendik ve öğrenmeyede devam ediyoruz.
bizler için önemli olan küçük bir teşekkür, başka bir beklentimiz asla olmaz.
teşekkür edip etmemenizde önemli değil. amacımız birilerine yardımcı olabilmenin mutluluğunu yaşamak. yardımcı olabildiğimizi de ancak teşekkür edildiğinde anlayabiliriz.
size ısrarla syn Ali'nin önerdiği formülü kullanmanızı söyledim, çünkü her durumda geçerli formül o formüldü.
siz işinizi gören formülü aldınız ama asıl formülü görmezden geldiniz, seçim sizin.
mesajın tamamını büyük harfle yazdığınızı söylüyorsunuz, oysa büyük harflerle yazılan mesajlar pek hoş karşılanmaz.
üye arkadaşlar her sitede olduğu gibi kendileri için bir kullanıcı adı seçerler, ister kendi adı olur ister dedesiniz. ne farkeder? önemli olan o adla hitap edilmesidir. ben size "şeyşey" demek yerine "negibibişey" desem doğru olur mu?

Sayın arkadaşlar sizin ustalığınıza bilginize edecek lafım zaten yok.
İşim bitti haydi gideyim gibi bir tarzımda olmadı en son mesajımın sonuna ilgilenen tüm arkadaşlara teşekkürler diye yazdım zaten.Ayrıca lütfen bakın özürde diledim.

Diğer bir konuda dün o formül bana o kadar acele lazımdı ki doğru sonucu veren olunca genel bir cevap yazarak işime döndüm. Mesajı büyük harfle yazmamda bu yüzden.

Bu kadar kalp kırdığım için herkesten tekrar tekrar özür dilerim.

 

[yalovam77]

Aralıklı toplama

Merhaba üsdatlarım G8:G73 aralığında 3 atlayarak satırları toplamam lazım "=TOPLA(EĞER(MOD(SATIR(G8:G73)-10;3)=0;EĞER(ESAYIYSA(--G8:G73);--G8:G73;0))) formülü ile yapıyorum ama makro ile yapmak istiyorum. aşağıda Necdet Hocamın verdiği makroyu uyarlamaya çalıştım olmadı. yardımcı olabilirmisiniz. dosya ekte.


Sub deneme()
deg = 0
For i = 4 To 570
deg = deg + CDbl(Sheets(ActiveSheet.Name).Cells(i, "A").Value)
i = i + 1
Next i
MsgBox "toplam " & deg
End Sub

 

[ordulu82]

Yada

=TOPLA.ÇARPIM(--(...............)

şeklinde olabilir.


Not: formülde ;2 olan kısımı değiştirerek istediğiniz kadar satır atlatıp toplayabilirsiniz. 3 satır, 6 satır gibi

.

Üstadım formülü göremedim. rica etsem ekleyebilirmisiniz.