Tarih Güncellenmesin...

[desperaddo_21]

Merhaba Arkadaşları.
Benim Excel'de yapmak istediğim bir işlem var fakat ince bir ayrıntısı var ama bir türlü çözemedim.
Örneğin ben A1 hücresine herhangi bir değer girdiğim zaman D1 hücresine otomatik olarak bugünün tarihini yazdırmak istiyordum ve şöyle bir formül ürettim: d1 hücresine =eğer(a1<>" ";bugün();" ") ve bu formül istediğim soucu verdi. Fakat programı bir sonraki gün açtığımda oluşan tarihler otomatik olarak güncellenmiş. işte bu güncellenmenin olmasını istemiyorum. yani dünün tarihi yazılmış ise ben programı hangi gün açarsam açıyım o tarihin sabit kalmasını değişmemesini istiyorum.
Yardımcı olarsanız sevinirim. Şimdiden Teşekkürler

 

[Orion1]

Bu iş için kod kullanınız.
Çalışma sayfasının kod bölümüne worksheet_change olayına aşağıdaki kodu giriniz.

if intersect(target,[A1]) is nothing then exit sub
on error resume next
if target.value <> "" then range("D1").value=date

 

[desperaddo_21]

Evren Gizlen;
Hocam &#231;ok te&#351;ekk&#252;r ederim ama olmad&#305;. verdi&#287;iniz kodu yap&#305;&#351;t&#305;rd&#305;m fakat sonu&#231; yok, yada ben yapamad&#305;m.
&#351;&#246;yle s&#246;yliyim,
A1 de al&#305;nan malzeme, b1 ve c1 deki de&#287;erler &#246;nemli de&#287;il, D1 de ise al&#305;&#351; tarihi var. ben al&#305;nan malzemenin alt&#305;na kay&#305;t girdi&#287;imde tarihi otomatik olarak bug&#252;n&#252;n tarihi olsun istiyorum. yazd&#305;&#287;&#305;m form&#252;lle oluyor ama bir sonraki g&#252;n b&#252;t&#252;n tarihler g&#252;ncellenmi&#351; oluyor ve ben g&#252;ncellenmesini istemiyorum. te&#351;ekk&#252;rler...

 

[desperaddo_21]

arkada&#351;lar l&#252;tfen yard&#305;mc&#305; olun &#231;ok acil laz&#305;m. bu arada Excel 2002(XP) kullan&#305;yorum. cevaplar&#305;n&#305;z&#305; bekliyorum te&#351;k...

 

[Orion1]

Ekli dosyayı inceleyiniz.
Makroları etkinleştirmeyi unutmayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, 3).Value = Empty
If Target.Value <> "" Then Target.Offset(0, 3).Value = Date
End Sub

 

[desperaddo_21]

Evet Sevgili "Evren Gizlen" hocam &#231;ok te&#351;ekk&#252;r ederim yard&#305;m&#305;n&#305;zdan dolay&#305;. sa&#287;olun &#231;al&#305;&#351;malar&#305;n&#305;zda ba&#351;ar&#305;lar diliyorum...

 

[Orion1]

Evet Sevgili "Evren Gizlen" hocam çok teşekkür ederim yardımınızdan dolayı. sağolun çalışmalarınızda başarılar diliyorum...

Rica ederim.
iyi çalışmalar.