if then statement help
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 |
if then statement help
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 "Sabosis" wrote in message ... 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 |
All times are GMT +1. The time now is 05:38 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com