şimdi fonksiyonuyla ilgili çok önemli bir soru?

[weycell1978]

Herkese Merhaba,

B1 hücresine =EĞER(A1>0;ŞİMDİ())
B2 hücresine =EĞER(A2>0;ŞİMDİ())

formülünü giriyorum. A1 hücresine 0 dan büyük bir sayı girdiğimde B1' o anki zamanı yazıyor. Bunu istiyorum buraya kadar sorun yok,

ancak A2 ye de bir sayı girdiğimde sadece B2 deki hücreye o anki zamanı yazsın istiyorum ancak o sayfadaki bütün =şimdi() formüllü hücreler etkileniyor ve hepsi o anki zamana günceleniyor.

1 14:44:48
1 14:44:48

Alttaki gibi olsun istiyorum,

1 14:44:48
1 14:55:10

Bana acil yardımcı olursanız çok memnun alorum. Belki basit birşey ama bulamadm. Çok önemli.. Yardımlarınızı bekliyorum.

 

[hamitcan]

Araçlar>Seçenekler> içinden formülleri "El ile hesapla" seçeneğini işaretleyerek çözebilirsiniz sanırım.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a2]) Is Nothing Then Exit Sub
If Target.Value > 0 Then
Target.Offset(0, 1) = Now
End If
End Sub

 

[weycell1978]

olmuor

Teşekkür ederim cevap için ancak olmadı,

Elle hesapla dediğimde B1 hücresindeki =EĞER(A1>0;ŞİMDİ()) formülü işlemiyor, F9 yada hesapla dediğimde ise yine o sayfadaki bütün hücreler o anki saate güncelleniyor. Bunu yapmak istememin amacı şu,

Ben ilk hücreye personel kodu girdiğimde o an ki saati yan hücreye yazsın orda o sabit kalsın her personelin ayrı ayrı zaman kayıtları olsun istiyorum.

Naıl olacak beyin fırtınası lütfen ? Koskoca Excel bunu yapamıyor mu?

 

[weycell1978]

uzmanamele Teşekkürler , ancak üzgünüm sanırım konuyu excel 'e yeni başlayanlara açmam gerekiyordu. rica etsem o kodu nasıl oygulayacağımı biraz açarmısın ?

 

[uzmanamele]

merhaba

ilgili sayfa adını sağ tıklayın, kod görüntüle
açılan yeni pencerede önerdiğim kodu kopyalayarak yapıştırın.

a1 veya a2 hücresine 0'dan büyük bir değer yazdığınızda yanındaki b hücresine o anki zamanı yazar.

 

[weycell1978]

Çok sağolun oldu, şimdi bunu tek tek hücre isimlerini yazacakmıyım A sütununu komple yapabilir miyiz ? Başka birşey istemiyorum şimdilik..

 

[uzmanamele]

Çok sağolun oldu, şimdi bunu tek tek hücre isimlerini yazacakmıyım A sütununu komple yapabilir miyiz ? Başka birşey istemiyorum şimdilik..

merhaba

ilgili kodu aşağıdaki ile değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target.Value > 0 Then
Target.Offset(0, 1) = Now
End If
End Sub

 

[weycell1978]

uzmanamele çok teşekkür ederim tam istediğim gbi,

Şunu da anlamış durumdayım excel de hakikaten bir çok şey yapılabiliryor. Önemli olan macro ve vb bilmek sanırım..

Basit manada istediğim buydu ancak sizin bilginizden istifade edebilirsem çok daha iyisini yapabilirm. Tam olarak yapmak istediğimi size söylesem bu kodu birazcık geliştirebilirmisiniz ? Bu konuda yardımcı olur musunuz ?

 

[uzmanamele]

uzmanamele çok teşekkür ederim tam istediğim gbi,

Şunu da anlamış durumdayım excel de hakikaten bir çok şey yapılabiliryor. Önemli olan macro ve vb bilmek sanırım..

Basit manada istediğim buydu ancak sizin bilginizden istifade edebilirsem çok daha iyisini yapabilirm. Tam olarak yapmak istediğimi size söylesem bu kodu birazcık geliştirebilirmisiniz ? Bu konuda yardımcı olur musunuz ?

merhaba
siz örnek dosyanızı ekleyiniz, bir çok arkadaşımızın yardımcı olacağına emin olabilirsiniz.
sorularınızı kişiye özel sorarsanız yanıtı tek bir kaynaktan almak istiyorsunuzdur ve ya ben nasıl yapıldığını bilmiyorsam ne olacak?