[Yardım]  Makro ile toplama

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

Makro ile toplama

İleti#1)  policeman » 12 Mar 2019 19:56

Merhaba..
Ekteki tabloda belirttiğim boyalı sütunlara toplamaları makro ile yaptırabilirmiyiz..
Kolay gelsin..
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
policeman
Yeni Başlamış
 
Adı Soyadı:Şakir ÖZKAN
Kayıt: 19 Oca 2009 00:22
Konum: İstanbul
Meslek: Emekli Memur
Yaş: 60
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: G.O.Paşa/İstanbul

Cevap: Makro ile toplama

İleti#2)  ege4564 » 12 Mar 2019 20:15

Ekte kontrol ediniz
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ege4564
Yeni Başlamış
 
Kayıt: 24 Şub 2019 01:59
Meslek: Serbest
Yaş: 29
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Makro ile toplama

İleti#3)  policeman » 12 Mar 2019 20:32

Sn. ege4564
İlginize teşekkürler..
Olayı tam anlatamamışım..
Önce;
X1 ve X13 sütunlarındaki ALİ sütununda satırlardaki sayıların toplamını ARA TOPLAMLAR sütunundaki ALİ sütunundaki satıra,
X1 ve X13 sütunlarındaki CAN sütununda satırlardaki sayıların toplamını ARA TOPLAMLAR sütunundaki CAN sütunundaki satıra,
X1 ve X13 sütunlarındaki ZEKİ sütununda satırlardaki sayıların toplamını ARA TOPLAMLAR sütunundaki ZEKİ sütunundaki satıra,
Sonra;
ARA TOPLAMLAR sütunundaki toplamları GENEL TOPLAM sütunundaki ilgili satıra otomatik yazdırmak istiyorum..
Kolay gelsin..
Kullanıcı avatarı
policeman
Yeni Başlamış
 
Adı Soyadı:Şakir ÖZKAN
Kayıt: 19 Oca 2009 00:22
Konum: İstanbul
Meslek: Emekli Memur
Yaş: 60
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: G.O.Paşa/İstanbul

Cevap: Makro ile toplama

İleti#4)  Vedat ÖZER » 13 Mar 2019 08:43

Merhaba,

Aşağıdaki kodu deneyebilir misiniz.

Kod: Tümünü seç
Sub topla()

son_satir = Range("O65536").End(xlUp).Row
Range("j4:m" & Rows.Count).ClearContents
   
     For i = 4 To son_satir

     Range("k" & i) = WorksheetFunction.SumIf(Range("o2:zz2"), Range("K2"), Range("o" & i & ":zz" & i))
     Range("l" & i) = WorksheetFunction.SumIf(Range("o2:zz2"), Range("l2"), Range("o" & i & ":zz" & i))
     Range("m" & i) = WorksheetFunction.SumIf(Range("o2:zz2"), Range("m2"), Range("o" & i & ":zz" & i))
     Range("j" & i) = Range("k" & i) + Range("l" & i) + Range("m" & i)
   
     Next
   
MsgBox "İşlem Tamam"
End Sub
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

vedatozer@outlook.com
Vedat ÖZER
Forum Moderatörü
 
Adı Soyadı:vedat özer
Kayıt: 12 Haz 2014 15:26
Konum: ANTALYA / KEMER
Meslek: MUHASEBE
Yaş: 28
İleti: 661
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

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

Cevap: Makro ile toplama

İleti#5)  policeman » 13 Mar 2019 10:53

Sn. Vedat ÖZER
Debug hatası verdi..
Kullanıcı avatarı
policeman
Yeni Başlamış
 
Adı Soyadı:Şakir ÖZKAN
Kayıt: 19 Oca 2009 00:22
Konum: İstanbul
Meslek: Emekli Memur
Yaş: 60
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: G.O.Paşa/İstanbul

Cevap: Makro ile toplama

İleti#6)  Vedat ÖZER » 13 Mar 2019 11:05

Merhaba,

Ekteki dosyayı inceleyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

vedatozer@outlook.com
Vedat ÖZER
Forum Moderatörü
 
Adı Soyadı:vedat özer
Kayıt: 12 Haz 2014 15:26
Konum: ANTALYA / KEMER
Meslek: MUHASEBE
Yaş: 28
İleti: 661
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Makro ile toplama

İleti#7)  policeman » 13 Mar 2019 11:25

Sn. Vedat ÖZER
Benim kullandığım 2003 Excel, debug muhtemelen bu yüzden oluyor..
Birde kod butonsuz, otomatik olabilir mi?
Kullanıcı avatarı
policeman
Yeni Başlamış
 
Adı Soyadı:Şakir ÖZKAN
Kayıt: 19 Oca 2009 00:22
Konum: İstanbul
Meslek: Emekli Memur
Yaş: 60
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: G.O.Paşa/İstanbul

Cevap: Makro ile toplama

İleti#8)  Vedat ÖZER » 13 Mar 2019 13:35

Merhaba,

Sayfada belirli bir alanda değişiklik olduğunda çalışabilir. Aşağıdaki kodu sayfa kod bölümüne yapıştırıp deneyebilirsiniz. Kısas olarak A sütunu aldım.


Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a117:a65536")) Is Nothing Then
Call topla
End If
End Sub
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

vedatozer@outlook.com
Vedat ÖZER
Forum Moderatörü
 
Adı Soyadı:vedat özer
Kayıt: 12 Haz 2014 15:26
Konum: ANTALYA / KEMER
Meslek: MUHASEBE
Yaş: 28
İleti: 661
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

Cevap: Makro ile toplama

İleti#9)  policeman » 13 Mar 2019 14:05

Sn. Vedat ÖZER
Önceki kod ile birleştirmek mi lazım, anlayamadım; böyle çalıştıramadım..
Excel'im 2003 yoksa bundan dolayımı bilemedim..
Makro konusunda bilgim yok gibi..
Kullanıcı avatarı
policeman
Yeni Başlamış
 
Adı Soyadı:Şakir ÖZKAN
Kayıt: 19 Oca 2009 00:22
Konum: İstanbul
Meslek: Emekli Memur
Yaş: 60
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: G.O.Paşa/İstanbul

Cevap: Makro ile toplama

İleti#10)  policeman » 14 Mar 2019 15:15

Problemimi hala çözüme kavuşturamadım, yardım bekliyorum..
Kullanıcı avatarı
policeman
Yeni Başlamış
 
Adı Soyadı:Şakir ÖZKAN
Kayıt: 19 Oca 2009 00:22
Konum: İstanbul
Meslek: Emekli Memur
Yaş: 60
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: G.O.Paşa/İstanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot], Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe