- Katılım
- 25 Ağustos 2004
- Mesajlar
- 131
- Excel Vers. ve Dili
-
Ev -> Office 2016 Tükçe
İş -> Office 2016 Tükçe
- Altın Üyelik Bitiş Tarihi
- 04/01/2022
iyi çalışmalar
ben comboboxlara girdiğim rakamları diğer bir combo boxta toplatmak istiyorum
bu kod ile
Private Sub gYrdMlz2_Change()
If gYrdMlz2 = "" Then
gYrdMlz2 = 0
GoTo x1
End If
gYrdMlzFyt.Value = gYrdMlz2.Value + gYrdMlz3.Value + gYrdMlz4.Value + gYrdMlz5.Value + gYrdMlz6.Value + gYrdMlz7.Value + gYrdMlz8.Value + gYrdMlz9.Value + gYrdMlz10.Value
x1: End Sub
Private Sub gYrdMlz3_Change()
If gYrdMlz3 = "" Then
gYrdMlz3 = 0
GoTo x1
End If
gYrdMlzFyt.Value = gYrdMlz2 + gYrdMlz3 + gYrdMlz4 + gYrdMlz5 + gYrdMlz6 + gYrdMlz7 + gYrdMlz8 + gYrdMlz9 + gYrdMlz10
x1: End Sub
comboboxlara sayıları girince toplam alınan comboboxta şöyle oluyor
1.combobox =1
2.combobox =1
3.combobox =1
...
böyle girdiğimde
toplam alınan yer 111 oluyo biyerde yanlış yapıyorum ama nerde
ben comboboxlara girdiğim rakamları diğer bir combo boxta toplatmak istiyorum
bu kod ile
Private Sub gYrdMlz2_Change()
If gYrdMlz2 = "" Then
gYrdMlz2 = 0
GoTo x1
End If
gYrdMlzFyt.Value = gYrdMlz2.Value + gYrdMlz3.Value + gYrdMlz4.Value + gYrdMlz5.Value + gYrdMlz6.Value + gYrdMlz7.Value + gYrdMlz8.Value + gYrdMlz9.Value + gYrdMlz10.Value
x1: End Sub
Private Sub gYrdMlz3_Change()
If gYrdMlz3 = "" Then
gYrdMlz3 = 0
GoTo x1
End If
gYrdMlzFyt.Value = gYrdMlz2 + gYrdMlz3 + gYrdMlz4 + gYrdMlz5 + gYrdMlz6 + gYrdMlz7 + gYrdMlz8 + gYrdMlz9 + gYrdMlz10
x1: End Sub
comboboxlara sayıları girince toplam alınan comboboxta şöyle oluyor
1.combobox =1
2.combobox =1
3.combobox =1
...
böyle girdiğimde
toplam alınan yer 111 oluyo biyerde yanlış yapıyorum ama nerde