Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Beats me!
Hi,
I know this is simple, but this is going nowhere. Please help!!! I have a worksheet "FLS Results". All I want to do is to make the entire row (starting from row 2) bold if the entry in Column A is "With PM". (This entry comes through a list via Data validation). Following is the sub I wrote for it - when I run it, it gives me an error message, saying "Application defined or object defined error" Can someone tell me what's wrong with the sub? Sub trackres() Dim c As Range Dim i, traccode As Variant i = 2 Set c = Sheets("FLS Results").Cells(2, "E") Do While Not IsEmpty(c) traccode = Sheets("FLS Results").Range(i, "A").Value If traccode = "With PM" Then Sheets("FLS Results").Range(Cells(i, "B"), Cells(i, "L")).Font.Bold = True End If Set c = c.Offset(1, 0) i = i + 1 Loop End Sub Thanks in advance, Joe. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Beats me!
Try this, it asumes that the cells without "With PM" are non blank
and that FLS Results is the current sheet Sub BoldRows() Dim x As Integer Range("A2").Select Do Until IsEmpty(ActiveCell) If ActiveCell = "With PM" Then ActiveCell.EntireRow.Font.Bold = True ActiveCell.Offset(1).Select Loop End Sub "Joe" wrote in message oups.com... Hi, I know this is simple, but this is going nowhere. Please help!!! I have a worksheet "FLS Results". All I want to do is to make the entire row (starting from row 2) bold if the entry in Column A is "With PM". (This entry comes through a list via Data validation). Following is the sub I wrote for it - when I run it, it gives me an error message, saying "Application defined or object defined error" Can someone tell me what's wrong with the sub? Sub trackres() Dim c As Range Dim i, traccode As Variant i = 2 Set c = Sheets("FLS Results").Cells(2, "E") Do While Not IsEmpty(c) traccode = Sheets("FLS Results").Range(i, "A").Value If traccode = "With PM" Then Sheets("FLS Results").Range(Cells(i, "B"), Cells(i, "L")).Font.Bold = True End If Set c = c.Offset(1, 0) i = i + 1 Loop End Sub Thanks in advance, Joe. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Beats me!
Thanks, Steve. But any idea why my logic & Syntax didnt work? (I mean,
it is kinda straightforward, aint it?) Also, I cant assume Col A to be nonempty - the only tracking column here would be Col E. Any suggestions? Thanks, Joe. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Beats me!
Joe,
Try changing... Sheets("FLS Results").Range(Cells(i, "B"), Cells(i,"L")).Font.Bold = True To With Sheets("FLS Results") .Range(.Cells(i, "B"), .Cells(i,"L")).Font.Bold = True End With Note the dots in front of Cells. Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "Joe" wrote in message Hi, I know this is simple, but this is going nowhere. Please help!!! I have a worksheet "FLS Results". All I want to do is to make the entire row (starting from row 2) bold if the entry in Column A is "With PM". (This entry comes through a list via Data validation). Following is the sub I wrote for it - when I run it, it gives me an error message, saying "Application defined or object defined error" Can someone tell me what's wrong with the sub? Sub trackres() Dim c As Range Dim i, traccode As Variant i = 2 Set c = Sheets("FLS Results").Cells(2, "E") Do While Not IsEmpty(c) traccode = Sheets("FLS Results").Range(i, "A").Value If traccode = "With PM" Then Sheets("FLS Results").Range(Cells(i, "B"), Cells(i, "L")).Font.Bold = True End If Set c = c.Offset(1, 0) i = i + 1 Loop End Sub Thanks in advance, Joe. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Beats me!
Perhaps a small syntax error. your line traccode = Sheets("FLS Results").Range(i, "A").Value could be traccode = Sheets("FLS Results").Cells(i, "A").Value A V Veerkar -- avveerkar ------------------------------------------------------------------------ avveerkar's Profile: http://www.excelforum.com/member.php...o&userid=30338 View this thread: http://www.excelforum.com/showthread...hreadid=508779 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Beats me!
Thanks a lot, guys. All your inputs were useful in one way or the
other. 'Appreciate it. Joe. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formula, Pivot Table, ??? Beats me | Excel Worksheet Functions | |||
SUMIF - really simple, but beats me - help! | Excel Discussion (Misc queries) |