I have a macro that changes the color of a merged cell once data has been entered, but it only changes the main cell, but the hidden merged portion of the merged cell ( A12 and A13 are merged, A12 color will change, but not A13). I have the macro set to change active cell once data is entered, so the hidden portion is not changing. My issue is; I have a macro that checks for cells with the incomplete color, so the macro finds the hidden portions of the merged cells and returns an answer that has several incomplete cells.
If I manually change the color, the hidden cells do change, but my macro does not change the hidden portions.
Is there a way to get all merged portions of the cells to change color?
Thanks!
sub for cell (cell click event):
myValue = InputBox("What is the MIX number?")
ActiveCell.Value = myValue
ActiveCell.Interior.ColorIndex = 4
sub for checking cell color (assigned to a button, once the sheet is complete):
For Each cell In myRange
If cell.RowHeight <> 0 Then
If cell.Interior.Color = 15773696 Then
a = a + 1
ElseIf cell.Interior.Color = 65535 Then
y = y + 1
ElseIf cell.Interior.Color = 10498160 Then
x = x + 1
End If
End If
Next cell
Sheets("Validation").Cells(13, 1) = a
Sheets("Validation").Cells(12, 1) = y
Sheets("Validation").Cells(14, 1) = x
If I manually change the color, the hidden cells do change, but my macro does not change the hidden portions.
Is there a way to get all merged portions of the cells to change color?
Thanks!
sub for cell (cell click event):
myValue = InputBox("What is the MIX number?")
ActiveCell.Value = myValue
ActiveCell.Interior.ColorIndex = 4
sub for checking cell color (assigned to a button, once the sheet is complete):
For Each cell In myRange
If cell.RowHeight <> 0 Then
If cell.Interior.Color = 15773696 Then
a = a + 1
ElseIf cell.Interior.Color = 65535 Then
y = y + 1
ElseIf cell.Interior.Color = 10498160 Then
x = x + 1
End If
End If
Next cell
Sheets("Validation").Cells(13, 1) = a
Sheets("Validation").Cells(12, 1) = y
Sheets("Validation").Cells(14, 1) = x