Toplam Tutar-String'i değerlendirme

[darkness34]

Merhabalar,

Şöyle bir işlemi nasıl gerçekleştiririm? Desteğinizi rica ederim.

Bir liste var. Kolon B de evet veya hayır yazılıdır.

Eğer kolon b de evet yazıyorsa, C kolonunda bulunan tutarları toplar ve A1 e toplam tutarı yazar.

eğer kolon b de "hayır" yazıyorsa,C kolonuna bulunan toplam tutarı toplar ve B1'e toplam tutarı yazar.

Amaç tüm excel de bulunan evet ve hayır ların toplam tutarını hesaplamak

 

[Murat OSMA]

Özet tabloyu deneyiniz.

 

[Emir Hüseyin Çoban]

Merhabalar,
eğer kolon b de "hayır" yazıyorsa,C kolonuna bulunan toplam tutarı toplar ve B1'e toplam tutarı yazar.

. . .

B1 de Evet/Hayır yazmıyor mu ?

. . .

 

[darkness34]

b1 de evet ya da hayır yazıyor. dogrudur.

 

[Emir Hüseyin Çoban]

. . .

Hayırların toplamını B1' e mi yazacak yinede ?

. .

 

[darkness34]

evet lerin toplamı A1
hayırların toplamı B1
dogrudur.

 

[Emir Hüseyin Çoban]

. . .

Yeni bir modül ekleyip, aşağıdaki kodları yapıştırın.

Sub kod()

    E = WorksheetFunction.SumIf(Range("B:B"), "Evet", Range("C:C"))
    H = WorksheetFunction.SumIf(Range("B:B"), "Hayır", Range("C:C"))
    Range("A1") = E
    Range("B1") = H

End Sub

. . .

 

[darkness34]

h leri yapıyor ama e leri yapmıyor

 

[darkness34]

su anda sorunu cozdum. Son olarak sunu nasıl yaparım acaba? Tabloda ornegin evet yazdıgımda otomatik olarak toplama eklenmesi. Su anda run sub yaptıgımda degisiyor

 

[Emir Hüseyin Çoban]

su anda sorunu cozdum. Son olarak sunu nasıl yaparım acaba? Tabloda ornegin evet yazdıgımda otomatik olarak toplama eklenmesi. Su anda run sub yaptıgımda degisiyor

. . .

Şöyle bir örnek tablomuz olsun.

Yukarıdaki kodları ilk çalıştırdığınızda Sonuçlar
E: 7
H: 14

B1 deki Evet/Hayır verisini sildiğimiz için

İkinci kez çalıştırdığınızda Sonuçlar
E: 6
H: 14

olacaktır. Farkındasınız değil mi ?

. . .

 

[darkness34]

evet dogru calisiyor. Farkindayim. tam olarak bunu istiyorum .yani macronun otomatik olarak bir hücreyi degistigimde bu makro otomatik olarak tekrar calisması amacım

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim E      As Variant
    Dim H      As Variant
    On Error Resume Next
    Application.EnableEvents = False

    If Intersect(Target, [B1:C65536]) Is Nothing Then Exit Sub

    E = WorksheetFunction.SumIf(Range("B:B"), "Evet", Range("C:C"))
    H = WorksheetFunction.SumIf(Range("B:B"), "Hayır", Range("C:C"))
    Range("A1") = E
    Range("B1") = H

    Application.EnableEvents = True
End Sub

Formüller ile yapmak isterseniz.
A1 için

=ETOPLA(B2:B65536;"Evet";C2:C65536)

B1 için

=ETOPLA(B2:B65536;"Hayır";C2:C65536)

. . .

 

[darkness34]

. . .

Çalışma sayfasının kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim E      As Variant
    Dim H      As Variant
    On Error Resume Next
    Application.EnableEvents = False

    If Intersect(Target, [B1:C65536]) Is Nothing Then Exit Sub

    E = WorksheetFunction.SumIf(Range("B:B"), "Evet", Range("C:C"))
    H = WorksheetFunction.SumIf(Range("B:B"), "Hayır", Range("C:C"))
    Range("A1") = E
    Range("B1") = H

    Application.EnableEvents = True
End Sub

Formüller ile yapmak isterseniz.
A1 için

=ETOPLA(B2:B65536;"Evet";C2:C65536)

B1 için

=ETOPLA(B2:B65536;"Hayır";C2:C65536)

. . .

toplama islemini onceden verdiginiz komutlarla gerceklestirmistim. Cell de bir degisklik oldugunda otomatik diger yazdıgınız komutların calısması için ne yapmak gerek?

 

[Emir Hüseyin Çoban]

. . .

Call Makroİsmi

. . .