nasyarx
Yeni Üye
- Katılım
- 11 Tem 2018
- Mesajlar
- 79
- En iyi yanıt
- 0
- Puanları
- 8
- Yaş
- 42
- Konum
- Muş
- Ad Soyad
- Ensar Mansur
- Office Vers.
- 2016
Sayın @Admin
Bazen konu çözüldü derken yeni fikirler geliyor. Ama çözüm bulamıyor yine sizden yardım talep ediyorum. Afola
Daha önce yardım istemiştim. "ek" isimli textboxlarda toplam istemiştim. Acaba içinde sayısal değer olan (0 hariç) textbox saysını nasıl alabiliriz.
Bazen konu çözüldü derken yeni fikirler geliyor. Ama çözüm bulamıyor yine sizden yardım talep ediyorum. Afola
Daha önce yardım istemiştim. "ek" isimli textboxlarda toplam istemiştim. Acaba içinde sayısal değer olan (0 hariç) textbox saysını nasıl alabiliriz.
Kod:
Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
Call Say_Topla
End Sub
Private Sub Say_Topla()
Dim topla#, a%, i%, s%
On Error Resume Next
With UserForm1
For a = 1 To 20
If .Controls("Ek" & a).Value <> "" Then
If IsNumeric(.Controls("Ek" & a).Value) Then
topla = topla + .Controls("Ek" & a).Value
Else
s = s + 1
End If
End If
Next a
.Ek22.Value = s
.Ek21.Value = topla
End With
End Sub