Labele Sayı Ekleme-Çıkarma

[metalog]

Merhabalar,

Elimde bir userform ve bu userformda combobox, checkbox ve textboxlar mevcut. Bunların hepsi bir değer ifade ediyor.

Userformun en altında da toplam kısmı var label olarak.

Kodları sağdan soldan bulup yazıyorum bir şekilde ama takıldığım nokta verdiğim değerleri labeldeki sayıya ilave etme.

Yani mesala aşağıdaki koddaki gibi checkbox'ı işaretleyince label10.caption ile labele 100 yazıyor ama ben aynı zamanda combobox'taki A,B,C'den de mesela A'yı seçince A'nın değeri 50 ise bunu 100 sayısına eklemeli ve 150 olmalı.. Yani atıyorum "Add.label10 caption"gibi bir kod mevcut mudur? Bu label.caption yerine yazabileceğim?

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Label10.Caption = 100
    CheckBox2.Value = False
    Else
    CheckBox2.Value = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
    Label10.Caption = ""
    CheckBox1.Value = False
    Else
    CheckBox1.Value = True
End If
End Sub

 

[YUSUF44]

Örneğin

Label10.Caption = 100

Yerine

Label10.Caption = Label10.Caption+ 100

Kullanırsanız mevcut Label değerine 100 ekler. Diğer eklenecekleri de bu mantıkla ekleyebilirsiniz. Hata verirse Label10.Caption +100yerine Cdbl(Label10.Caption) +100 yazmanız gerekebilir.

 

[metalog]

Yusuf Bey,

Dediğiniz yöntemi denedim. Bu şekilde labele ekleme yapıyor evet ama mesela combobox'ta farklı bir şey seçince hep üzerine ekliyor.

Örneğin labelde 100 varken A'yı seçtiğimde 5 ekliyor sonra değiştirip B'yi seçince 10 daha ekliyor ve 15 oluyor. Her seferinde bu şekilde artarak devam ediyor.

Oysa benim istediğim B'yi seçiyorsam 5 yerine 10 eklemesi, B'yi değiştirip C'yi seçince 10'u silip 20 eklemesi felan şeklindedir.

 

[YUSUF44]

Aşağıdaki gibi dener misiniz?

Label10.Caption = Label10.Caption - Label10.Caption + 100 + Combobox1.value

Bu kod önce captionı sıfırlıyor, sonra standart değer ile comboboxtaki değeri ekliyor. Kod hata verirse bile bu mantıkla düzeltmeye çalışabilirsiniz.

 

[metalog]

Tam olarak yapmak istediğimi görmeniz için dosyayı düzenleyip ekledim. Açıklamaları userformun içerisine yazdım.

İnceleyebilir misiniz?

 

[YUSUF44]

Userformdaki mevcut kodları silip aşaüıdaki kodları ekleyin:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    CheckBox2.Value = False
    tik = 100
End If
If ComboBox5 <> "" Then
    kombo = WorksheetFunction.VLookup(ComboBox5.Value, Sheets("Kayıt").[B2:C10], 2, 0)
End If
If IsNumeric(TextBox1) = True Then
    ilave = CDbl(TextBox1.Value)
End If
    Label10.Caption = tik + kombo + ilave
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
    CheckBox1.Value = False
    tik = 0
End If
If ComboBox5 <> "" Then
    kombo = WorksheetFunction.VLookup(ComboBox5.Value, Sheets("Kayıt").[B2:C10], 2, 0)
End If
If IsNumeric(TextBox1) = True Then
    ilave = CDbl(TextBox1.Value)
End If
    Label10.Caption = tik + kombo + ilave
End Sub

Private Sub ComboBox5_Change()
If CheckBox1.Value = True Then
    tik = 100
Else
    tik = 0
End If
If ComboBox5 <> "" Then
    kombo = WorksheetFunction.VLookup(ComboBox5.Value, Sheets("Kayıt").[B2:C10], 2, 0)
End If
If IsNumeric(TextBox1) = True Then
    ilave = CDbl(TextBox1.Value)
End If
    Label10.Caption = tik + kombo + ilave

End Sub

Private Sub TextBox1_Change()
If CheckBox1.Value = True Then
    tik = 100
Else
    tik = 0
End If
If ComboBox5 <> "" Then
    kombo = WorksheetFunction.VLookup(ComboBox5.Value, Sheets("Kayıt").[B2:C10], 2, 0)
End If
If IsNumeric(TextBox1) = True Then
    ilave = CDbl(TextBox1.Value)
End If
  
Label10.Caption = tik + kombo + ilave

End Sub

 

[metalog]

Yusuf Bey,

Biraz geç cevap verebildim kusura bakmayın. Desteğiniz için teşekkür ederim.

Bir kaç düzeltilmesi gereken kısım var kendim halletmeye çalışıyorum, halledemezsem tekrardan bilginize başvurmam gerekecek..

Tekrardan teşekkür ederim. Sağlıcakla kalın.