Seçili hücreleri, textbox'ta anlık toplamak

[ÖZLÜCE]

Merhaba

sayfadaki hücreleri seçtikçe, Anlık olarak label1'de toplatmak istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Ayhan Ercan]

Merhaba,

Sayfa üzerine konulan bir label için aşağıdaki koddan faydalanabilirsiniz..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("sayfa1").Label1.Caption = Target.Value + Int(Label1.Caption)
End Sub

 

[Orion1]

Label sayfa üzerinde.
Çalışma sayfasının modülnde general kısmına

Dim tpl As Double

olay kısmına

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsNumeric(Target.Value) Then
    tpl = tpl + Target.Value
    Label1.Caption = tpl
End If
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim alan As Range
UserForm1.Show 0
UserForm1.Label1 = 0
    For Each alan In Selection
        UserForm1.Label1 = Val(UserForm1.Label1) + alan
    Next
End Sub

 

[Orion1]

Merhaba

sayfadaki hücreleri seçtikçe, Anlık olarak label1'de toplatmak istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

Soru başlığınızda textbox yazmışsınız,Buradada label diyorsunuz.
Bu ne yaman çelişki böyle.
Bizde toplama yerine çıkarma yapıp versek nasıl olurdu acaba.!?

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki gibide olabilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sayfa1.Label1 = WorksheetFunction.Sum(Target)
End Sub

 

[ÖZLÜCE]

İlginiz için hepinize ayrı ayrı teşekkür ederim.Emeğinize sağlık.
Evren hocam'a uyarısından dolayı ayrıca teşekkür etmek isterim.