DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayın Ahmet1,Basit gibi değilmi..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sinir(8)
sinir(1) = [g4]
sinir(2) = [h4]
sinir(3) = [I4]
sinir(4) = [j4]
sinir(5) = [k4]
sinir(6) = [l4]
syc = 1
For sut = 2 To 5
For sat = 3 To 11
krr = Cells(sat, 5)
d = Cells(sat, sut).Value
If (d < sinir(syc) Or d > sinir(syc + 1)) Then Cells(sat, sut).Font.ColorIndex = 3
If Not (d < sinir(syc) Or d > sinir(syc + 1)) Then Cells(sat, sut).Font.ColorIndex = 0
If krr = "X" Then Cells(sat, sut).Interior.ColorIndex = 6
If Not krr = "X" Then Cells(sat, sut).Interior.ColorIndex = xlNone
Next
syc = syc + 2
Next
End Sub