Public tablo
Public existtablo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If existtablo Then
For n = LBound(tablo, 2) To UBound(tablo, 2) - 1
Range(tablo(0, n)) = tablo(2, n)
Range(tablo(0, n)).Interior.ColorIndex = tablo(1, n)
Next
End If
If Target.Interior.ColorIndex = 6 Then
ReDim tablo(2, 0)
x = Target.Row
For Each cel In Range(Cells(x, 2), Cells(x + 2, 20))
tablo(0, UBound(tablo, 2)) = cel.Address
tablo(1, UBound(tablo, 2)) = cel.Interior.ColorIndex
tablo(2, UBound(tablo, 2)) = cel.Value
'
'tablo(3, UBound(tablo, 2)) = cel.Value
ReDim Preserve tablo(2, UBound(tablo, 2) + 1)
Next
existtablo = True
Range(Cells(x, 2), Cells(x + 1, 20)).Interior.ColorIndex = xlNone
For Each cel In Range(Cells(x, 2), Cells(x + 1, 20))
For Each cell In Range("ROSE")
If cel.Value = cell.Value Then
cel.Interior.ColorIndex = 3
End If
'''''''''''''''''''''''''
If cel.Value = "" Then
cel.Interior.ColorIndex = xlNone
End If
Next
Next
Set dertarget = Target
End If
End Sub