Makro ile Toplama İşlemi

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Makro ile Toplama İşlemi

İleti#1)  nihatra » 16 May 2020 20:44

Kolay gelsin.
Ekteki dosyadaki makro ile toplama işlemini nasıl yapabiliriz.
Teşekkürler
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 54
İleti: 449
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: Makro ile Toplama İşlemi

İleti#2)  yerbakili » 16 May 2020 21:06

İ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")
Kullanıcı avatarı
yerbakili
Siteye Alışmış
 
Adı Soyadı:Yasin ERBAKILI
Kayıt: 17 Tem 2009 00:26
Konum: ...
Meslek: Memur
Yaş: 32
İleti: 301
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Makro ile Toplama İşlemi

İleti#3)  nihatra » 16 May 2020 21:30

Teşekkürler.diğer sütünların tplamını nasıl alabilirim.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 54
İleti: 449
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: Makro ile Toplama İşlemi

İleti#4)  yerbakili » 16 May 2020 21:56

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.
Kullanıcı avatarı
yerbakili
Siteye Alışmış
 
Adı Soyadı:Yasin ERBAKILI
Kayıt: 17 Tem 2009 00:26
Konum: ...
Meslek: Memur
Yaş: 32
İleti: 301
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Makro ile Toplama İşlemi

İleti#5)  nihatra » 16 May 2020 22:00

Teşekkürler.Allah razı olsun.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 54
İleti: 449
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: Makro ile Toplama İşlemi

İleti#6)  yerbakili » 16 May 2020 22:21

Allah sizden de razı olsun. Hayırlı akşamlar.
Kullanıcı avatarı
yerbakili
Siteye Alışmış
 
Adı Soyadı:Yasin ERBAKILI
Kayıt: 17 Tem 2009 00:26
Konum: ...
Meslek: Memur
Yaş: 32
İleti: 301
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 3 misafir

Bumerang - Yazarkafe