[Yardım]  TextBox İçindeki veri sayısını saptayıp bu sayıyı hücreye ak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

TextBox İçindeki veri sayısını saptayıp bu sayıyı hücreye ak

İleti#1)  Haldunc » 06 Nis 2021 10:43

Merhaba

Bir Userformada bulunan herhangi bir TextBox içinde AHMET, MEHMET, HUSEYIN, SELAMI
adları bulunduğunu varsayalım. Burada 4 adet ad olduğunu ve bunu 4 olarak örneğin Sayfa6 'da L5 hücresine yazdırmak için kod yazılabilir mi?

Örneğin TextBox50 içinde.
Fikir: Virgülleri sayıp + 1 de yazdırılabilir mi?

Yardımcı olabilirseniz sevinirim. Teşekkürler.
Kullanıcı avatarı
Haldunc
Siteye Alışmış
 
Adı Soyadı:HALDUN CEYHAN
Kayıt: 21 Oca 2010 18:23
Konum: BURSA
Meslek: ZİRAAT MÜH
Yaş: 58
İleti: 347
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: TextBox İçindeki veri sayısını saptayıp bu sayıyı hüc

İleti#2)  l_kose » 06 Nis 2021 12:18

Dim i As integer
Dim dizi() as String
dizi()=Split(TextBox50.Text,",")
Sheets("Sayfa6").Select
Range("L5").Select
ActiveCell.FormulaR1C1 = Trim(Str(UBound(dizi())))
Kullanıcı avatarı
l_kose
 
Kayıt: 28 Ekm 2015 17:56
Meslek: Bilişim
Yaş: 45
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL / AVCILAR

Cevap: TextBox İçindeki veri sayısını saptayıp bu sayıyı hüc

İleti#3)  Haldunc » 06 Nis 2021 13:12

Teşekkür ederim I_Köse

Eski gönderilerde de bir kod bulup (Orijinali Tarkan beye ait) kendime göre uyarladım.
İşimi gördü.


Private Sub CommandButton8_Click()


For i = 1 To Len(TextBox50.Value)
If IsNumeric(Mid(TextBox50.Value, i, 1)) Then numara = numara + 1
Next i
hastalık = UBound(Split(TextBox50.Value, ",")) + 1
say = UBound(Split(TextBox50.Value, "ve"))

MsgBox hastalık



With Sheets("TARLAKONTROL").Range("a65500")

Sheets("TARLAKONTROL").Range("$Z$4") = hastalık
End With
End Sub
Kullanıcı avatarı
Haldunc
Siteye Alışmış
 
Adı Soyadı:HALDUN CEYHAN
Kayıt: 21 Oca 2010 18:23
Konum: BURSA
Meslek: ZİRAAT MÜH
Yaş: 58
İleti: 347
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot] ve 4 misafir

Bumerang - Yazarkafe