Labelde toplama işlemi

[akhsahbaz]

G sütunun daki değerleri label ın içine toplatmak istiyorum.Bunu makro ile nsaıl yapabilirim? Yardımlarınız için şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub UserForm_Initialize()
TOPLAM = WorksheetFunction.Sum([G1:G100])
Label1 = TOPLAM
End Sub

 

[Seyit Tiken]

Örnek kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sayfa1.Label1 = WorksheetFunction.Sum([g1:g500])
End Sub

 

[akhsahbaz]

Teşekkür ederim.Ama bu makro otomatik olarak nasıl calışır. Ben G sütununna veri girdikçe veya süzdükçe oda kendini yenileyecek.

 

[Seyit Tiken]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Label1 = WorksheetFunction.Sum([g1:g500])
End Sub

Şeklinde deneyiniz.

 

[akhsahbaz]

Makroyu girdiğimde Makro ismi istiyor.