Userform üzerindeki labelde sütun toplamını verme

[antitez21]

Arkadaşlar merhaba,

Sayfa 5 de bulunan dördüncü ve beşinci sütunların toplamını label1 ve label 2 de ayrı ayrı userform üzerinde göstermek istiyorum.
Label 1 i para cinsinden Label 2 yi ise adet cinsinden göstermek istiyorum. bazı hazır kodları uyarlamak istedim ama olmadı. Ayrıca Labeli tıklamadan userformda otomatik güncellenmeli değerler..
Yardımcı olursanız memnun olurum.

 

[antitez21]

Bilen yok mu arkadaşlar?

 

[muratgunay48]

Arkadaşlar merhaba,

Sayfa 5 de bulunan dördüncü ve beşinci sütunların toplamını label1 ve label 2 de ayrı ayrı userform üzerinde göstermek istiyorum.
Label 1 i para cinsinden Label 2 yi ise adet cinsinden göstermek istiyorum. bazı hazır kodları uyarlamak istedim ama olmadı. Ayrıca Labeli tıklamadan userformda otomatik güncellenmeli değerler..
Yardımcı olursanız memnun olurum.

Şöyle yapabilirsiniz. Öncelikle işiniz olmayan bir hücreye mesela Z1'e =TOPLA(D ) Z2'e =TOPLA(E:E) 4. ve 5. hücrelerin toplamını aldınız.

Daha sonra UserForm'a

Private Sub UserForm_Initialize()
Label1.Caption = [Sayfa1!Z1]
Label2.Caption = [Sayfa1!Z2]
End Sub

 

[antitez21]

Eyvallah hocam ama textbox tarafından dolduralan toplada verilen yanında bir ünlem çıkıyor ve herhangi bir hücrede sütunları topladığımda 0 çıkıyor.

 

[byfika]

Deneyiniz..
Private Sub UserForm_Initialize()
Label1 = WorksheetFunction.Sum(Range("D"))
Label2 = WorksheetFunction.Sum(Range("E:E"))
Label1.Caption = Format(Label1.Caption, "#,##0.00 TL")
End Sub

 

[antitez21]

Eyvallah hocam çok teşekkür ederim. Emeğinize sağlık