Aşağıdaki kodda gerial çalışmıyor eklenbilirmi?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If ActiveCell.Row > ilksat And ActiveCell.Row < sonsat Then Exit Sub
Cells.FormatConditions.Delete
[z1] = 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row + 0, 90)).FormatConditions.Add Type:=xlExpression, Formula1:="=$z$1=1"
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row + 0, 90)).FormatConditions(1).Interior.ColorIndex = 33
ilksat = ActiveCell.Row
sonsat = ActiveCell.Row + 3
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If ActiveCell.Row > ilksat And ActiveCell.Row < sonsat Then Exit Sub
Cells.FormatConditions.Delete
[z1] = 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row + 0, 90)).FormatConditions.Add Type:=xlExpression, Formula1:="=$z$1=1"
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row + 0, 90)).FormatConditions(1).Interior.ColorIndex = 33
ilksat = ActiveCell.Row
sonsat = ActiveCell.Row + 3
End Sub
