1 sayfadan 1. sayfa

Makro ile Toplama İşlemi

İletiTarih: 16 May 2020 20:44
nihatra
Kolay gelsin.
Ekteki dosyadaki makro ile toplama işlemini nasıl yapabiliriz.
Teşekkürler

Cevap: Makro ile Toplama İşlemi

İletiTarih: 16 May 2020 21:06
yerbakili
İyi çalışmalar.

Kod: Tümünü seç
For i = 7 To 265 Step 5
a = a + Sayfa1.Cells(i, 1)
b = b + Sayfa1.Cells(i + 1, 1)
c = c + Sayfa1.Cells(i + 2, 1)
d = d + Sayfa1.Cells(i + 3, 1)
e = e + Sayfa1.Cells(i + 4, 1)
Next i

Sayfa1.Cells(267, 1) = Format(a, "0.00")
Sayfa1.Cells(268, 1) = Format(b, "0.00")
Sayfa1.Cells(269, 1) = Format(c, "0.00")
Sayfa1.Cells(270, 1) = Format(d, "0.00")
Sayfa1.Cells(271, 1) = Format(e, "0.00")

Cevap: Makro ile Toplama İşlemi

İletiTarih: 16 May 2020 21:30
nihatra
Teşekkürler.diğer sütünların tplamını nasıl alabilirim.

Cevap: Makro ile Toplama İşlemi

İletiTarih: 16 May 2020 21:56
yerbakili
Kod: Tümünü seç
For i = 7 To 265 Step 5
a = a + Sayfa1.Cells(i, 1)
b = b + Sayfa1.Cells(i + 1, 1)
c = c + Sayfa1.Cells(i + 2, 1)
d = d + Sayfa1.Cells(i + 3, 1)
e = e + Sayfa1.Cells(i + 4, 1)

f = f + Sayfa1.Cells(i, 2)
g = g + Sayfa1.Cells(i + 1, 2)
h = h + Sayfa1.Cells(i + 2, 2)
j = j + Sayfa1.Cells(i + 3, 2)
k = k + Sayfa1.Cells(i + 4, 2)
Next i

Sayfa1.Cells(267, 1) = Format(a, "0.00")
Sayfa1.Cells(268, 1) = Format(b, "0.00")
Sayfa1.Cells(269, 1) = Format(c, "0.00")
Sayfa1.Cells(270, 1) = Format(d, "0.00")
Sayfa1.Cells(271, 1) = Format(e, "0.00")

Sayfa1.Cells(267, 2) = Format(f, "0.00")
Sayfa1.Cells(268, 2) = Format(g, "0.00")
Sayfa1.Cells(269, 2) = Format(h, "0.00")
Sayfa1.Cells(270, 2) = Format(j, "0.00")
Sayfa1.Cells(271, 2) = Format(k, "0.00")


Bu şekilde diğer sütunlar için de toplamları alabilirsiniz.

Cevap: Makro ile Toplama İşlemi

İletiTarih: 16 May 2020 22:00
nihatra
Teşekkürler.Allah razı olsun.

Cevap: Makro ile Toplama İşlemi

İletiTarih: 16 May 2020 22:21
yerbakili
Allah sizden de razı olsun. Hayırlı akşamlar.