otomatik tarih

[krmtr]

Ekte verdiğim dosyada tl ye veri girdiğimde altındaki tarihi otomatik olarak eklemesini istiyorum. Ama bu sağa doğru sürekli olarak veri girişine olanak sağlayacak.
Şimdiden çok teşekkürler...

 

[CorleONE01]

Dosyanız EK'tedir. İyi Çalışmalar

 

[krmtr]

çalışmayı her açışımda bugün değeri değişmez mi??

 

[CorleONE01]

kusura bakma doğru soyluosun 5 işi birden yapmaya kalkınca boyle bır hata cıktı

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Target.Column = 1 Then Exit Sub
Sonuc = Target.Row Mod 2
If Sonuc <> 0 Then Exit Sub
Target.Offset(1, 0) = Date
Son:
End Sub

 

[ersoyalan]

Merhaba,

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Aralik As Range, ilk As Range
Set Aralik = Range("D2:IV1000")
Application.EnableEvents = False
For Each ilk In Range(Target.Address)
If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(1, 0) = Date
Next ilk
Application.EnableEvents = True
Set Aralik = Nothing
End Sub

İlgili kodu sayfanızın kod bölümüne yapıştırıp denermisiniz.



E.ALAN

 

[1Al2Ver]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Target.Column = 1 Then Exit Sub
Sonuc = Target.Row Mod 2
If Sonuc <> 0 Then Exit Sub
Target.Offset(1, 0) = Date
Son:
End Sub

Merhaba,

Kod'da, tarihi bir soldaki hücreye yazdırmak isteseydik, neresinde değişiklik yapmak gerekirdi ? ( Veri B sütununda, tarih A sütununda )

Teşekkür ederim.

 

[Necdet]

Merhaba,

Bütün numara offset fonksiyonunda.

Target.Offset(0, -1) = Date --> Bulunulan hücrenin soluna
Target.Offset(-1, 0) = Date --> Bulunulan hücrenin bir üstüne
Target.Offset(-1, -1) = Date --> Bulununalan hücrenin bir üst satır ve sol hücreye gibi

 

[ozgretmen]

Merhaba,
Kod'da, tarihi bir soldaki hücreye yazdırmak isteseydik, neresinde değişiklik yapmak gerekirdi ? ( Veri B sütununda, tarih A sütununda )
Teşekkür edrim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, -1) = Date
End If
End Sub

 

[1Al2Ver]

Merhaba,

Bütün numara offset fonksiyonunda.

Target.Offset(0, -1) = Date --> Bulunulan hücrenin soluna
Target.Offset(-1, 0) = Date --> Bulunulan hücrenin bir üstüne
Target.Offset(-1, -1) = Date --> Bulununalan hücrenin bir üst satır ve sol hücreye gibi

Sayın Necdet Yeşertener merhaba,

Hem cevap hem de öğretici bilgiler için, teşekkür ederim.

Saygılarımla.

 

[1Al2Ver]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, -1) = Date
End If
End Sub

Sayın ozgretmen merhaba,

İlginiz ve alternatif çözüm örneğiniz için, teşekkür ederim.

Saygılarımla.

 

[Erdem Akdemir]

alternatif

Sub auto_open()
Worksheets(1).OnEntry = "auto_open"
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0) = Date
End If
End Sub