Как применить этот код к нескольким ячейкам?

Question

Я создал код, который позволяет мне изменять информацию конкретной ячейки из других ячеек, пока она выбрана, но мне нужно было иметь возможность выбрать несколько ячеек.

Я попытался умножить приведенный ниже код, нос h4, h5, h6 и т. д. вместо h3 и не работает.вместо этого он полностью отключает код, даже уже работающую часть, и мне нужно перезапустить Excel.

With Selection


If Selection.Value = Range("h3") Then
   Range("bk3").Value = True
   Range("l3").Value = Now
   If MsgBox("Do you want to sign?", vbYesNo, "Signature Confirmation") = vbYes Then  '<---- Confirmation Pop-Up
    VarNUMCB = InputBox("Type Collab. Number") '<---- Collab. Number Pop-Up.
    Range("j3").Value = Range("j3").Value & " | " & VarNUMCB
   Else
   End If
Else
   Range("bk3").Value = False

End If

End with

примечание: я не хочу, чтобы изменения были внесены в l3, j3 и bk3 из любой выбранной ячейки,каждая ячейка должна быть связана со своей собственной линией (горизонтальной), и выбор нескольких ячеек из столбца H должен правильно заполнить остальную часть связанной информации.

Answer 1

Это ответ, который мне удалось вытащить, он может быть не самым эффективным, но он выполняет свою работу. (Я должен применить это к каждой строке, довольно больно, если есть десятки / сотни строк

If cel.Value = Range("H3") 0 Then                                                                                                                                                                                                                                                                                                                                                                                                                                                         'What's up? nice, you found me. yeah it was the intern. so many "if" statements for no reason? i like the extra work :D
    If Range("l3").Value = "" Then
       Range("bk3").Value = True
       Range("l3").Value = Now
       If MsgBox("Do you want to sign?", vbYesNo, "Signature Confirmation") = vbYes Then  '<---- Confirmation Pop-Up
          VarNUMCB = InputBox("Place Collab. Number") '<---- Collab. Numb.Pop-Up
       Else
       End If

          If Range("h3").Value <= 0 Then
             Range("j3").Value = Range("j3").Value & " | " & VarNUMCB
          Else
          End If

    Else
    End If

  Else
  End If