aynı marka adlarının fiyatlarını toplasın

[rastbin]

Merhabalar,

örnek vererek anlatayım.daha ayrıntılı olur gibi geliyor.

d sütununda fiat opel adlı markalar var.birden fazla tabii.

b sütununda da fiyatları var.

bir tane inputbox açılsın.opel gireyim.d sütununa baksın kaç tane opel var.sonra b sütununa geçsin.opel olanların fiyatlarını toplasın ve msgbox ile versin.

Sub makro()
say = Application.CountA([d:d])
market = InputBox("Marka Giriniz")
For i = 1 To say
If Range("d" & i) = market Then
MsgBox Range("d" & say)
End If
Next
End Sub

bu kodda toplama vs yok tabiide şunu yapmaya çalışmıştım.opel gireyim.bana opelin kaç tane olduğunu msgbox ile versin dedim.ama şu şekilde yapıyor.inputbox a renault giriyorum.d sütununa bakıyor.renodan kaç tane varsa ekrana d sütunun ilk markası olan bir markayı alıp reno kadar saydırıyor.

nasıl yapabilirim acaba.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Hesapla()

    Dim sor As String, say As Double, topla As Double

    sor = InputBox("Marka Giriniz", "Hesap İçin Seçim")
    
    If sor = "" Then Exit Sub

    say = WorksheetFunction.CountIf([D:D], sor)
    topla = WorksheetFunction.SumIf([D:D], sor, [B:B])
    
    MsgBox sor & " Adlı Marka:" & Chr(10) & _
        "Sayı: " & say & " Adet" & Chr(10) & "Toplamı: " & topla
    
End Sub

.

 

[rastbin]

Merhaba,

Bu şekilde deneyin.

Sub Hesapla()

    Dim sor As String, say As Double, topla As Double

    sor = InputBox("Marka Giriniz", "Hesap İçin Seçim")
    
    If sor = "" Then Exit Sub

    say = WorksheetFunction.CountIf([D:D], sor)
    topla = WorksheetFunction.SumIf([D:D], sor, [B:B])
    
    MsgBox sor & " Adlı Marka:" & Chr(10) & _
        "Sayı: " & say & " Adet" & Chr(10) & "Toplamı: " & topla
    
End Sub

.

çok teşekkür ederim,çalışıyor.
chr(13) ile chr(10) arasında bir fark varmıdır.