DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub
For Each alan In Range("O[b][color=red]1[/color][/b]:O[b][color=red]65000[/color][/b]")
If alan.Value = "DİKKAT" Then
alan.Font.ColorIndex = Choose((Int(Rnd * 6) + 1), 3, 4, 5, 6, 7, 8)
ElseIf alan.Value = "YOK" Then
alan.Font.ColorIndex = 1
Else
Exit Sub
End If
Next
End Sub