O anki Tarih ve saati otomatik atılabilirmi?

[sakiogluo]

"BİTTİ" Butonuna basınca boşalan makinada personel ismini seçecek
İsim seçilince ilgili satıra otomatik o anki tarih saat formatı girilecek
Personel listesinden boşluk seçilince tarih silinecek

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1'in kod sayfasına yapıştırarak deneyin.

[vb:1:a8674616ed]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
Target.Offset(0, 4) = Format(Now, "dd.mm.yy hh:mm")
If Target = 0 Then Target.Offset(0, 4) = ""
End Sub
[/vb:1:a8674616ed]

 

[sakiogluo]

Kod başka yerlerde hata veriyor

Sayın Leventm, kod ilgili hücrelerde çalışmasına rağmen diğer hücrelerde ve makroda hata verilmesine neden oluyor. Çözmeye çalıştım ama olmadı, ilgili döküman açıklaması ile ekte yolluyorum. Teşekkürler.

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

[vb:1:3e7344477a]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 4 Then Exit Sub
Target.Offset(0, 4) = Format(Now, "dd.mm.yy hh:mm")
If Target = 0 Then Target.Offset(0, 4) = ""
End Sub
[/vb:1:3e7344477a]

 

[sakiogluo]

Yan sütunda silinmeler oluyor

Sayın Leventm şimdide başka sorun çıktı. En üst satırda tarih siliniyor ve yan sütundaki değerler siliniyor.

 

[Levent Menteşoğlu]

Bu silme işlemini ne amaçla yapıyorsunuz? o butonada farklı bir çözüm bulalım

 

[sakiogluo]

Detayları dahada açtım

Sayın Leventm. daha detaylı bir dosya gönderiyorum. Kafamdaki proje hayli detaylı biterse güzel bir çalışma olacak. İş emri + Üretim takip. Tablodan kafanız karışmazsa daha detaylı bir dosya gönderebilirim. Yardımların için teşekkür ederim.

 

[sakiogluo]

Bu silme işlemini ne amaçla yapıyorsunuz? o butonada farklı bir çözüm bulalım

Mesaj konusu: O anki Tarih ve saati otomatik atılabilirmi?
Sayın Leventm. 20 gündür formüller üzerinde kafa patlatıyorum ama çözemedim yardımın olmazsa çözülecek gibide değil.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.