rehber

[çilli]

Merhabalar
Ekteki dosyada rehberdeki verileri comboboxtan sorgularken a yazdığımızda içinde a olan tüm verileri getiriyor. a veya diğer bir harf girdiğimizde düzgün bir şekilde nasıl getirebiliriz?
telefon numaralarını ### ### ## ## şeklinde yazmama rağmen ikinci texbox a girilen veriler istenildiği şekilde oluşmuyor.Yalnızca rakam girilmesi istendiğinde ise rakam girildiğinde ise 000 000 00 01 şeklinde yazılmaktadır.?

yardımlarınız için teşekkürler

 

[Levent Menteşoğlu]

Dosyanızı foruma eklermisiniz.

 

[çilli]

leventm teşekkürler
dosyayı eklemeye çalışıyorum ama nedense sayfada hata diye mesaj geliyor bu nedenle link verebildim
yeni link:
http://uploaded.to/?id=tj3ieg

 

[çilli]

dosya eklenmiştir

 

[çilli]

dosya ektedir

 

[çilli]

Merhaba
Ekteki dosyada veri girişi yaparken texboxlar arası geçişlerde tab tuşuyla
geçilemiyor. Telefon no girişi yapılırken texboxtaki format her zaman oturmuyor ### ### ## ## olması gerekirken ########## oluşuyor.
??

 

[Skorpiyon]

Sayın çilli,

Ben sadece 1 textbox nesnesine baktım. İşinizi görürse siz diğerlerini ayarlarsınız.

Textbox6 daki kendi kodlarınızı PASİF hale getirerek aşağıdaki kodları ekleyip deneyin. (Nesnenin EXIT olayına yazılacak)

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox6.Value = "" Then GoTo 10
If Not IsNumeric(TextBox6.Value) Then
MsgBox "Hatalı giriş. Lütfen sayısal değer giriniz."
Exit Sub
End If
TextBox6.Value = Format(TextBox6, "@.@@@.@@@ @@ @@")
10
End Sub

 

[çilli]

Sayın ;Şaban Sertkaya
İlgilinize ve paylaşımınıza teşekkürler.
Önerinizi uyguladım ancak 0(000)000 00 00 şeklinde olmuyor [.000.000 00 00 şeklinde olmaktadır]ve sayısal degerden başka karekterlerde yazılabiliyor.
Texboxlara yanlızca büyük harf girmek için başka yol varmıdır?

Teşekkürler.

 

[vuranoğlu]

Private Sub Worksheet_Change(ByVal Target As Range)
[B2:O65535].Sort Key1:=Range("B2"), Order1:=xlAscending
End Sub

Bu kodlar ile sayfadakiverileri listboxta sıralanmasını istiyorum ama netice alamadım kodları yanlış yerdemi kullanıyorum acaba