toplamını alsın

[dyrbkr]

Selamlar
sıralamanın bittiği satıra toplamını alsın yardım edebilirmisiniz

tşk ler

 

[Tarkan VURAL]

aktar makrosunun Next satırından sonra:

Range("b8").FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
Range("B13").FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Range("B20").FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"

kodlarını eklerseniz dediğiniz hücrelere toplamlarını alır.

Makro kaydet ile denemeler yapmanızı ve kaydedilen kodları incelemenizi öneririm.
Kolay gelsin.

 

[dyrbkr]

satırlar değişken olduğu için range diyemiyorum. c1 15 yerine 12 olursa kişi sayısı arttığı için direk hücre veremiyorum. Satır nerde bittiyse altına toplam alması gerekiyor

 

[Korhan Ayhan]

Linki inceleyiniz...

http://www.excel.web.tr/viewtopic.php?t=10091

 

[veyselemre]

[vb:1:3ba580665b]Sub aktar()
Dim x, s1, s2, sat, kriter
Set s1 = [Sayfa1]
Set s2 = [Sayfa2]
sat = 3
s2.Select
Range("a:b").ClearContents
kriter = [c1]
GoSub aktar1

kriter = [d1]
GoSub aktar1

kriter = [e1]
GoSub aktar1

Exit Sub
aktar1:
TOPLAM = 0
For x = 1 To s1.[a65536].End(3).Row
If s1.Cells(x, 1) = kriter Then
Cells(sat, 1) = s1.Cells(x, 2)
Cells(sat, 2) = s1.Cells(x, 3)
TOPLAM = TOPLAM + s1.Cells(x, 3)
sat = sat + 1
End If
Next
Cells(sat, 1) = "T O P L A M : " & kriter
Cells(sat, 2) = TOPLAM
sat = sat + 1
Return
End Sub[/vb:1:3ba580665b]

 

[dyrbkr]

teşekkürler çok sağolun