- Katılım
- 11 Nisan 2007
- Mesajlar
- 125
- Excel Vers. ve Dili
- excel=2016
türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C65536]) Is Nothing Then
Cells(Target.Row, "E") = Date
End If
End Sub
dedikleriniz yaptım fakat olmadı yada ben bir yerde hata yaptım gönderdiğim örnek üzerinde yapıp tekrar dosyayı ekleseniz sevinirim.