Modül kodlar;
Public dursunmu As Boolean
Public Sub Basla()
dursunmu = False
End Sub
Public Sub Durdur()
dursunmu = True
End Sub
Sayfa kodlar;
Sub Worksheet_SelectionChange(ByVal Target As Range)
Static xRow
Static xColumn
If dursunmu = True Then
Cells.Interior.ColorIndex = xlNone
Exit Sub
End If
If xColumn <> "" Then
Columns(xColumn).Interior.ColorIndex = xlNone
Rows(xRow).Interior.ColorIndex = xlNone
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
Eğer verdiğim ilgili kodu alttaki gibi yaparsanız makro çalışınca renkler gider.
Public Sub Durdur()
dursunmu = True
Cells.Interior.ColorIndex = xlNone
End Sub