Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
select multiple cells
Good morning from Mexico.
I need help on this Macro. I am comapring one in sheet 1 the other in sheet 2 if this are diferant I need them to change the font color & background of the two cells. this is what I have but can't , this changes the color in one of the cell but the other does not change Sub crosscheck() 'Dim crosscheck As Double 'crosscheck worksheets for out of balance shedules dblCheck = Abs(Sheets("AvgPrice NA").Range("d17").Value - Sheets("SalesAnalysis NAGDO").Range("d90").Value) If dblCheck 0 Then Sheets("AvgPrice NA").Select Range("d17").Activate Sheets("SalesAnalysis NAGDO").Select Range("d90").Activate With Selection.Font .ColorIndex = 3 End With With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
select multiple cells
'Dim crosscheck As Double 'crosscheck worksheets for out of balance shedules dblCheck = Abs(Sheets("AvgPrice NA").Range("d17").Value - Sheets("SalesAnalysis NAGDO").Range("d90").Value) If dblCheck 0 Then Sheets("AvgPrice NA").Select Range("d17").Activate Sheets("SalesAnalysis NAGDO").Select With Selection.Font .ColorIndex = 3 End With With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With Range("d90").Activate With Selection.Font .ColorIndex = 3 End With With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With End If End Sub -- Regards, Tom Ogilvy |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
select multiple cells
Sub crosscheck()
'Dim crosscheck As Double 'crosscheck worksheets for out of balance shedules dblCheck = Abs(Sheets("AvgPrice NA").Range("d17").Value - Sheets("SalesAnalysis NAGDO").Range("d90").Value) If dblCheck 0 Then with Sheets("AvgPrice NA").Range("d17") .Font .ColorIndex = 3 .Interior.ColorIndex = 15 .Interior.Pattern = xlSolid End With WithSheets("SalesAnalysis NAGDO").Range("d90") .Font .ColorIndex = 3 .Interior.ColorIndex = 15 .Interior.Pattern = xlSolid End With End If End Sub -- HTH RP "Mestrella31" wrote in message ... Good morning from Mexico. I need help on this Macro. I am comapring one in sheet 1 the other in sheet 2 if this are diferant I need them to change the font color & background of the two cells. this is what I have but can't , this changes the color in one of the cell but the other does not change Sub crosscheck() 'Dim crosscheck As Double 'crosscheck worksheets for out of balance shedules dblCheck = Abs(Sheets("AvgPrice NA").Range("d17").Value - Sheets("SalesAnalysis NAGDO").Range("d90").Value) If dblCheck 0 Then Sheets("AvgPrice NA").Select Range("d17").Activate Sheets("SalesAnalysis NAGDO").Select Range("d90").Activate With Selection.Font .ColorIndex = 3 End With With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how dod I NOT select multiple cells at the same time | Excel Discussion (Misc queries) | |||
Select multiple adjacent cells of multiple cells without selecting | New Users to Excel | |||
Select multiple adjacent cells of multiple cells without selecting | Excel Worksheet Functions | |||
trying to select multiple cells | New Users to Excel | |||
Why aren't my cells highlighted when I select multiple cells? | Setting up and Configuration of Excel |