Soru Sabit gün yazdırmak TODAY()

[gimmeluck2]

Merhaba,
B1 , B2 B3 ... etc hücrelerine bazı günlerde veri girilecek.

B1 hücresine bir yazı yazdığımda
otomatik olarak exccelin A1 hücresine bugünün tarihini atmasını istiyorum. Ama o tarih orada sabit kalacak hep günler ilerleyince değişmeyecek.

Aynı şekilde B2 hücresine bir veri girdiğimde,
otomatik olarak exccelin A2 hücresine bugünün tarihini atmasını istiyorum. Ama o tarih orada sabit kalacak hep.

mümkün müdür?

 

[Necdet]

Merhaba,
Forumda çok işlenen bir konu ama yine de kodları verelim.
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Value = "" Then
    Target.Offset(0, -1) = ""
Else
    Target.Offset(0, -1) = Date
End If

End Sub

 

[gimmeluck2]

Merhaba,
Forumda çok işlenen bir konu ama yine de kodları verelim.
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Value = "" Then
    Target.Offset(0, -1) = ""
Else
    Target.Offset(0, -1) = Date
End If

End Sub

çalıştı hocam, teşekkürler,
ama şu var,

B1 B3 B3 .. de IF'li bir formül var. ( başka bir yerden veri çekiyor)
Eğer o formul sonucu bosluk ise A sütununa tarih yazmasın, ama boşluk değil herhangi birşey yazıyorsa tarih yazsın A sütununa,
nasıl yaparız acaba
yukarıdakinde o işlemiyor da.

 

[Necdet]

Zaten verdiğim kodda istediğiniz kontrol var.
Başka bir yerden veri çekiyor demişsiniz, onu ilk sorunuzda söylemeniz ve gerekiyordu.
kodda B sütunu değil o zaman b sütununu oluşturan sütunları kontrol etmeniz gerekir.