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)
On Error Resume Next
If Target.Column = 17 And Target.Value <> "" Then
Cells(Target.Row, 26) = Date
Cells(Target.Row, 27) = Time
End If
If Target.Column = 17 And Target.Value = "" Then
Cells(Target.Row, 26) = ""
Cells(Target.Row, 27) = ""
End If
adr = "a" & Target.Row & ":y" & Target.Row
If Target.Column = 1 Then Range(adr).Interior.ColorIndex = 40
If Target.Column = 16 Then Range(adr).Interior.ColorIndex = 34
If Target.Column = 8 And InStr(Target, "IPTAL") > 0 Then Range(adr).Interior.ColorIndex = 3
End Sub