Solved: Select Case

[austenr]

Im brain dead. How do you use the following correctly so if range B1 on sheet 1 = "Y", then put the value of sheet1 range A160 in sheet 2 range E6?

[vba]Select Case Sheets("Sheet1").Range("B1")
Case "Y"
Sheets("Sheet2").Range("E6") = sheets("Sheet1").Range("A160")

End Select[/vba]

[Bob Phillips]

That is correct Austen, what makes you think it is not?

[austenr]

You know your right Bob. Been up too long. Thanks for checking my sanity.

[austenr]

Well if I add another condition it doesnt populate with the "N" Sheet2 value stays populated with "Y":

[vba]Select Case Sheets("Sheet1").Range("B1").Value
Case "Y"
Sheets("Sheet2").Range("E6") = Sheets("Sheet1").Range("A160")
Case "N"
Sheets("Sheet2").Range("E6") = Sheets("Sheet1").Range("A161")
End Select[/vba]

[Bob Phillips]

Why are you picking up A160/A161, why not just B1 if you want the Y or N?

[austenr]

If B1 is "Y" then I want the value in E160 to show on sheet2, if "N" then I want the value of A161 in sheet 2.

[Bob Phillips]

Which is exactly what that code does.

[austenr]

I discovered that after i clicked out of B1. Told you I have been up too long.

[GTO]

Im brain dead....

Hey Mister! No stealing my specialty!

[austenr]