[Yardım]  Otomatik biçimlendirme

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

Otomatik biçimlendirme

İleti#1)  ekselmeraklisi » 01 Nis 2021 10:43

Userform'da telefon ekranına (555) 555 55 55 şeklinde telefon giriyorum. TextBox'a bu veri girince otomatik olarak parantezleri ve boşlukları silip 5555555 yapmasını istiyorum. Bunu nasıl yapabilir yardım edebilir misiniz?
Kullanıcı avatarı
ekselmeraklisi
Yeni Başlamış
 
Kayıt: 06 Oca 2021 00:19
Meslek: Memur
Yaş: 25
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Otomatik biçimlendirme

İleti#2)  CENGİZHANTAHA » 02 Nis 2021 13:25

Private Sub TextBox1_Change()

If then(TextBox1.Text) < 10 Then
TextBox1 = Replace(TextBox1, " ", "")
Else
TextBox1.Text = Format(TextBox1, "##########")
End If
End Sub

Bir deneyin isterseniz. İnşallah işinizi görür.
Kullanıcı avatarı
CENGİZHANTAHA
Yeni Başlamış
 
Kayıt: 20 Kas 2018 09:29
Meslek: EMEKLİ
Yaş: 49
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAKARYA

Cevap: Cevap: Otomatik biçimlendirme

İleti#3)  ekselmeraklisi » 03 Nis 2021 08:58

CENGİZHANTAHA yazdı:Private Sub TextBox1_Change()

If then(TextBox1.Text) < 10 Then
TextBox1 = Replace(TextBox1, " ", "")
Else
TextBox1.Text = Format(TextBox1, "##########")
End If
End Sub

Bir deneyin isterseniz. İnşallah işinizi görür.


Hata veriyor bu kod maalesef :/
Kullanıcı avatarı
ekselmeraklisi
Yeni Başlamış
 
Kayıt: 06 Oca 2021 00:19
Meslek: Memur
Yaş: 25
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Cevap: Otomatik biçimlendirme

İleti#4)  ekselmeraklisi » 04 Nis 2021 10:38

CENGİZHANTAHA yazdı:Private Sub TextBox1_Change()

If then(TextBox1.Text) < 10 Then
TextBox1 = Replace(TextBox1, " ", "")
Else
TextBox1.Text = Format(TextBox1, "##########")
End If
End Sub

Bir deneyin isterseniz. İnşallah işinizi görür.

Şimdi düzenledim kodu çalıştı

Private Sub TextBox7_Change()

If TextBox7.Text < "10" Then
TextBox7 = Replace(TextBox7, " ", "")
Else
TextBox7.Text = Format(TextBox7, "##########")
End If
End Sub



Ancak şu sorun kaldı:

(XXX) XXX XX XX bu şekilde kopyalayıp yapıştırınca TextBox'a (XXX)XXXXXXX bu şekilde düzenliyor. Parantezleri de kaldırmasının bir kodu var mı?
Kullanıcı avatarı
ekselmeraklisi
Yeni Başlamış
 
Kayıt: 06 Oca 2021 00:19
Meslek: Memur
Yaş: 25
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Otomatik biçimlendirme

İleti#5)  ekselmeraklisi » 13 Nis 2021 21:05

Yardım arıyorum hala :|
Kullanıcı avatarı
ekselmeraklisi
Yeni Başlamış
 
Kayıt: 06 Oca 2021 00:19
Meslek: Memur
Yaş: 25
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Otomatik biçimlendirme

İleti#6)  feraz » 15 Nis 2021 05:21

Yardım arayan örnek hazırlarki derde deva bulunsun :)
Örnek olmadanda artık doğru dürüst kimse yardım etmiyor.
Aynı şeyleri yazsak bir türlü yazmasdk dahada bir türlü :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6578
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe