Рейтинг:  0 / 5

Звезда не активнаЗвезда не активнаЗвезда не активнаЗвезда не активнаЗвезда не активна
 
Sub Button70_Click()
Dim rng As Range, cell As Range
Set rng = Range(Cells(3, 7), Cells(168, 16))
For Each cell In rng
If (cell.Value = "no") Then
cell.Value = "No"
'MsgBox cell.Row & " " & cell.Column
End If
Next cell
End Sub
 
'Адресуется диапазон ячеек R3C7:R168C16