- Katılım
- 2 Nisan 2008
- Mesajlar
- 132
- Excel Vers. ve Dili
- 2003 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 25.05.2019
Selam Hocalarım
Acaba bu makroya
Private Sub Worksheet_Change(ByVal Target As Range) |
If Intersect(Target, [C7:C1000,I7:I1000,O7:O1000]) Is Nothing Then Exit Sub |
|
If Target.Column = 3 Then |
Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy") |
Else |
Cells(Target.Row, "H") = Format(Now, "dd.mm.yyyy") |
End If |
End Sub |
Acaba bu makroya
Cells(Target.Row, "N") = Format(Now, "dd.mm.yyyy")
|