IF условно для текстового значения в определенной ячейке

Question

У меня есть два столбца («D» и «E»), и в ячейках из столбца «D» я могу выбрать из выпадающего списка. Одним из таких вариантов является «NA». То, что я хочу сделать, это то, что, если вы выбираете значение «NA» из раскрывающегося списка (например, в «D5»), ячейка, которая находится в той же строке, в столбце «E» (в данном случае , «E5») будет иметь значение «NA»).

Я пытался использовать функцию IF, но дело в том, что ячейки из столбца «E» также выбираются из выпадающего списка. Итак, если я изменю значение после функции if в ячейке «E», формула будет стерта.

Ожидается код, который считывает ячейки из столбца «D», и для каждой ячейки с текстом «NA» вставьте «NA» в ячейку из «E», которая находится рядом с ней. Например, ячейка D6 имеет NA, тогда ячейка E6 должна иметь это.

Редактировать: вот код, который я сделал. Теперь я хочу сделать это так, чтобы оно распространялось на все ячейки в столбце.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)


       Dim celltxt As String

       celltxt = ActiveSheet.Range("D10").Text

       If InStr(1, celltxt, "NA") Then

          ActiveSheet.Range("E10").Value = "NA"

       End If


  End Sub

Answer 1

Я закончил.

Dim rango As Range

Dim i As Long

Set rango = Range("D:D")

For Each cell In rango

    If cell.Value = "NA" Then

        cell.Offset(0, 1).Value = "NA"

    End If

Next