[Yardım]  Vba Toplama hatası

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

Vba Toplama hatası

İleti#1)  nihatra » 07 Kas 2019 09:53

Aşağıdaki kodu çalıştırdığımda excel donuyor ve hata veriyor. Hata nerede acaba
Private Sub Worksheet_change(ByVal Target As Range)
If Intersect(Target, [B6:B9, B13:B19, C13:C19,H6:H8,I6:I8,H12:H13,I12:I13,H17:H18,I17:I18,B10,B20,C20,H9,H14,I14,I19]) Is Nothing Then Exit Sub
Range("B10").Value = WorksheetFunction.Sum(Range("B6:B9"))
Range("B20").Value = WorksheetFunction.Sum(Range("B13:B19"))
Range("C20").Value = WorksheetFunction.Sum(Range("C13:C19"))
Range("H9").Value = WorksheetFunction.Sum(Range("H6:H8"))
Range("I9").Value = WorksheetFunction.Sum(Range("I6:I8"))
Range("H14").Value = WorksheetFunction.Sum(Range("H12:H13"))
Range("I14").Value = WorksheetFunction.Sum(Range("I12:I13"))
Range("H19").Value = WorksheetFunction.Sum(Range("H17:H18"))
Range("I19").Value = WorksheetFunction.Sum(Range("I17:I18"))
Range("X4").Value = WorksheetFunction.Sum((Range("B10") + (Range("B20") + (Range("C20") + (Range("H9") + (Range("I9") + (Range("H14") + (Range("I14") + (Range("H19") + (Range("I19")))))))))))
End Sub
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 436
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: Vba Toplama hatası

İleti#2)  şahin » 07 Kas 2019 10:39

Kod: Tümünü seç
If Intersect(Target, [B6:B9, B13:B19, C13:C19,H6:H8,I6:I8,H12:H13,I12:I13,H17:H18,I17:I18,B10,B20,C20,H9,H14,I14,I19]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Range("B10").Value = WorksheetFunction.Sum(Range("B6:B9"))
Range("B20").Value = WorksheetFunction.Sum(Range("B13:B19"))
Range("C20").Value = WorksheetFunction.Sum(Range("C13:C19"))
Range("H9").Value = WorksheetFunction.Sum(Range("H6:H8"))
Range("I9").Value = WorksheetFunction.Sum(Range("I6:I8"))
Range("H14").Value = WorksheetFunction.Sum(Range("H12:H13"))
Range("I14").Value = WorksheetFunction.Sum(Range("I12:I13"))
Range("H19").Value = WorksheetFunction.Sum(Range("H17:H18"))
Range("I19").Value = WorksheetFunction.Sum(Range("I17:I18"))
Range("X4").Value = WorksheetFunction.Sum(Range("B10"), Range("B20"), Range("C20"), Range("H9"), Range("I9"), Range("H14"), Range("I14"), Range("H19"), Range("I19"))
Application.EnableEvents = True
End Sub
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 824
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Vba Toplama hatası

İleti#3)  nihatra » 07 Kas 2019 10:49

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

Cevap: Vba Toplama hatası

İleti#4)  nihatra » 07 Kas 2019 10:55

Çok özür dilerim birde şu konuda yardım edebilirmisizniz.
Sayfa3 A sütününda isimler var.Sayfa3 B sütünunda Branşları var. Combobox5 ile isimleri seçiyorum. Sayfa 1 deki TextBox3 e Sayfa3 B sütünunda Branşları nasıl getirebilirim.

Private Sub CommandButton1_Click()
If ComboBox5 = "" Then
MsgBox "lütfen adınızı soyadınızı bulunuz!!!"
Exit Sub
End If
Dim aranan As String, bul As Range
aranan = Sheets("Sayfa1").ComboBox5
Set bul = Sheets("Sayfa3").Range("a:a ").Find(aranan, Lookat:=xlWhole)
If Not bul Is Nothing Then
Sheets("Sayfa1").TextBox3 = bul
Else
Sheets("Sayfa1").TextBox3 = "Sonuç Bulunamadı."
End If
Set bul = Nothing

End Sub
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 436
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

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

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe