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

[VITA11111]

макрос работает,
но только если выбрать другую ячейку и вернутся обратно
например я ввел в Target.Cells 1 или любое значение
а надо что бы при выборе другой ячейки или при ентере
значение поменялось

        ' проверяет относится ли ячейка к 9 строке
       If Target.Row = 9 Then
       ' проверяет равно ли количество выделенных ячеек одной
       If Target.Count = 1 Then
       With Sheets("ПЛАНИРОВАНИЕ")
          ' проверяет равно ли значение ячейки 1
          If Cells(9, Target.Column) = 1 Then
             'задает значение ячейке в 27 строке с темже самым столбцом = 1
             Cells(27, Target.Column).Value = 1
          End If
          'проверяет больше или меньше значение ячейки 1
          If Cells(9, Target.Column) <> 1 Then
             'задает значение ячейке в 27 строке из 26 строки с тогоже самого столбца
             Cells(27, Target.Column).Value = Cells(26, Target.Column).Value
          End If
          'возвращает значение Target.Cells из 27 строки тогоже самого столбца
          Target.Cells.Value = Cells(27, Target.Column).Value
       End With
       End If
       End If

[Hugo121]

Есть ошибки, но возможно не заметите.

[VITA11111]

я тут подумал что можно вставлять не значения , а формулы с ссылками ,но как это сделать

[Hugo121]

А так же - .formula = "=..."
А вообще "разговор слепого с глухим"...

[VITA11111]

        If Target.Row = 9 Then
       If Target.Count = 1 Then
       With Sheets("ПЛАНИРОВАНИЕ")
          If Cells(9, Target.Column) = 1 Then
             Cells(27, Target.Column).Value = 1
          End If
          If Cells(9, Target.Column) <> 1 Then
             Cells(27, Target.Column).FormulaR1C1 = "=R[-1]C"
          End If
          Target.Cells.FormulaR1C1 = "=R[18]C"
       End With
       End If
       End If

лучше работает,но снова если вернутся обратно к вводимой ячейке