Sayfadan Label'e veri toplam veri aktarma

[baba58]

Selam arkadaşlar sayfa8 deki işlem sonucunu otomatik olarak Label'de görmek istiyorum ama hata veriyor.Sorun nerede acaba yardımcı olabilirmisiniz.

Private Sub UserForm_Initialize()
Top = 0
For i = 3 To Sayfa8.[j65536].End(3).Row
Top = Top + Sayfa8.Cells(i, 10).Value
Next
Mustan2.Label19.Caption = Top
'..............................
Top = 0
For i = 3 To Sayfa8.[k65536].End(3).Row
Top = Top + Sayfa8.Cells(i, 11).Value
Next
Mustan2.Label24.Caption = Top

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub UserForm_Initialize()
    Top = 0
    For i = 3 To Sheets("Sayfa8").[J65536].End(3).Row
    Top = Top + Sheets("Sayfa8").Cells(i, 10).Value
    Next
    Mustan2.Label19.Caption = Top
    
    Top = 0
    For i = 3 To Sheets("Sayfa8").[K65536].End(3).Row
    Top = Top + Sheets("Sayfa8").Cells(i, 11).Value
    Next
    Mustan2.Label24.Caption = Top
End Sub

 

[baba58]

Selam ArkadaŞim;

ilgine şimdiden teşekkürler.Yazmış olduğun formülü de denedim fakat kabul etmedi.Hata veriyor. hata'9' veriyor.

 

[Korhan Ayhan]

Selamlar,

Bu durumda örnek dosyanızı eklerseniz hatanın nerden kaynaklandığını bulabiliriz.

 

[baba58]

yeniden tasarladım

cevabınızı bekliyorum.İyi çalışmalar şimdiden

 

[Korhan Ayhan]

Selamlar,

Dosyanızı açtığımda formu açamıyorum hata mesajı ile karşılaşıyorum.