Excell'de Tarihi Sabitleme

[xxSİYaHxx]

Arkadaşlar iyi akşamlar. Bir barkod programı oluşturuyorum. Diğer formüllerimi oluşturdum ama tarih formülünde takıldım. Örnek olarak ta gönderdim. Ama buradanda bahsedeyim.

Yardım Edecek olan arkadaşım ben (( A )) sutununa herhangi bir karakter yazdığımda (( G )) Sutuna tarih ve saati atmasını istiyorum. Ama 24 saat döndüğünde bir sonraki gün yeni veri girdiğimde eski verilere verilen tarih ve saatlerinin sabit kalmasını istiyorum. Örneğin bugün 09.12.2012 21:30 yarın yani 10.12.2012 x bir saatte giriş yaptığım. 09.12.2012 21:30'un sabit kalması değişmemesini istiyorum. Bu formülle mümkün mü?

Lütfen acil yardımlarınızı bekliyorum. Emeği geçecek olan herkese şimdiden teşekkürler

 

[Orion1]

formülle olmaz ama vba kodlama ile olur.
dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Offset(0, 6).Value = ""
Target.Offset(0, 6).Value = Now
Target.Offset(0, 6).NumberFormat = "dd.mm.yyyy hh:mm"
End Sub

 

[xxSİYaHxx]

Emeğine sağlık arkadaşım süper olmuş. Ama küçük bir sorun var saati atmıyor

 

[Orion1]

Emeğine sağlık arkadaşım süper olmuş. Ama küçük bir sorun var saati atmıyor

dosyayı güncelledim.
2 nolu mesajdan indirebilirisiniz.

 

[xxSİYaHxx]

Allah razı olsun... Emeğine bilgine sağlık... Çok Teşekürler arkadaşım

 

[hsen]

merhaba, excel de bir hücreye değer girildiğinde veya hücre başka bir yerden bilgi aldığında başka bir hücreye bu günün tarihini atmasını istiyorum. bunu şu formülle yaptım =EĞER(C641<>"";(BUGÜN())) ve =EĞER(G641="";"";EĞER(G641<>"OK";BUGÜN())) ayrıca aşağıdaki bu kodlar ile de başka işlemler yapmasını istedim. Ancak bu gün attığı tarihi ertesi gün değiştiriyor bunu sabitlemenin bir yolu varmı. acil yardımınızı rica ediyorum. teşekkürler. Bu arada forumda bir sürü örneğe baktım ama olmuyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B5536]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Offset(-1, -1).Value = "" Then
Target.Offset(0, -1).Value = 1
Else
Target.Offset(0, -1).Value = Target.Offset(-1, -1).Value + 1
End If
End Sub
Sub Uppercase()
' Belirtilen aralıktaki her bir hücreye tek tek git.
For Each x In Range("e9:e1500")
' Aralıktaki metni büyük harflere dönüştür.
x.Value = UCase(x.Value)
Next
End Sub