ismailozkan4224
Altın Üye
- Katılım
- 22 Kasım 2011
- Mesajlar
- 175
- Excel Vers. ve Dili
- 2007 türkçe
- Altın Üyelik Bitiş Tarihi
- 22-12-2027
aşağıdaki kodu nasıl uyarlamam lazım. bu 6 hücre değiştiğinde tarih atmasını istiyorum.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [AA2]) Is Nothing Then
If Not Intersect(Target, [AS2]) Is Nothing Then
If Not Intersect(Target, [AA22]) Is Nothing Then
If Not Intersect(Target, [AS22]) Is Nothing Then
If Not Intersect(Target, [AA32]) Is Nothing Then
If Not Intersect(Target, [AS32]) Is Nothing Then
cells(3,13)=date
'"diğer kodlar"
End If
End If
End If
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [AA2]) Is Nothing Then
If Not Intersect(Target, [AS2]) Is Nothing Then
If Not Intersect(Target, [AA22]) Is Nothing Then
If Not Intersect(Target, [AS22]) Is Nothing Then
If Not Intersect(Target, [AA32]) Is Nothing Then
If Not Intersect(Target, [AS32]) Is Nothing Then
cells(3,13)=date
'"diğer kodlar"
End If
End If
End If
End If
End If
End Sub