2022 sayılı yasa kayıt formu

[mhaluksen]

Üstadım bu dosyayı açıyor bunun üzerinde çalışma yapabilir misiniz.?
1- Tarihler forma ters atıyor.(1/18/2011) gibi
2- Kayıt bul da açılır sekmede sadece TC.den başlayan yerden açılabilir mi?
3- Soyadı,il ilçe isimleri forma yazılırken büyük harfle yazılabilir mi? Yazım düzeni kullanılarak ilk harfler büyük diğerleri küçük yazılabilir mi?
4- Kaydı hem user formdan hem de normal excel sayfasında yapamaz mıyız?

 

[halit3]

Üstad kırmızı yeri sildiğim de 2.ci sayfadaki hatayı veriyor

Siz en iyisi sayın cems 'in 13 nolu mesajındaki dosyayı kullanın;

 

[mhaluksen]

41.mesajıma bakabilir misiniz?

 

[cems]

13 No'Lu mesajımdaki dosya aşağıdaki onarımlarla güncellendi.

1- Tarihler forma ters atıyor.(1/18/2011) gibi

İnitialize olayına ;

TextBox4.Value = Format(TextBox4.Value, ("dd.mm.yyy"))
TextBox9.Value = Format(TextBox9.Value, ("dd.mm.yyy"))
TextBox14.Value = Format(TextBox14.Value, ("dd.mm.yyy"))
TextBox23.Value = Format(TextBox23.Value, ("dd.mm.yyy"))
TextBox27.Value = Format(TextBox27.Value, ("dd.mm.yyy"))

eklenerek tarihi düzgün alması ve göstermesi sağlandı. Tarihi kesmeli değil 01.01.2012 formunda atın

2- Kayıt bul da açılır sekmede sadece TC.den başlayan yerden açılabilir mi?

Bunu doğru anlamamış olabilirim. TC den başka bulucu ise demek istediğiniz;
Kesinlikle BENZERSİZ başka bir tanımlayıcı gösterdiğiniz takdirde oradan da alır.
Tc den geriye olanlar çıkmasın diyorsanız, zararsız bilgi görünmesi daha iyidir ama istemem
derseniz Vbe kısmına geçiniz ve BUL tuşuna çift tıklayın, açılan yerde

TextBox1 = ActiveCell.Offset(0, -4).Value
TextBox2 = ActiveCell.Offset(0, -3).Value
TextBox3 = ActiveCell.Offset(0, -2).Value
TextBox4 = ActiveCell.Offset(0, -1).Value

Kodlarını silip kaydet tuşuna basınız.

3- Soyadı,il ilçe isimleri forma yazılırken büyük harfle yazılabilir mi? Yazım düzeni kullanılarak ilk harfler büyük diğerleri küçük yazılabilir mi?

Bunu araştırmakla birlikte, şu an dosyanıza uyarlayacak bilgim yok.

4- Kaydı hem user formdan hem de normal excel sayfasında yapamaz mıyız?

Excel'e dön tuşuna basıp , sayfada da ( sayfa korumasını kaldır ) tuşuna basınca sayfa elle kullanımıza da açık olur. Ancak bu , bilgiye hasar da verebilir. Userform hem data girişi geri alışı ve onarımında , tam bilgiyi yerli yerinde gösterdiği için , ayrıca sayfaya da herkesin ulaşmasını , ulaşsa da bilgide oynanmasını engellediği için daha kullanışlıdır.
Siz bilirsiniz ...

 

[halit3]

Yazım düzeni için bunu kullana bilirsiniz.

WorksheetFunction.Proper(TextBox2.Value)

 

[cems]

Yazım düzeni için bunu kullana bilirsiniz.

WorksheetFunction.Proper(TextBox2.Value)

Sayın Halit3

WorksheetFunction.Proper (TextBox1.Value)
WorksheetFunction.Proper (TextBox2.Value)
WorksheetFunction.Proper (TextBox3.Value)
TextBox4.Value = Format(TextBox4.Value, ("dd.mm.yyy"))
WorksheetFunction.Proper (TextBox4.Value)
WorksheetFunction.Proper (TextBox5.Value)
WorksheetFunction.Proper (TextBox6.Value)
WorksheetFunction.Proper (TextBox7.Value)
WorksheetFunction.Proper (TextBox8.Value)
.
.

Şeklind Userform'un initialize olayına her (yazı düşürülen) textbox için bunu uyguladım, ancak ne tip yazıldı ise öyle kaydetti ve öyle çağrıldı.

Yanlış yerde mi kullandım ?

 

[halit3]

örnek olarak kayıtet için

Cells(x + 1, "b") = WorksheetFunction.Proper(TextBox2.Value)

kayıt düzelt için

ActiveCell.Offset(0, -3).Value = WorksheetFunction.Proper(TextBox2.Value)

kayıt bul için

TextBox2 = WorksheetFunction.Proper(ActiveCell.Offset(0, -3).Value)

 

[cems]

örnek olarak
kayıtet için

Cells(x + 1, "b") = WorksheetFunction.Proper(TextBox2.Value)

kayıt düzelt için

ActiveCell.Offset(0, -3).Value = WorksheetFunction.Proper(TextBox2.Value)

kayıt bul için

TextBox2 = WorksheetFunction.Proper(ActiveCell.Offset(0, -3).Value)

Sayın mhaluksen
Sayın Halit3' ün önerdiği kodlar ile yazım düzeni de sağlanmış olarak dosyanız yine 13 Nolu mesajda güncellendi.