if then statement help

[Sabosis]

Hello-

I have the following info in excel and I need code to place an "X" in
column J if the conditions are met, then continue searching down the
sheet for similar instnaces and dropping X's in column J where
appropriate.

A B C D
E F G H J
RING 532 0 n n n n
ACD IN 532 254 n n n n
AVAIL 0 0 n n n n
RING 532 0 n n n n
ACD IN 532 3 n n n y

IF Range("h5").value = "y" AND Range("d5").value < 10 AND
range("a4").value = "ring" Then
..Range("j5").value = "X"

Thanks-

Scott

 

[Rick Rothstein \(MVP - VB\)]

Give this macro a try...

Sub EnterX()
Dim X As Long
Dim C As Range
Dim CellVal As String
Dim LastRow As Long
With Worksheets("Sheet6")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
For X = 2 To LastRow
If UCase(.Cells(X, "H").Value) = "Y" And _
UCase(.Cells(X, "A").Value) = "RING" And _
.Cells(X, "D") < 10 Then .Cells(X, "J") = "X"
Next
End With
End Sub

Rick