Macro Not Completely Working
 

As you can see this macro should find a number less than 1000 and then color
it.
It finds the number, however will not color it, and also there may be
multiple cells with less than 1000. Could you help me in getting this macro
to find one and color it and then continue on to the end. Joel has helped
but for some reason his solution does not work.

Sub ColorCellLessThan1000orBlank()

Range("K1").Select

Do Until ActiveCell < 1000
If ActiveCell < 1000 Then
With Selection.Interior
.PatternColorIndex = 7
.Pattern = x1solid
End With

End If
ActiveCell.Offset(1, 0).Select


Loop
End Sub

Macro Not Completely Working
 

Hey Jim

You are the man. Perfect

Thanks
Frank

"Jim Thomlinson" wrote:

Sub ColorCellLessThan1000orBlank()
Dim rngToSearch As Range
Dim rng As Range

Set rngToSearch = Range(Range("K1"), _
Cells(Rows.Count, "K").End(xlUp))

For Each rng In rngToSearch
If rng.Value < 1000 Then rng.Interior.ColorIndex = 7
Next rng
End Sub
--
HTH...

Jim Thomlinson


"Beep Beep" wrote:

As you can see this macro should find a number less than 1000 and then color
it.
It finds the number, however will not color it, and also there may be
multiple cells with less than 1000. Could you help me in getting this macro
to find one and color it and then continue on to the end. Joel has helped
but for some reason his solution does not work.

Sub ColorCellLessThan1000orBlank()

Range("K1").Select

Do Until ActiveCell < 1000
If ActiveCell < 1000 Then
With Selection.Interior
.PatternColorIndex = 7
.Pattern = x1solid
End With

End If
ActiveCell.Offset(1, 0).Select


Loop
End Sub

Macro Not Completely Working
 

The macro will not work because is not getting pass K1
You need to do this, note that 11 is the position of Column k you can change
it to any column you want same with the iLastrow Range.


Dim iLastRow as integer
iLastRow=Range("K65536").End(xlUp).Row

For i =1 to iLastRow
Cells(i,11).Activate
If ActiveCell < 1000 Then
With Selection.Interior
.PatternColorIndex = 7
.Pattern = x1solid
End With

End If


Next i
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Beep Beep" wrote:

As you can see this macro should find a number less than 1000 and then color
it.
It finds the number, however will not color it, and also there may be
multiple cells with less than 1000. Could you help me in getting this macro
to find one and color it and then continue on to the end. Joel has helped
but for some reason his solution does not work.

Sub ColorCellLessThan1000orBlank()

Range("K1").Select

Do Until ActiveCell < 1000
If ActiveCell < 1000 Then
With Selection.Interior
.PatternColorIndex = 7
.Pattern = x1solid
End With

End If
ActiveCell.Offset(1, 0).Select


Loop
End Sub

Macro Not Completely Working
 

Have you tried that code? Doesn't work for me. Also if you are trversing rows
you should use longs and not integers as integers have an upper bound of
approximately 32k...
--
HTH...

Jim Thomlinson


"Michael" wrote:

The macro will not work because is not getting pass K1
You need to do this, note that 11 is the position of Column k you can change
it to any column you want same with the iLastrow Range.


Dim iLastRow as integer
iLastRow=Range("K65536").End(xlUp).Row

For i =1 to iLastRow
Cells(i,11).Activate
If ActiveCell < 1000 Then
With Selection.Interior
.PatternColorIndex = 7
.Pattern = x1solid
End With

End If


Next i
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Beep Beep" wrote:

As you can see this macro should find a number less than 1000 and then color
it.
It finds the number, however will not color it, and also there may be
multiple cells with less than 1000. Could you help me in getting this macro
to find one and color it and then continue on to the end. Joel has helped
but for some reason his solution does not work.

Sub ColorCellLessThan1000orBlank()

Range("K1").Select

Do Until ActiveCell < 1000
If ActiveCell < 1000 Then
With Selection.Interior
.PatternColorIndex = 7
.Pattern = x1solid
End With

End If
ActiveCell.Offset(1, 0).Select


Loop
End Sub