Makro ile topla çarpım

[byfika]

Merhabalar,
USERFORM da ADI SOYADI ve KALAN başlıkları altındaki kısımda;
COMBOBOX ile Sayfa1 den adı soyadı seçilecek, isim seçildiği anda veya GÖSTER butonuna tıklandığında , sayfa2 de B sütununda bir veya daha fazla aynı isimdekinin KALAN kısımlarını TOPLATIP TEXTBOX a yazdırılması nasıl yapılabilinir. Örnek dosyada açıklama var. TOPLA ÇARPIM veya başka bir şekilde olabilir.
Bilgi için teşekkürler

 

[Orion1]

Buyurun.

Dim s2 As Worksheet
Set s2 = Sheets("Sayfa2")
TextBox1.Value = WorksheetFunction.SumIf(s2.Range("B2:B" & Rows.Count), ComboBox1.Value, s2.Range("H2:H" & Rows.Count))

 

[byfika]

Evren bey, elinize beyinize sağlık çok teşekkürler, saygılar