Need some help I am a newbie to VBA

[Spiffierlime]

Need help solving my VBA Riddle please someone with the professional knowledge, Please

VBA

Private Sub CommandButton3_Click()

If Range("V1").Value = ("Complete") Then ' this code needs changing to look at a cell on another sheet i.e sheet 1 Range A1
ActiveSheet.Shapes("Oval 57").Fill.ForeColor.RGB = RGB(252, 74, 235)
Else
ActiveSheet.Shapes("Oval 57").Fill.ForeColor.RGB = RGB(255, 255, 255)

End If
'Need to loop this code to check Range V2 and fill Oval 58 and so on RangeV3, and fill oval 59, RangeV4 and fill Oval 60 untill the end
End Sub

 

[Spiffierlime]

Solved it the code is looking at D1 in MSFWSB as the first lookup when the data starts in D2, I created A NEW SHEET and created a new command and pasted your code in it works but does not work on the sheet with the chart, I will create a new chart as this came from someone else. how do I get the code to start looking from cell D2 instaed of D1?

 

[Fluff]

Use

For i = 2 To 3

 

[Spiffierlime]

when I change For i = 2 To 3, I get error saying can't find Specified item after the ELSE

 

[Fluff]

If your shapes are named starting at 1 you will need to make this change

ActiveSheet.Shapes("Oval " & i - 1)

 

[Spiffierlime]

Dear Sir, I must express sincere thanks to you, without you, i would not of been able to complete my objective.

Thankyou very much !
Is there a donation area on this site?

 

[Spiffierlime]

If I wan't do change the line colour and weight of the shape before and after, , how would I plug this into the code, learning so much from you?

 

[Fluff]

As that is a different question, you will need to start a new thread. Thanks