hucrelere kosullu otomatik tarih atama

[aykut12344]

Arkadaslar A sutununa yani A1 A2 A3 gibi A sutununda herhangi bit yere bir deger girildiginde hemen sag tarafindaki hucreye otomatik olarak o anki zamani yazdirmak istiyorum bunu nasil yaparim ?

 

[turist]

Çalışma Sayfanızın KOD bölümüne:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = Date & " - " & Time
End Sub

olarak uygulayınız.

 

[aykut12344]

Çalışma Sayfanızın KOD bölümüne:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = Date & " - " & Time
End Sub

olarak uygulayınız.

İntersext Target Target.Row tarzı kodları ilk defa görüyorum bunlarla ilgili geniş bilgiyi nasıl ve nereden bulabilirim

 

[Korhan Ayhan]

Merhaba,

Bahsi geçen komutlar genellikle sayfa olaylarında kullanılır.

Target = Hedef anlamındadır. Son işlem gören hücreyi ifade eder.
InterSect = Kesişim anlamındadır. İşlem yapılan hücrenin belirtilen alanla kesişip kesişmediğini sorgulamak için kullanılır.

Sayfa olayları ile ilgili aşağıdaki linki inceleyebilirsiniz.

Sayfaya Ait Kodlar ve Uygulama Yöntemleri (Resimli Anlatım)