Dakika yenileme yapmasın

[xexcel100]

Merhaba;

Personel giriş saatini bir hücrede tutmak istiyorum. ŞİMDİ(); fonksiyonu kullanıyorum sürekli dakikayı güncelliyor. Dikkatimi çeken başka bir durum ise çalışma kitabında herhangi bir yerde veri girişi olduğu zaman bu FORMUL kendiliğinden refresh oluyor . Ben dakikayı güncellemesini istemiyorum.
kullandığım kendi formülüm bu; başka çaresi varmı?

c1 hücresine şunu yazıyorum=EĞER(M16<>M15;ŞİMDİ();"")

 

[bzace]

Merhaba,
EĞER(M16<>M15 bu kısım ne oluyor?
Kodu ilgili sayfanın kod bölümüne girerek deneyiniz.
Verilerinizi de M15:M30 aralığına girip, N15:N30 aralığını gözlemleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M15:M30")) Is Nothing Then
Application.EnableEvents = False
 With Target.Offset(0, 1)
  If Target <> "" Then
   .Value = Now
   .EntireColumn.AutoFit
  End If
 End With
 With Target.Offset(0, 1)
  If Target = "" Then
   .Value = ""
   .EntireColumn.AutoFit
  End If
 End With
End If
Application.EnableEvents = True
End Sub

Saygılar,
Hay marja!

 

[xexcel100]

Dakika koşula göre geliyor

m15 ve m16 dışardan veri geliyor. Bu verilere göre c1 de saat tutacak. ve saatin dakikası güncellenmeyecek

c1 hücresine şunu yazıyorum=EĞER(M16<>M15;ŞİMDİ();"")

 

[xexcel100]

formulunuz işimi görmedi

m15 ve m16 dışardan veri geliyor. Bu verilere göre c1 de saat tutacak. ve saatin dakikası güncellenmeyecek

c1 hücresine şunu yazıyorum=EĞER(M16<>M15;ŞİMDİ();"")
burdaki amaç m15 ve m16 ya göre saat tutması

Merhaba,
EĞER(M16<>M15 bu kısım ne oluyor?
Kodu ilgili sayfanın kod bölümüne girerek deneyiniz.
Verilerinizi de M15:M30 aralığına girip, N15:N30 aralığını gözlemleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M15:M30")) Is Nothing Then
Application.EnableEvents = False
 With Target.Offset(0, 1)
  If Target <> "" Then
   .Value = Now
   .EntireColumn.AutoFit
  End If
 End With
 With Target.Offset(0, 1)
  If Target = "" Then
   .Value = ""
   .EntireColumn.AutoFit
  End If
 End With
End If
Application.EnableEvents = True
End Sub

Saygılar,
Hay marja!

yazdığınız bu formül işimi görmedi

 

[PLİNT]

Merhaba
Ek dosyadaki gibi KTF ile deneyebilirsiniz.

http://s3.dosya.tc/server6/ggdk8t/saat.zip.html

"m15" veya "m16" hücrelerindeki veri değişmedikçe saat aynı kalacaktır.
Bir module aşağıdaki kodu ekleyip deneyin.

Public Function sabit(ByVal bak As Range, ByVal bak2 As Range) As Double
   If bak <> bak2 Then sabit = Now()
End Function

 

[xexcel100]

teşekkürler

Merhaba
Ek dosyadaki gibi KTF ile deneyebilirsiniz.

http://s3.dosya.tc/server6/ggdk8t/saat.zip.html

"m15" veya "m16" hücrelerindeki veri değişmedikçe saat aynı kalacaktır.
Bir module aşağıdaki kodu ekleyip deneyin.

Public Function sabit(ByVal bak As Range, ByVal bak2 As Range) As Double
   If bak <> bak2 Then sabit = Now()
End Function

Süpersiniz Çok teşekkür ederim. işimi gördü. Fakat Çoklu hücreye uyguladığım zaman hücreler eşitse saati 00;00;00 veriyor. Bunu gizleyemezmiyim.

 

[PLİNT]

Fakat Çoklu hücreye uyguladığım zaman hücreler eşitse saati 00;00;00 veriyor. Bunu gizleyemezmiyim.

Merhaba
Hücredeki formülü aşağıdaki gibi deneyin.

 =EĞER(sabit(M17;M18);sabit(M17;M18);"")

 

[xexcel100]

teşekkürler

Merhaba
Hücredeki formülü aşağıdaki gibi deneyin.

 =EĞER(sabit(M17;M18);sabit(M17;M18);"")

Çok Teşekkür ederim. Çalıştı.İşim görüldü.