• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Texboxlar içinde rakam olanların sayısı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

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.
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
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Size verdiğim yukarıdaki kodlardan sonra siz birçok satır kod daha yazmış ve durumu karmaşık hâle getirmişsiniz.

Sorunuza göre size gerekli kod satırı bu;
PHP:
If .Controls("Ek" & a).Value <> 0 Then say = say + 1
Bu kod projenizdeki uygun yere yapıştırabilirsiniz.
Ek25 TextBox'ına da bu şekilde sonucu aktarırsınız.. .Ek25.Value = say
 

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
Teşekkürler. Haklısınız biraz karmaşık oldu. Heybemdeki bilgi bu kadar. Selametle
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt