Command Button to change a Cell

[Tech1_uk]

Hi all,

I've set up a simple button to change a cell value from another cell,

Code is

Private Sub CommandButton1_Click()

Sheets("Sheet1").Range("G6").Value = Sheets("Sheet2").Range("E5").Value

End Sub

Now I only want to change G6 if it matches a a set criteria, in this case "No" if it it then any other text then don't change the value.
Once this is working I then want to use the range G6:G25 to do the same

Any ideas?

Many thanks

 

[Tech1_uk]

I've managed the first part but I can't repeat this over a range of cells

I'm using the following

If Range("G6").Value = "No" Then Sheets("Sheet1").Range("G6").Value = Sheets("Sheet2").Range("E5").Value

For Cell G7 and onwards I'm having to repeat each line

If Range("G7").Value = "No" Then Sheets("Sheet1").Range("G7").Value = Sheets("Sheet2").Range("E5").Value

Has to be an easy way to do this ???

 

[kevin9999]

Dim c As Range
For Each c In Range("G7:G25")
    If c = "No" Then c = Sheets("Sheet2").Range("E5").Value
Next c

 

[Tech1_uk]

Dim c As Range For Each c In Range("G7:G25") If c = "No" Then c = Sheets("Sheet2").Range("E5").Value Next c

Many thanks, works a treat

 

[kevin9999]

Happy to help, and thanks for the feedback