makro ile otomatik toplama nasıl yapabilirim?

[pitsss]

kombi giriş çıkış sayfasındaki düğme1 e basınca açılan ekranda kombi adetni ve cinsini yaınca kombi girii butonuna tıklayınca . toplam kombi girişinin hermetik ve bacalı olark yeşil textboxlera yazılmasını istiyorum. bunu nasıl yapabilirm?yani. kombi giir düğmesine basınca. kombi-giriş-çıkış sayfasındaki e2:e300 arasındaki değerlri toplasın ve toplam kombi girşindeki yeşil text boxa yazsın. aynı zamanda bacalı içide yazsın. bunu makroyla nasıl yapabilirim?

 

[N.Ziya Hiçdurmaz]

Kodu forma yerleştiriniz.
Private Sub UserForm_Initialize()
Set kom = Sheets("kombi-giriş çıkış")
TextBox6 = WorksheetFunction.SumIf(kom.Range("d2:d20"), "=bacalı", kom.[f2:f20])
TextBox4 = WorksheetFunction.SumIf(kom.Range("d2:d20"), "=hermetik", kom.[e2:e20])
End Sub