Сохранить как значение по условию

Автор скорпи, 25.06.2012, 15:30

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

скорпи

Добрый день, Гуру!
Помогите, пожалуйста, с творческим кризисом.
Нужен макрос, который при выполнении условия в одной ячейке, сохранял как значения другие ячейки.
Пример во вложении. Спасибо.

_Boroda_

где-то так можно
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = 0
r_ = Range("D" & Rows.Count).End(xlUp).Row + 1 ' +1 для случая, когда в столбце Д нет значений, кроме шапки
For i = 2 To r_
    If Range("D" & i) = 1 Then Range("B" & i) = Range("B" & i).Value
Next i
Application.EnableEvents = 1
End Sub
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

скорпи

Спасибо огромное! Никак не могу сообразить, как прописать диапазон ячеек для сохранения, т.е не только столбец B, но и С

exceleved

До кучиSub bb()
Dim c As Range
For Each c In Range("D2", [D1].End(xlDown))
    If c = 1 Then With c.Offset(, -2).Resize(, 2): .Value = .Value: End With
Next
End Sub

скорпи

Супер!!! Подправила под себя, отлично работает!!!!! Спасибо огромное, что Вы есть!