Userform TextBox Karakter Aşımı Uyarı Verdirme

[u.L.a.s]

Merhabalar

Excel çalışma sayfamda yarattığım bir userform üzerinde bir textbox var.

Bu Textbox a Excel çalışma sayfasından belirli bir hücredeki değer otomatik yansıtıyorum
userform textbox üstündeki kodumda şu şekilde

Private Sub Userform_Initialize()
TextBox28.MaxLength = 56
TextBox28 = Range("AW2").Value

Şimdi AW hücresine ben bir veriyi başka bir yerden copy paste yapıyorum.
ve karakter olarak 56 dan fazla olabiliyor zira burası adres verisini içeren bir hücrem. Buraya yapıştırdığım veriyi bir uyarı vermesine gerek yok

asıl uyarıyı userformu açtığım zaman istiyorum. yani yukarıdaki kodla TextBox ıma yansıyan adres verisi eğer 56 karakterden fazla ise ya bana msgbox uyarısı versin yada ne bileyim textbox çerçevenin etrafı kırmızı renkte gibi birşey olsun istiyorum. ki ben bileyim burada 56 karakterden fazla değer var ve bunu bu textbox içinde azaltayım

bilgi ve yardımlarınızı rica ederim

 

[u.L.a.s]

Aşağıdaki kodla sorumu hallettim

Private Sub TextBox28_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox28.Value) > 56 Then
MsgBox "Adres Verisi Uzun. Düzeltiniz.", vbCritical
Cancel = True
End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Userform_Initialize()
TextBox28.MaxLength = 56
TextBox28 = Range("AW2").Value
If Len(TextBox28) > 56 Then
MsgBox "Adres bilgisi 56 karakterden fazla !" & Chr(10) & "Lütfen düzeltiniz !", VbCritical
End If
End Sub

 

[u.L.a.s]

Korhan bey merhaba

sizin verdiğiniz koduda denedim ama çalışmadı yani hiç bir uyarı vermedi.
userform üstünde 1- textbox üstüne tıkladım uyarı verirmi diye ama vermedi

benim yazdığım kodda ise şu durum var. tamam userform açılıyor ben diğer textboxlarıma veri giriyorum. Eğer TextBox28 üstüne mouse ile tıklayıp tekrar diğer textboxlara gelmezsem yine uyarı vermiyor. illaki o TextBox28 üstüne mouse ile bir kere tıklayacağım ki o zaman uyarıyı çıkarıyor karşıma

 

[u.L.a.s]

Eğer kodu şu şekilde yazarsam bu sefer userform açılmadan önce bu uyarıyı veriyor.
benim yazdığım ilk kodda durursa böylelikle ilk açılışta hem uyarıyı verdirmiş oluyorum. hemde açıldıktan sonra adres verisinde değişiklik yaparsam ve başka textboxa geçersem hala adres verisi uzunsa yine beni uyarmış oluyor.

Private Sub TextBox28_Change()
If Len(TextBox28) > 56 Then
MsgBox "Adres bilgisi uzun düzeltiniz", vbCritical
End If
End Sub

 

[Korhan Ayhan]

Önerimdeki kodun çalışması için AW2 hücresine veriyi yapıştırdıktan sonra formu açmanız gerekiyor.

 

[u.L.a.s]

Selamlar

aynı konu içerisinden ufak bir soru sormak istiyorum

Bu textBoxa gelen veri 56 karakterden fazla ise uyarı verdiriyorduk.

Peki bu Textboxa yansıyan veride ilk 56 karakteri normal siyah renk ondan sonraki karakter font rengini ise kırmızı renk olarak gösterebilir miyiz. aşağıdaki gibi bişey olsun textbox içerisindeki veri. yani burada yapmak istediğim hangi tarafı silmem gerektiğini bilmek istiyorum yani 56 karakteri aşan karakterleri bilmek istiyorum

bilgi ve yardımlarınızı rica ederim

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

 

[u.L.a.s]

Biraz araştırdım. Bu son sorduğum soruyu TextBox ta üzerinde olmuyormuş

Bunun için InkEdit diye bir activeX control eklemek gerekiyormuş. Görüntü olarka yine TextBox görüntüsü var ama işlevi daha fazla.

Bu InkEdit ActiveX Control tool unu şu şekilde ekliyoruz. Toolbox üstüne sağ buton tıklayıp Additional Control seçerek açılan pencereden Microsoft InkEidt Control seçeneğini işaretliyoruz.

ToolBox a yerleşen bu eklentiyi seçerek Userform üzerinde istediğimiz büyüklükte oluşturuyoruz.

oluşturduğumuz InkEdit e çift tıklayıp aşağıdaki kodları yazıyoruz

Private Sub InkEdit1_Change ()
Inkedit1.SelStart = 56
Inkedit1.SelLength = Len(InkEdit1.Text) - InkEdit1SelStart
Inkedit1.SelColor = vbRed
End Sub