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
[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.