How to update a range of cells if cell value is equal to...
 

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

How to update a range of cells if cell value is equal to...
 

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

How to update a range of cells if cell value is equal to...
 

Jen,

I am having trouble with a piece of code in excel 2007

What trouble? I ran this code and if it finds a Y in col 23 then the row as
far as column BV gets's populated with N. What happens for you?

Mike

"Jen_T" wrote:

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

How to update a range of cells if cell value is equal to...
 

I should have added I prefer this line to yours

Sheet7.Range(("X" & rowCounter & ":BV" & rowCounter)).Value = "N"

Mike

"Mike H" wrote:

Jen,

I am having trouble with a piece of code in excel 2007

What trouble? I ran this code and if it finds a Y in col 23 then the row as
far as column BV gets's populated with N. What happens for you?

Mike

"Jen_T" wrote:

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

How to update a range of cells if cell value is equal to...
 

My macro will not replace the values of all rows from columns"x" to "bv" if
"w" ="y", I need to have the macro does this from row 2 to last row.

"Mike H" wrote:


I should have added I prefer this line to yours

Sheet7.Range(("X" & rowCounter & ":BV" & rowCounter)).Value = "N"

Mike

"Mike H" wrote:

Jen,

I am having trouble with a piece of code in excel 2007

What trouble? I ran this code and if it finds a Y in col 23 then the row as
far as column BV gets's populated with N. What happens for you?

Mike

"Jen_T" wrote:

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

How to update a range of cells if cell value is equal to...
 

Jacob has shown you the solution to that use

UCASE

If ucase(Sheet7.Cells(rowCounter, 23).Value) = "Y"

Mike


"Jen_T" wrote:

My macro will not replace the values of all rows from columns"x" to "bv" if
"w" ="y", I need to have the macro does this from row 2 to last row.

"Mike H" wrote:


I should have added I prefer this line to yours

Sheet7.Range(("X" & rowCounter & ":BV" & rowCounter)).Value = "N"

Mike

"Mike H" wrote:

Jen,

I am having trouble with a piece of code in excel 2007

What trouble? I ran this code and if it finds a Y in col 23 then the row as
far as column BV gets's populated with N. What happens for you?

Mike

"Jen_T" wrote:

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

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