forma klavye ile işlem

[enginbagci]

herkese merhaba
exceli pek bilmeyen birisiyim sizlerin gönderdiğiniz dosyalardan kopyalayarak kendime birseyler yaptım.. ve bulamadığım bir kaç konu var

*ekteki dosyadaki formda mouse'la cliklediğimde calıştırıyor ama klavyeyle yazadığımda aynı plakaya yakın olanları bulamıyorum.
*parça ismine bir şeyler yazdığımda sipariş tarihine tarih ve saati otomatik atıyor ama parça isminde delete yaptığımda bir üst satırdaki sipariş tarihini değiştiriyor aynı zamanda bu geliş tarihini elle değiştirilememesini nasıl yaparım

şimdiden treşekkür ederim

 

[Levent Menteşoğlu]

Birinci sorunuzu tam olarak anlamamakla beraber, comboya plaka nosunu elle yazdığınızda en yakın plakayı seçtiğini gördüm. İkinci sorunuzla ilgili olarakta sayfa1'in kod sayfasındaki kodu aşağıdaki gibi değiştirin.

[vb:1:8eb2ef15c2]Private Sub Worksheet_Change(ByVal Target As Range)
kl = Selection.Column
If kl <> 4 Then Exit Sub
Cells(Target.Row, 6).Select
Cells(Target.Row, 5) = Now()
End Sub
[/vb:1:8eb2ef15c2]

 

[enginbagci]

ilk sorumda söylemek istediğim klavyeyle istediğim plakayı bulmamda doğru olarak calışmıyor mesala 34 aaa olduğu için 34 aa plakalı yazdığımda bulmuyor.

yazdığın formulü değiştirdim ama durumunu değiştirdiğimde sağ tuşla gectiğim zamanda saat veriyor benim istediğim sadece parca isminde yapılan değişikliklerde calışması
teşekkürler

 

[Levent Menteşoğlu]

Tablonuzda hem 34 aa hemde 34 aaa ile başlayan plaka olduğundan bu sizi yanıltıyor,34 aa ile başlayan plaka nosunu değiştirerek deneyin. Yukarıda verdiğim koduda aşağıdaki ile değiştirin.
[vb:1:d08a109163]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target = "" Then
Cells(Target.Row, 5) = ""
Exit Sub
End If
Cells(Target.Row, 5) = Now()
End Sub
[/vb:1:d08a109163]

 

[enginbagci]

teşekkürler

levent bey ilginize teşekkür ederim ilk sorumda sunu demek istedim mesela suanli formda iki tane aynı plaka yazdım (34 AAA 96) bu plakayı klavye ile yazdığımda bulmuyor..

ikinci sorumdada tarih saati attıktan sonra o hücreye kitleyip kimsenin dokunmasına izin vermeme gibi ihtimalimiz varmı

 

[Levent Menteşoğlu]

Birde kodu aşağıdaki gibi deneyin.

[vb:1:021d14a402]Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Rows(2).AutoFilter 1, ComboBox1.Value
Rows(2).AutoFilter 1, ComboBox1.Value
End Sub[/vb:1:021d14a402]

ikinci sorumdada tarih saati attıktan sonra o hücreye kitleyip kimsenin dokunmasına izin vermeme gibi ihtimalimiz varmı

Bunun içinde hücreleri şifre ile kilitlemenizi öneririm. Bu durumda bu hücreleri veri kaydederken kod içinde önce şifreyi açıp,işlem bittikten sonra şifreyi tekrar koyarsınız.

Aşağıdaki kod sayfayı şifreler (burada şifre 1 rakamıdır)
[vb:1:021d14a402]Sheets("sayfa1").Protect ("1")[/vb:1:021d14a402]

Aşağıdaki kod ise şifreyi açar

[vb:1:021d14a402]Sheets("sayfa1").Unprotect ("1")[/vb:1:021d14a402]