Как запустить макрос над выбором ячейки вместо ActiveCell

Question

Здравствуйте. Я хочу запустить макрос "с кнопкой команды" для выбора ячеек вместо одной ячейки.

Код, показанный ниже, работает, но для отдельной ячейки, однако я хочу, чтобы он работал поверх выделения.

P.s. Я только показываю 1 Если заявление в коде есть 100 из них.

Private Sub CommandButton1_Click()

x = ActiveCell.Value * 2

If x > 0 And x < 200 Then
y = 290 
End If 


ActiveCell.Offset(0,1) = y

Я хочу, чтобы макрос выполнял выборку ячеек.

Я пробовал: Selection.Offset(0,1) но это не сработало

Answer 1

Попробуйте следующий подпункт. Изменить как вам нужно.

Sub RunSelection()
Dim cel As Range
Dim x As Double

    For Each cel In Selection
    x = cel.Value * 2
        If x > 0 And x < 200 Then
            cel.Offset(0, 1) = 290
        End If
    Next cel

End Sub