Makro İle Toplama

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

Makro İle Toplama

İleti#1)  cerci07 » 10 May 2019 15:16

Merhaba,

Ekte yer alan dosyada vermiş olduğum örnekte, J sütununda yer alan değerin G sütununda yer alan değere eklenerek makro ile toplanması konusunda yardımınıza ihtiyacım var.

Teşekkürler
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cerci07
Yeni Başlamış
 
Kayıt: 30 Oca 2015 19:50
Meslek: işçi
Yaş: 36
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Cevap: Makro İle Toplama

İleti#2)  AhmetRasim » 10 May 2019 15:55

Merhabalar;
Toplanan değerlerin hangi sütuna yazılması gerektiğini belirtmemişsiniz.

Örnek olarak şu kodları çalışma sayfanızın kod bölümüne ekleyiniz.
G2:G6 aralığına veri girişi yaparsanız, hizasındaki J sütununda bulunan değer ile toplar ve K sütununa yazar.

Olması gereken işlem bu şekilde ise;
-Kod içerisindeki K harfini istediğiniz sütun harfi ile değiştiriniz.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G2:G6")) Is Nothing Then Exit Sub
Cells(Target.Row, "K").Value = Cells(Target.Row, "G") + Cells(Target.Row, "J")
End Sub
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 21:40
Konum: İstanbul
Meslek: Serbest
Yaş: 33
İleti: 1133
 
Cinsiyet: Bay

Cevap: Makro İle Toplama

İleti#3)  cerci07 » 10 May 2019 16:15

Toplam yine G sütununa yazacak. Makroyu çalıştırınca G2 de yazan "2" rakamını J2 de yazan "1" rakamı ile toplayıp yine G2 ye "3" yazacak. Aynı durum diğer satırlar içinde geçerli.
Kullanıcı avatarı
cerci07
Yeni Başlamış
 
Kayıt: 30 Oca 2015 19:50
Meslek: işçi
Yaş: 36
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Cevap: Makro İle Toplama

İleti#4)  AhmetRasim » 10 May 2019 19:35

Merhabalar;
İlgili Sayfanın kod bölüme ekleyiniz.
-G ile J sütunundaki değerleri toplayıp, G sütununa yazar.
Kod: Tümünü seç
Sub G_ile_J_sutununu_topla()
For x = 2 To Range("G65536").End(3).Row
Cells(x, "G").Value = Cells(x, "G").Value + Cells(x, "J").Value
Next x
End Sub
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 21:40
Konum: İstanbul
Meslek: Serbest
Yaş: 33
İleti: 1133
 
Cinsiyet: Bay

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

Cevap: Makro İle Toplama

İleti#5)  cerci07 » 11 May 2019 07:32

Elinize sağlık. Teşekkür ederim, istediğimde tam olarak böyleydi.
Kullanıcı avatarı
cerci07
Yeni Başlamış
 
Kayıt: 30 Oca 2015 19:50
Meslek: işçi
Yaş: 36
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Cevap: Makro İle Toplama

İleti#6)  AhmetRasim » 12 May 2019 23:37

Merhabalar;
Rica ederim.
Saygılarımla, iyi çalışmalar.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 21:40
Konum: İstanbul
Meslek: Serbest
Yaş: 33
İleti: 1133
 
Cinsiyet: Bay

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: cadriano, Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe