sandramac
asked on
Select Case Help
I have the code below ,but the data has changed so I need to look for "CLEAR" in that cell that will have other data now. For example K5 would read "Light Intensity CLEAR" how do i adjust to look for CLEAR with other data now in the cell. Thanks
Set ws = Sheets("Sheet19")
Set ws_pic = Sheets("Pic")
Set cel = ws.Range("k5")
Select Case cel
Case "CLEAR"
Set Shp = ws_pic.Shapes("Picture 30")
Case "FEW CLOUDS"
Set Shp = ws_pic.Shapes("Picture 32")
Case "PARTLY CLOUDY"
Set Shp = ws_pic.Shapes("Picture 28")
Set ws = Sheets("Sheet19")
Set ws_pic = Sheets("Pic")
Set cel = ws.Range("k5")
Select Case cel
Case "CLEAR"
Set Shp = ws_pic.Shapes("Picture 30")
Case "FEW CLOUDS"
Set Shp = ws_pic.Shapes("Picture 32")
Case "PARTLY CLOUDY"
Set Shp = ws_pic.Shapes("Picture 28")
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
You're welcome and I'm glad I was able to help.
Marty - MVP 2009 to 2013
Marty - MVP 2009 to 2013
ASKER