Подставление значений при соблюдении условий

Автор toxic2007, 19.10.2011, 11:03

« назад - далее »

toxic2007

Доброго времени суток.
Понял через ЕСЛИ не получиться сделать.
Начал делать с помощью макроса, но и здесь мне понадобится ваша помощь.

Sub qaz()

If Range("K1").Value = x Then
    Range("A1") = None
    Range("B1") = None
    Range("C1") = None

Else
Range("A1").Value = 1000
Range("B1").Value = 2000
Range("C1").Value = 3000

     End If
End Sub


Принцип работы такой:

В ячейку K1 ставим x, ячейки A1,B1,C1 заполняются соответствующими значениями.
Если же ячейка К1 пустая, то ячейки A1,B1,C1 вообще не торгуются, т.е в них остаются прежние данные (у меня в макросе стоит None, тем самым стирая старые значения, это не правильно). Надо сделать так что на протяжении всего столбца "К", при появлении x, значения проставлялись в соответствующей строке, значения буду всегда одинаковые, т.е при x на К7, ячейки A7,B7,C7 станут 1000, 2000, 3000 и т.д

Буду очень признателен вам, если поможете.

nilem

В модуль листа:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 11 Then Exit Sub
If Target.Value = "x" Then Target.Offset(, -10).Resize(, 3).Value = Array(1000, 2000, 3000)
End Sub

toxic2007