y won't this work??

  • Thread starter Thread starter ksnapp
  • Start date Start date
K

ksnapp

I select a rang in a column if there is a cell that says "tota
transactions" I want it to make the cell to the right bold


Sub Boldmaker()
For Each CELL In Selection
If Cellvalue = "Total Transactions" Then
ActiveCell.Offset(0, 1).Select
ActiveCell.Font.Bold = True
End If
Next CELL

End Su
 
ksnapp

missing . between cell & value also

If statements are case sensitive


try


If lcase(Cell.value) = "total transactions"
ActiveCell.Offset(0, 1).Font.Bold = True
end i
 
How about:

Sub Boldmaker()
For Each CELL In Selection
with CELL
If lcase(.value) = lcase("Total Transactions") Then
.offset(0,1).Font.Bold = True
end if
end with
Next CELL

(I added lcase() just in case you had mixed cases. <vbg>)
 
Try this correction. You don't have to select a cell to act upon it.

'Option Compare Text

Sub Boldmaker()
Dim cel as Range
For Each cel In Selection
If cel.Value = "Total Transactions" Then
cel.Offset(0, 1).Font.Bold = True
End If
Next cel
End Sub

You could add the Option Compare Text line at top of Module to make it
case-insensitive if desired.

Gord Dibben Excel MVP
 
If the Offset cell is already bold, and it should no longer be bold, do you
wish to reset it? If so, just an idea...

Sub Boldmaker()
Dim Cell As Range
For Each Cell In Selection
Cell.Offset(0, 1).Font.Bold = StrComp(Cell.Value, "Total
Transactions", vbTextCompare) = 0
Next Cell
End Sub
 
Back
Top