veri girilirse tarih yazma

[mutluedenercan]

üç stuna veri girişi olsun, her sutuna veri girilince yanındaki hücreye tarihi yazsın bugü() işimi görmez o tarih yazılınca güncellenmemeli

 

[Ömer]

Merhaba,

Çalıştığınız sayfanın kod bölümüne kopyalayınız.

A, B ve C sütunlarına veri girince D sütununda tarih yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:C65536]) Is Nothing Then
If Cells(Target.Row, "A") <> "" And Cells(Target.Row, "B") <> "" _
And Cells(Target.Row, "C") <> "" Then
Cells(Target.Row, "D") = Format(Date, "dd/mmmm/yyyy")
End If
End If
End Sub

.

 

[harziyan]

Bu da benden olsun, alternatif...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
        ActiveCell.Offset(-1, 1).Select
        ActiveCell.Value = Date
End If
If Not Intersect(Target, Range("c:c")) Is Nothing Then
        ActiveCell.Offset(-1, 1).Select
        ActiveCell.Value = Date
End If
If Not Intersect(Target, Range("e:e")) Is Nothing Then
        ActiveCell.Offset(-1, 1).Select
        ActiveCell.Value = Date
End If
End Sub

 

[mutluedenercan]

İlk kodu denedim çalıştı ancak üç hücredede veri varsa d ye tarih atıyor..
bağımsız olamıyor.. a da veri varsa b ye tarih, c de veri varsa d ye tarih gibi..

 

[Ömer]

İlk kodu denedim çalıştı ancak üç hücredede veri varsa d ye tarih atıyor..
bağımsız olamıyor.. a da veri varsa b ye tarih, c de veri varsa d ye tarih gibi..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:E65536]) Is Nothing Then
If Target = "" Then Exit Sub
If Target.Column Mod 2 = 1 Then
Target.Offset(0, 1) = Format(Date, "dd/mmmm/yyyy")
End If
End If
End Sub

.

 

[mbattal]

Arkadaşlar
2 ve 3 numaralı makrolu çözümü hiç makro kullanmadan sadece formüllerle yapabilirmiyiz ?

 

[Ömer]

Merhaba,

Fonksiyonlar kendini güncellediği için yapamazsınız.

.