VBA to change cell color

[andrewb90]

Hello All,

I have this code that I am using, however, I need to change part of it, and I don't seem to be doing it correctly.

Sub OFF()



Dim i As Integer




With Sheets("Print")




For i = 5 To 25
    If .Cells(i, 1).Interior.Color = RGB(255, 209, 117) Then .Cells(i + 5, 6).Value = "OFF"
Next i




End With




End Sub

I need to change it so that if A25 in the sheet "Scheduler" has the cell filled in then cell B10 in the sheet "Print" will say "OFF"
This would apply to A25:T88 (and would fill down and right, accordingly on the "Print" sheet)

Now, there are going to be a few rows where there wouldn't be any need to copy, I don't suppose that matters as long as all the cells that are colored get the text.

Thanks,

Andrew

 

[oldbrewer]

your code is only looking at cells on the sheet "print"

if sheet2!A1=99 then sheet1!B10 = "bingo" is the logic

 

[andrewb90]

So how do I change the other sheet? I tried adding a sheet after the "then" portion of the code, but I got an error.

 

[oldbrewer]

code
code
code
sheet2.select
x=cells(1,1)
sheet1.select
cells(3,1)=x
code
code
end sub

 

[andrewb90]

What is code code code?

 

[oldbrewer]

i meant your existing code, add my bit, then the rest is your code again

 

[andrewb90]

That doesn't make much sense. Are referring line by line? the code doesn't appear to do much on its own.

 

[oldbrewer]

That doesn't make much sense. Are referring line by line? the code doesn't appear to do much on its own.

it opens sheet2, grabs the value in A1, goes back to sheet1, and sets A3 to the value of A1 in sheet 2