How to update a range of cells if cell value is equal to...
Hi Jacob,
The code is not working, it will not update rows 2 to last for columns X
through BV if W ="Y". Not sure what is wrong... I copied your code into a
module.
"Jacob Skaria" wrote:
Hi Jen
Try the below and feedback
Dim rowCounter As Double
Dim bottomRow As Double
For rowCounter = 2 To bottomRow
If UCase(Sheets("Sheet3").Range("W" & rowCounter)) = "Y" Then
Sheets("Sheet3").Range("X" & rowCounter & ":BV" & rowCounter) = "N"
End If
Next
If this post helps click Yes
---------------
Jacob Skaria
"Jen_T" wrote:
I am having trouble with a piece of code in excel 2007 where I would like to
check a cell value in column "W" which is column 23, if equal to "Y" than
update from columns "X:BV" row 2 to last row the value to "N", if not do
nothing.
I have attached the code I am currently using:
Dim rowCounter As Double
Dim bottomRow As Double
For rowCounter = 2 To bottomRow
If Sheet7.Cells(rowCounter, 23).Value = "Y" Then
Sheet7.Range("X" + Trim(Str(rowCounter)) + ":BV" + _
Trim(Str(rowCounter))).Value = "N"
End If
Next rowCounter
Any suggestions would be greatly appreciated. Thank you
|