doldurulan hücrenin yanına saat yazmak

[hasanbaro]

merhaba arkadaşlar,
A1 hücresine herhangi bir değer yazdığımda B1 hücresine sistemin saatini yazdırmak istiyorum. Yardımcı olursanız sevinirim

 

[Mahir64]

merhaba arkadaşlar,
A1 hücresine herhangi bir değer yazdığımda B1 hücresine sistemin saatini yazdırmak istiyorum. Yardımcı olursanız sevinirim

Merhaba
Alıntıdır
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "hh:mm")
End Sub

 

[hasanbaro]

selam bunu eğer formülü ile yapabilirmiyiz.
selamlar

 

[İhsan Tank]

selam bunu eğer formülü ile yapabilirmiyiz.
selamlar

=eğer(a1="";"";metneçevir(şimdi();"ss:dd"))

 

[Mahir64]

selam bunu eğer formülü ile yapabilirmiyiz.
selamlar

Kalıcı olmaz ama her işlemde değişir

=EĞER(A1="";"";METNEÇEVİR(ŞİMDİ();"ss:dd:nn"))

 

[hasanbaro]

işlem tamam
çok teşekkür ederim
saygılar

 

[Mahir64]

işlem tamam
çok teşekkür ederim
saygılar

Kolay gelsin
iyi çalışmalar :hey:
İhsan bey mesajınızı yazınca gördüm.

 

[hasanbaro]

Sevgili mahir sistemin saati değiştikce diğer hücrelerdeki saat te değişiyor. Her hücredeki saat sabit kalamazmı
saygılar

 

[İhsan Tank]

İhsan bey mesajınızı yazınca gördüm.

sorun yok böyle iyi

Sevgili mahir sistemin saati değiştikce diğer hücrelerdeki saat te değişiyor. Her hücredeki saat sabit kalamazmı
saygılar

saat sistem saati ile birlikte değişir sabit kalmaz.
sabir kalması için formül değil makro kullanmalısınız

 

[hasanbaro]

Anladım
emniyette araç sorgu kısmında çalışıyorum
devamlı araç sorgusu yapıp liste tutuyorum.
Saati sabitleyebilseydim işim biraz daha kolaylaşacaktı
zahmetlerinizden dolayı teşekkür ederim
saygılar

 

[Mahir64]

Sevgili mahir sistemin saati değiştikce diğer hücrelerdeki saat te değişiyor. Her hücredeki saat sabit kalamazmı
saygılar

Merhaba
İlkbaşta verdiğim makroyu sayfanın kod bölümüne uygulayarak deneyiniz.

 

[İhsan Tank]

Anladım
emniyette araç sorgu kısmında çalışıyorum
devamlı araç sorgusu yapıp liste tutuyorum.
Saati sabitleyebilseydim işim biraz daha kolaylaşacaktı
zahmetlerinizden dolayı teşekkür ederim
saygılar

dosyayı inceler misiniz

 

[hasanbaro]

hocam teşekkür ederim
işim halloldu
saygılar

 

[İhsan Tank]

hocam teşekkür ederim
işim halloldu
saygılar

rica ederim
:yazici:

 

[hasanbaro]

Ihsan bey iyi günler
çalışmanız beni aydınlattı ancak ekte gönderdiğim çizelgeyi inceleyip sarı renkli hücrelerde işlemi gerçekleştirmek istiyorum.
Vaktin varsa yardımcı olabilirsen sevinirim
saygılar
DOSYAYI EKLEYEMEDİM

 

[hasanbaro]

Ihsan bey iyi günler
çalışmanız beni aydınlattı ancak ekte gönderdiğim çizelgeyi inceleyip sarı renkli hücrelerde işlemi gerçekleştirmek istiyorum.
Vaktin varsa yardımcı olabilirsen sevinirim
saygılar

 

[İhsan Tank]

Ihsan bey iyi günler
çalışmanız beni aydınlattı ancak ekte gönderdiğim çizelgeyi inceleyip sarı renkli hücrelerde işlemi gerçekleştirmek istiyorum.
Vaktin varsa yardımcı olabilirsen sevinirim
saygılar

merhaba
İCMAL sayfasının kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E4:E43]) Is Nothing Then Cells(Target.Row, "F") = Format(Now, "hh:mm")
If Not Intersect(Target, [G4:G43]) Is Nothing Then Cells(Target.Row, "H") = Format(Now, "hh:mm")
If Not Intersect(Target, [I4:I43]) Is Nothing Then Cells(Target.Row, "J") = Format(Now, "hh:mm")
If Not Intersect(Target, [K4:K43]) Is Nothing Then Cells(Target.Row, "L") = Format(Now, "hh:mm")
End Sub

bu kodu yapıştırınız.
eki inceleyiniz

 

[hasanbaro]

Eyvallah üstadım
eline sağlık
işim çok kolaylaştı
teşekkürler

 

[İhsan Tank]

Eyvallah üstadım
eline sağlık
işim çok kolaylaştı
teşekkürler

rica ederim
:yazici:

 

[hasanbaro]

hocam iyi günler
zahmetin için tekrar teşekkür ederim.
ancak belge ilk açtığımda çalıştı, sonraki açmalarımda çalışmadı
işin içinden çıkamadım
saygılar