şimdi o sütunda ne varsa sil.. 3. hücreye =a1+a2+a3 yaz ve çık sonra b1 b2 ve b3 hücrelerini mouse ile seç seçtikten sonra seçimin sağ alt kşesinde çıkacak noktaya çift tıkla.. sürüklemeyeceksin.. ekte gstermeye çalıştım... https://www.dropbox.com/s/nqowydih5iorlog/11. jpg?dl=0 SS_Thunder tarafından 15/Tem/16 21:37 tarihinde düzenlenmiştir

En kolayı bi makro tanımlarsın hocam, aklıma ilk gelen yol bu

Arkadaşlar merhaba, excelde bir sütunumda 2000 satır boyunca 1,5,8,13,5,9... şeklinde karışık şekilde bulunan sayılar var. Bu sütunda ilk 3 satır, 3.-6. satır, 6.-9. satırlar arasındaki hücrelerin sayılarının toplamını elde etmek istiyorum. Yani verdiğim 1,5,8,13,5,9 rneğinde 14 ve 27 sayılarını bulmam gerekiyor. Bunu hangi komutla hangi formülle yapabilirim excel yardımda bir türlü istediğimi yapamadım yardımcı olabilecek var mı? theonur tarafından 15/Tem/16 14:16 tarihinde düzenlenmiştir gbt vereyim?

Hocam nasıl toplama yaptırcaksın ama oda nemli yani atıyorum aşağıdaki tablo gibi bişi olması yeterlimi, excel calısınca arkadan bir makro calısıp sonucları bu şekilde yazması kafi mi yoksa sen ekstradan bişi yapmak istiomusun A B C 1 1 2 5 TOPLAM : 14 3 8 4 13 5 5 TOPLAM : 27 6 9 7

şimdi o sütunda ne varsa sil.. 3. hücreye =a1+a2+a3 yaz ve çık sonra b1 b2 ve b3 hücrelerini mouse ile seç seçtikten sonra seçimin sağ alt kşesinde çıkacak noktaya çift tıkla.. sürüklemeyeceksin.. ekte gstermeye çalıştım... https://www.dropbox.com/s/nqowydih5iorlog/11. jpg?dl=0 bu çok kolay olmuş üstat biz zor seviyoruz :D radres tarafından 15/Tem/16 22:17 tarihinde düzenlenmiştir valar morghulis...

hocam yarım yamalak vba bilgimle verdiğin rneğe gre şle bişi yaptım, muhtemelen işini grecektir Sub theonur Dim iDoluHucre As Integer, i As Integer, j As Integer, toplam As Double iDoluHucre = WorksheetFunction. CountA(Range("a2:a65536")) + 1 'A1 de sayılar yaziyi o yüzden +1 i = 2 ' A1de başlıklar olmasından türü 2den baslatıyoruz j = 1 Do While i <= iDoluHucre toplam = toplam + Cells(i, 1). Value If j = 3 Then Cells(i, 2). Value = toplam j = 0 toplam = 0 End If i = i + 1 j = j + 1 Loop End Sub Hocam çok teşekkür ederim işimi çok kolaylaştırdı, ellerine sağlık :) gbt vereyim?

belemi? edit : 1-3 aralığı, 4-6 aralığı ; 7-9 aralığı gibisinden bi toplam için mouse ile seçip aşağı sürükletme tek başına işe yarmıyor... beceremedim yada... radres tarafından 15/Tem/16 20:48 tarihinde düzenlenmiştir valar morghulis...

makrosuzda kolay bi yntem var b sütununda 3. satıra =A1+A2+A3 yaz, sonra b sütununda 1. 2. ve 3. satırı mouse ile seç ve seçili hücrelerin sağ alt kşesinde küçük siyah bi nokta olur onu çift tıkla :) umarım anlatabilmişimdir.. olay basit yoksa...

abi sorunu anlamadim, excelde gostersene? zor bisey gibi durmuyo black implies white, self implies other, life implies death.

hocam yarım yamalak vba bilgimle verdiğin rneğe gre şle bişi yaptım, muhtemelen işini grecektir Sub theonur Dim iDoluHucre As Integer, i As Integer, j As Integer, toplam As Double iDoluHucre = WorksheetFunction. CountA(Range("a2:a65536")) + 1 'A1 de sayılar yaziyi o yüzden +1 i = 2 ' A1de başlıklar olmasından türü 2den baslatıyoruz j = 1 Do While i <= iDoluHucre toplam = toplam + Cells(i, 1). Value If j = 3 Then Cells(i, 2). Value = toplam j = 0 toplam = 0 End If i = i + 1 j = j + 1 Loop End Sub

Şu şekilde rnekledim hocam. gbt vereyim?