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 |
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 |
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 |
All times are GMT +1. The time now is 01:41 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com