markstro
07-26-2016, 08:06 AM
Good Day forum, I have two macro enabled workbooks using MS 2013 Excel with automatic formula calculation enabled.
Using the VBA below along with conditionally formatting the selected cell will be automatically highlighted up to the Row 1 and to the left to Col A with the formatting selected in the conditional formatting setup.
I've attempted to share this with a coworker and it appears as if the formula calculation is set to manual when it is set to automatic, F9 will enable the macro, but you have to press it every time when you select another cell. Works fine in my workbook but not the coworker.
How do you trouble shoot or solve this problem?
Private Sub Workbook_Open()
End Sub
Sub EnableEvents()
Application.EnableEvents = 1
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
CONDITIONAL FORMATTING FORMULA IS:
=OR(AND(CELL("row")=ROW(),COLUMN()<=CELL("col")),AND(CELL("col")=COLUMN(),ROW()<=CELL("row")))
Using the VBA below along with conditionally formatting the selected cell will be automatically highlighted up to the Row 1 and to the left to Col A with the formatting selected in the conditional formatting setup.
I've attempted to share this with a coworker and it appears as if the formula calculation is set to manual when it is set to automatic, F9 will enable the macro, but you have to press it every time when you select another cell. Works fine in my workbook but not the coworker.
How do you trouble shoot or solve this problem?
Private Sub Workbook_Open()
End Sub
Sub EnableEvents()
Application.EnableEvents = 1
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
CONDITIONAL FORMATTING FORMULA IS:
=OR(AND(CELL("row")=ROW(),COLUMN()<=CELL("col")),AND(CELL("col")=COLUMN(),ROW()<=CELL("row")))