Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Range Selection help (Formatting)
I select a range in a row and begin formatting per the code below, I am
having trouble getting this code to work. It will find the first cell with "TRG" but none of the others? It appears to complete the Font changes but not the alignment changes (less the first cell with "TRG"). '====== Range("F10:F29").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""TRG#""" Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Bold = True .Italic = True .TintAndShade = 0 End With With Selection If Left(ActiveCell.Value, 3) = "TRG" Then .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom End If End With Selection.FormatConditions(1).StopIfTrue = False Range("D10").Select '====== -- Regards VBA.Noob.Confused XP Pro Office 2007 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Range Selection help (Formatting)
I think I see what is wrong, I am stepping thru each cell?
-- Regards VBA.Noob.Confused XP Pro Office 2007 "Rick S." wrote: I select a range in a row and begin formatting per the code below, I am having trouble getting this code to work. It will find the first cell with "TRG" but none of the others? It appears to complete the Font changes but not the alignment changes (less the first cell with "TRG"). '====== Range("F10:F29").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""TRG#""" Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Bold = True .Italic = True .TintAndShade = 0 End With With Selection If Left(ActiveCell.Value, 3) = "TRG" Then .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom End If End With Selection.FormatConditions(1).StopIfTrue = False Range("D10").Select '====== -- Regards VBA.Noob.Confused XP Pro Office 2007 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Range Selection help (Formatting)
Last reply was NOT stepping thru each cell.
I believe am now. '====== Range("F10:F29").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""TRG#""" Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Bold = True .Italic = True .TintAndShade = 0 End With For Each c In Selection If Left(c.Value, 3) = "TRG" Then c.HorizontalAlignment = xlGeneral c.VerticalAlignment = xlBottom End If Next c Selection.FormatConditions(1).StopIfTrue = False Range("D10").Select '====== So much to learn! -- Regards VBA.Noob.Confused XP Pro Office 2007 "Rick S." wrote: I think I see what is wrong, I am stepping thru each cell? -- Regards VBA.Noob.Confused XP Pro Office 2007 "Rick S." wrote: I select a range in a row and begin formatting per the code below, I am having trouble getting this code to work. It will find the first cell with "TRG" but none of the others? It appears to complete the Font changes but not the alignment changes (less the first cell with "TRG"). '====== Range("F10:F29").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""TRG#""" Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Bold = True .Italic = True .TintAndShade = 0 End With With Selection If Left(ActiveCell.Value, 3) = "TRG" Then .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom End If End With Selection.FormatConditions(1).StopIfTrue = False Range("D10").Select '====== -- Regards VBA.Noob.Confused XP Pro Office 2007 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Narrow Range based on Selection in Another Range | Excel Discussion (Misc queries) | |||
Range(Selection, Selection.End(xlToRight)).Select | Excel Programming | |||
Identifying a selection of a selection of a range | Excel Worksheet Functions | |||
getting rid of selection for formatting | Excel Programming | |||
Excel VBA - Range(Selection, Selection.End(xlDown)).Name issue. | Excel Programming |