tarihin değişmemesi

[zafer kahveci]

Merhaba,

Forumlarda biraz aradım ama, tam olarak istediğimi bulamadım.
istediğim şudur; ben bugünün tarihini today() yazarak koyabiliyorum ama, yarın geldiğimde tarihin değişmemesini istiyorum, yani b sütununa veri girdiğimde a sütununa bugünün tarihinin girilip ertesi günler değişmemesini istiyorum,

teşekkürler.

 

[Vedat Özer]

Selamlar,

Aşagıdaki linki inceleyin,

Konu

 

[zafer kahveci]

Vedat hocam teşekkürler istediğimi aldım ama aşağıda yazdığım kodu aynı sayfada ikinci defa kullanmak istiyorum,yani hem C sütununda hem de H sütununda kullanmak istiyorum, aynısını kopyalayıp harfleri değiştirdim ama hata veriyor.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo son

If Intersect(Target, [C2:C1500]) Is Nothing Then Exit Sub

Target.Offset(0, -1).Value = Now

son:

End Sub

 

[zafer kahveci]

yardım lütfen!

 

[zafer kahveci]

Üstadlarım yardım lütfen, hala çözemedim..

 

[Skorpiyon]

Sayın zafer kahveci, istediğiniz bu mudur ?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [C2:C1500, H2:H1500]) Is Nothing Then Exit Sub
Target.Offset(0, -1).Value = Now
son:
End Sub

 

[zafer kahveci]

sayın Skorpiyon hocam,

çok teşekkürler, dosyam oldu, bir sorum daha olacak, ben tarihin bir gün öncesini göstermesini istiyorum, kodda nerede değişiklik yapmam gerekiyor.

saygılar.

 

[zafer kahveci]

saat gösterip tarihi bir gün öncesini almak istiyorum

 

[zafer kahveci]

hocalarım yardım lütfen

 

[Skorpiyon]

Kodu aşağıdaki şekilde düzelterek deneyiniz.

Target.Offset(0, -1).Value = Now - 1

 

[zafer kahveci]

Hocam çok teşekkürler, iyi çalışmalar