TOPLA.ÇARPIM formülünü makroya bağlama

[Yesilyurtlu]

=TOPLA.ÇARPIM((Tüm!$A$3:$A$502=B6)*(Tüm!$B$3:$B$502=D6)*(Tüm!$F$3:$F$502))

=TOPLA.ÇARPIM((Tüm!$A$3:$A$502=B6)*(Tüm!$B$3:$B$502=D6)*(Tüm!$H$3:$H$502))

formülllerini makro ile düğmeye atamak için yardımcı olabilir misiniz?

Teşekkür Ederim.

 

[asi_kral]

=TOPLA.ÇARPIM((Tüm!$A$3:$A$502=B6)*(Tüm!$B$3:$B$502=D6)*(Tüm!$F$3:$F$502))

=TOPLA.ÇARPIM((Tüm!$A$3:$A$502=B6)*(Tüm!$B$3:$B$502=D6)*(Tüm!$H$3:$H$502))

formülllerini makro ile düğmeye atamak için yardımcı olabilir misiniz?

Teşekkür Ederim.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub formülcükler_makroya_1967()
'Konu       :   Formülleri Makroya Çevirme
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Long, _
a As Long, b As Long
Set asi = Sheets("Tüm")
Application.ScreenUpdating = False
a = 0: b = 0
For kral = 3 To asi.Cells(502, "A").End(xlUp).Row
If asi.Cells(kral, "A") = Range("B6") And _
asi.Cells(kral, "B") = Range("D6") Then
a = a + asi.Cells(kral, "F")
b = b + asi.Cells(kral, "H")
End If: Next
Range("A1") = a: Range("A2") = b
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

A1 hücresine 1. Formül karşılığını
A2 hücresine 2. formül karşılığını yazar.

 

[Yesilyurtlu]

asi_kral_1967
Ellerine Sağlık. Güzel Olmuş.
Benim hatamdan kaynaklanan bir eksik bilgilendirme yapmışım.
A1 den başlayarak A300' e kadar A2 de B2'den başlayarak B300' ekadar olacak şekilde düzenlenebilir mi?

Kusura bakma vallahi hata benim. ÖZÜR DİLERİM

 

[asi_kral]

Anlayamadım. Lütfen daha açık anlatır mısınız_?

 

[Yesilyurtlu]

Anlatmak istediğim konu kısaca
=TOPLA.ÇARPIM((Tüm!$A$3:$A$502=B6)*(Tüm!$B$3:$B$50 2=D6)*(Tüm!$F$3:$F$502)) formülü ile sadece bir hücre için yapabiliyorduk.

Formül B6 hücresine ve D6 hücresine bakıyor. Bu formülü B6:B300 hücresine D6300 hücresine baksın E6:E300 aralığında ki hücrelere yazsın.

=TOPLA.ÇARPIM((Tüm!$A$3:$A$502=B6)*(Tüm!$B$3:$B$50 2=D6)*(Tüm!$H$3:$H$502))

sadece B6 hücresine ve D6 hücresine bakıyor bu formülü B6:B300 hücresine D6300 hücresine baksın L6:L300 aralığında ki hücrelere yazsın.
Bir hücre için değilde tüm sütun için düzenleyebilir misiniz?

 

[asi_kral]

Anlatmak istediğim konu kısaca
=TOPLA.ÇARPIM((Tüm!$A$3:$A$502=B6)*(Tüm!$B$3:$B$50 2=D6)*(Tüm!$F$3:$F$502)) formülü ile sadece bir hücre için yapabiliyorduk.

Formül B6 hücresine ve D6 hücresine bakıyor. Bu formülü B6:B300 hücresine D6300 hücresine baksın E6:E300 aralığında ki hücrelere yazsın.

=TOPLA.ÇARPIM((Tüm!$A$3:$A$502=B6)*(Tüm!$B$3:$B$50 2=D6)*(Tüm!$H$3:$H$502))

sadece B6 hücresine ve D6 hücresine bakıyor bu formülü B6:B300 hücresine D6300 hücresine baksın L6:L300 aralığında ki hücrelere yazsın.
Bir hücre için değilde tüm sütun için düzenleyebilir misiniz?

İnanın anlamadım dosya ekler misiniz_?