Topla.Çarpım Makrosunda Düzenleme

[1Al2Ver]

Merhaba,

Ek'li dosyadaki makroyu kısaltarak düzenlemek istiyorum,

Teşekkür ederim.

 

[Ömer]

Merhaba,

Ortalama Fiyatın hesaplaması nedir? Buradaki istediğinizi anlayamadım.
Diğer istediğiniz için:

Sub TABLO()

    Dim i As Long
    
    Sheets("TABLO").Select
    Range("C4:E" & Rows.Count).ClearContents
    
    For i = 4 To Cells(Rows.Count, "B").End(xlUp).Row
        Cells(i, "C") = Evaluate("=SUMPRODUCT((Veriler!C3:C3000=" & Cells(i, "B").Address() & ")" & _
            "*(Veriler!B3:B3000>=B1)*(Veriler!B3:B3000<=D1)*(Veriler!D3:D3000))")
        Cells(i, "D") = Evaluate("=SUMPRODUCT((Veriler!C3:C3000=" & Cells(i, "B").Address() & ")" & _
            "*(Veriler!B3:B3000>=B1)*(Veriler!B3:B3000<=D1)*(Veriler!F3:F3000))")
        Cells(i, "E") = Cells(i, "D") / Cells(i, "C")
    Next i
 
End Sub

.

 

[1Al2Ver]

Ömer bey merhaba,

Öncelikle çözüm için teşekkür ederim.

Ortalama Fiyat, Tablo sayfasındaki E kolonu ,

E4 için =D4/C4,

Bunu formülle de hallede bilirim, makrosunu merak ettiğim sormuştum.

Tekrar teşekkürler.

 

[Ömer]

#2 numaralı mesajdaki kodu güncelledim.

.

 

[1Al2Ver]

Ömer bey, tekrar merhaba,

Çok teşekkür ederim, sağ olun.

Saygılarımla.