Otomatik Saat Değerinin Girilmesi ?

[ozgurpeh]

Merhaba,

Ekte örnek üzerinde de belirttiğim gibi giriş ve çıkış saatlerinin otomatik olarak yazılması için yardımlarınızı rica ederim. Anlık olarak her hücre için ayrı çalışması lazım. Şimdiden Teşekür Ederim

 

[AS3434]

Çalışma sayfanızın kod sayfasına aşağıdaki kodları yazın.
A ve F sütununu Saat olarak biçimlendirin.
Tarih olarak biçimlerseniz Günün tarihini de yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b14:e65536]) Is Nothing Then Exit Sub
    sat1 = Target.Row
    If Target.Column < 4 Then Cells(sat1, "a") = Now
    If Target.Column > 3 Then Cells(sat1, "f") = Now
End Sub

 

[uzmanamele]

bilgisayarın tarih ve saatini değiştirmek kolay olduğuna göre işlem yapılan zaman saatini daha güvenli seçmek mümkün mü? dos altından olabilir mi mesela?

 

[ozgurpeh]

Çalışma sayfanızın kod sayfasına aşağıdaki kodları yazın.
A ve F sütununu Saat olarak biçimlendirin.
Tarih olarak biçimlerseniz Günün tarihini de yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b14:e65536]) Is Nothing Then Exit Sub
    sat1 = Target.Row
    If Target.Column < 4 Then Cells(sat1, "a") = Now
    If Target.Column > 3 Then Cells(sat1, "f") = Now
End Sub

Teşekür için geciktim kusura bakmayın. Çok Teşekkür Ederim

 

[AS3434]

Rica ederim.

İyi çalışmalar dilerim.

 

[ozgurpeh]

Rica ederim.

İyi çalışmalar dilerim.

Ama bir sorun var bunların hücre sayısını çoğaltamıyorum.
Mesela 15 farklı hücreye girildiğinde giriş saatine atıcak bir başka 15 sütuna girilince de çıkış saatine atıcak aynı satır üzerinde yapıcak bunu ayrıca

 

[AS3434]

Sayın ozgurpeh

Makro B C D ve E sütunlarında Hücre bazında çalışmaktadır.

Mesela 15 farklı hücreye girildiğinde giriş saatine atıcak bir başka 15 sütuna girilince de çıkış saatine atıcak aynı satır üzerinde yapıcak bunu ayrıca

Bu ifadenizle ne demek istediğini anladığımı söyleyemeyeceğim.

Konuyu biraz daha açarmısınız?

 

[ozgurpeh]

Sayın ozgurpeh

Makro B C D ve E sütunlarında Hücre bazında çalışmaktadır.



Bu ifadenizle ne demek istediğini anladığımı söyleyemeyeceğim.

Konuyu biraz daha açarmısınız?

Şöyleki eklediğim örnekte 2 sütuna girildiğinde girişe atıyodu 2 sütüna girildiğindede çıkışa atıyodu ben bunu 15 tana yan yana hücreye girdiğimde girişe atsın hemen peşi sıra gelen 15 hücreye girildiği zamanda çıkışa atsın toplam 30 sütün olduğunu düşünelim

 

[AS3434]

Dosyanızdaki mesaj bu.

B veya C Sütununa herhanbir bir şey yazılınca (örnekxxx) Giriş saatini yazıldığı anki sistem saatini esas alacak şekilde atması ve D-E sütununa değer girilincede yine o ankii saati çıkış saati kısmına nasıl atabiliriz.? (giriş ve çıkış farklı saatler olucak)

Eğer böyle demekle

ben bunu 15 tana yan yana hücreye girdiğimde girişe atsın hemen peşi sıra gelen 15 hücreye girildiği zamanda çıkışa atsın toplam 30 sütün

B sütunundan P sütununa kadar veri girince A sütununa tarih atsın, Q sütunudan AE sütununa kadar veri girince AF sütununa mı tarih atsın demek istiyorsunuz.
Eğer öyleyse kodu şöyle değiştirin. Değilse örnek dosya ile izah edin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b14:ae65536]) Is Nothing Then Exit Sub
    sat1 = Target.Row
    If Target.Column < 17 Then Cells(sat1, "a") = Now
    If Target.Column > 16 Then Cells(sat1, "af") = Now
End Sub

 

[ozgurpeh]

Dosyanızdaki mesaj bu.



Eğer böyle demekle



B sütunundan P sütununa kadar veri girince A sütununa tarih atsın, Q sütunudan AE sütununa kadar veri girince AF sütununa mı tarih atsın demek istiyorsunuz.
Eğer öyleyse kodu şöyle değiştirin. Değilse örnek dosya ile izah edin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b14:e65536]) Is Nothing Then Exit Sub
    sat1 = Target.Row
    If Target.Column < 17 Then Cells(sat1, "a") = Now
    If Target.Column > 16 Then Cells(sat1, "af") = Now
End Sub

Aslında sorumun cevabı sanırım If Target.Column < 17 Then Cells(sat1, "a") = Now
If Target.Column > 16 Then Cells(sat1, "af") = Now ifadesinde gizli 16 ve 17 neye göre değişiyor??

 

[ozgurpeh]

Ekte Dosya Mevcut

 

[AS3434]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [[COLOR=red][B]D3[/B][/COLOR]:aq65536]) Is Nothing Then Exit Sub
    sat1 = Target.Row
    If Target.Column < 18 Then Cells(sat1, "c") = Now
    If Target.Column > 18 Then Cells(sat1, "ar") = Now
End Sub

Kodlar&#305; yukardaki gibi de&#287;i&#351;tirin.

Kodlardaki 18 s&#252;tun numaras&#305;d&#305;r.


yani A=1 B=2 C=3....gibi Burada 18 R s&#252;tunudur.

Ayr&#305;ca, Sorunuzu ba&#351;tan bu &#351;ekilde &#246;rnek dosyan&#305;z ile sorsayd&#305;n&#305;z bu mesaj trafi&#287;ini ya&#351;amazd&#305;K.

NOT. K&#305;rm&#305;z&#305; yerde bir hata yapm&#305;&#351;&#305;m bu &#351;ekilde d&#252;zeltin.

 

[ozgurpeh]

teşekür derim uğraşın için herkes için yararlı bir paylaşım oldu sanırım ii akşamlar

 

[uzmanamele]

as&#305;l konu &#231;&#246;z&#252;lmeden tekrar araya girmek istemedim.
bilgisayar&#305;n tarih ve saatini de&#287;i&#351;tirmek kolay oldu&#287;una g&#246;re i&#351;lem yap&#305;lan zaman saatini daha g&#252;venli se&#231;mek m&#252;mk&#252;n m&#252;?
dos alt&#305;ndan olabilir mi mesela?

 

[AS3434]

Sayın Uzmanamele

Sorduğunuz sorunun (DOS saatini aktarmak) cevabını ne yazık ki bilmiyorum.