Macros using contents to sort

  • Thread starter Thread starter walan
  • Start date Start date
W

walan

Please someone help, I am trying to write a macro that will select dat
by text in the columns, then color it. For example I have FO, FI, SO
SI in different rows in the database. I am trying to have all the FO'
and SO's colored red accross the entire row and the dollar amt turne
negative by showing (brackets on the figures). On the other hand th
SI's and FI's remain positive.
Basically, I am trying to have column I as the main lead whereby th
FO's, FI, SI and SO's(column B) determine what goes in Column I and th
entire rows of FI's and SI's left black.
Bigger problem is having the macro run when I have over 100 rows o
data.
Please someone help. I have attached the spreadsheet

Attachment filename: compiled.xls
Download attachment: http://www.excelforum.com/attachment.php?postid=65776
 
Big problem with red lines and red dollar amouts. so i
used a different color. don't know how to trigger a macro
based on number of rows of data. you will have to keep an
eye on it and run the macro when you need to.

Sub doloop()
Dim i As Range
Dim i2 As Range
Set i = Range("B1")
Do While Not IsEmpty(i)
Set i2 = i.Offset(1, 0)
If i.Value = "FO" Or i.Value = "SO" Then
Range(i.Offset(0, -1), i.Offset(0,
7)).Interior.ColorIndex = 44
'or i.entirerow.interior.colorindex = 44
i.Offset(0, 6).NumberFormat = "$#,##0.00_);[Red]
($#,##0.00)"
End If
Set i = i2
Loop
End Sub
 
Thanks so much I have had the red line problem too, but thank you fo
the wisdom. Thanks I will try running and provide more insight as I tr
to solve this one
 
Back
Top