If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
I need help with macro
I have this macro right now ,when i type anything in cell C300 the tab does
change colour this is what i want. Now i want to Type only QC in this cell so that the tab changes colour is this possible with modijying this macro Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) If Intersect(Target, Range("C300")) Is Nothing Then Exit Sub ActiveSheet.Tab.ColorIndex = 15 End Sub |
#2
|
|||
|
|||
I need help with macro
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) Dim myRngToInspect As Range Set myRngToInspect = Sh.Range("C300") If Target.Cells.Count 1 Then Exit Sub End If If Intersect(Target, myRngToInspect) Is Nothing Then Exit Sub End If If LCase(Target.Value) = LCase("qc") Then sh.Tab.ColorIndex = 3 'red for me Else sh.Tab.ColorIndex = xlNone 'change it back End If End Sub Much like the other worksheet_change event in your other thread. Mike wrote: I have this macro right now ,when i type anything in cell C300 the tab does change colour this is what i want. Now i want to Type only QC in this cell so that the tab changes colour is this possible with modijying this macro Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) If Intersect(Target, Range("C300")) Is Nothing Then Exit Sub ActiveSheet.Tab.ColorIndex = 15 End Sub -- Dave Peterson |
Thread Tools | |
Display Modes | |
|
|