F
Francois via OfficeKB.com
Can anyone point me in the right direction with this Macro.
I'm trying to get some Conditional Formatting through VBA when I download
data fron an ODBC link.
As it stands, the Macro below (which I got from the Forum) colours the cells
correctly if the data is keyed / pasted into the Spreadsheet, but NOT after
an ODBC download.
Can anyone assist?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("C1:C50")) Is Nothing Then
With Target
Select Case UCase(.Value)
Case "A": .Interior.ColorIndex = 3
Case "B": .Interior.ColorIndex = 4
Case "C": .Interior.ColorIndex = 5
Case "D": .Interior.ColorIndex = 6
Case "E": .Interior.ColorIndex = 7
Case "F": .Interior.ColorIndex = 8
Case "G": .Interior.ColorIndex = 9
Case "H": .Interior.ColorIndex = 10
Case "I": .Interior.ColorIndex = 11
Case "J": .Interior.ColorIndex = 12
Case "K": .Interior.ColorIndex = 13
End Select
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
I'm trying to get some Conditional Formatting through VBA when I download
data fron an ODBC link.
As it stands, the Macro below (which I got from the Forum) colours the cells
correctly if the data is keyed / pasted into the Spreadsheet, but NOT after
an ODBC download.
Can anyone assist?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("C1:C50")) Is Nothing Then
With Target
Select Case UCase(.Value)
Case "A": .Interior.ColorIndex = 3
Case "B": .Interior.ColorIndex = 4
Case "C": .Interior.ColorIndex = 5
Case "D": .Interior.ColorIndex = 6
Case "E": .Interior.ColorIndex = 7
Case "F": .Interior.ColorIndex = 8
Case "G": .Interior.ColorIndex = 9
Case "H": .Interior.ColorIndex = 10
Case "I": .Interior.ColorIndex = 11
Case "J": .Interior.ColorIndex = 12
Case "K": .Interior.ColorIndex = 13
End Select
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub