Логичнее конечно к с этим вопросом обратиться к автору макроса Сане Boroda, но я увидел, что он с начала мая на форум не заходил. Поэтому решил обратиться за помощью к общественности. Трудится в моих расчетах макрос, сделанный мне в свое время Саней Boroda. Работает он так: при совпадении значений в ячейках колонки B. он автоматически дублирует значения в ячейках колонок K и L - значения в колонке B изначально проставляются вручную (во вложенном примере видно как все работает).
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub r0_ = 3 r1_ = Range("C" & Rows.Count).End(3).Row If Not Intersect(Target, Range("K" & r0_ & ":L" & r1_)) Is Nothing Then c_ = Target.Column r_ = Target.Row kod_ = CCur(Range("B" & r_)) Application.EnableEvents = 0 For i = r_ + 1 To r1_ If Len(Range("B" & i)) < 2 Then Exit For If CCur(Range("B" & i)) = kod_ Then Cells(i, c_) = Target.Value Cells(i, c_).Interior.Color = Target.Interior.Color End If Next i Application.EnableEvents = 1 End If End Sub
[/vba] Нынче появилась потребность потребность в выполнении практически такой же задачи: при совпадении значений в колонке BG должен автоматически в той же строке, но уже в колонке BF (значения изначально в этой колонке также вносятся вручную). Я честно потратил 2 дня чтобы разобраться при помощи интернета ибо знаний чуть выше нуля - переделать увы, не смог.
Логичнее конечно к с этим вопросом обратиться к автору макроса Сане Boroda, но я увидел, что он с начала мая на форум не заходил. Поэтому решил обратиться за помощью к общественности. Трудится в моих расчетах макрос, сделанный мне в свое время Саней Boroda. Работает он так: при совпадении значений в ячейках колонки B. он автоматически дублирует значения в ячейках колонок K и L - значения в колонке B изначально проставляются вручную (во вложенном примере видно как все работает).
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub r0_ = 3 r1_ = Range("C" & Rows.Count).End(3).Row If Not Intersect(Target, Range("K" & r0_ & ":L" & r1_)) Is Nothing Then c_ = Target.Column r_ = Target.Row kod_ = CCur(Range("B" & r_)) Application.EnableEvents = 0 For i = r_ + 1 To r1_ If Len(Range("B" & i)) < 2 Then Exit For If CCur(Range("B" & i)) = kod_ Then Cells(i, c_) = Target.Value Cells(i, c_).Interior.Color = Target.Interior.Color End If Next i Application.EnableEvents = 1 End If End Sub
[/vba] Нынче появилась потребность потребность в выполнении практически такой же задачи: при совпадении значений в колонке BG должен автоматически в той же строке, но уже в колонке BF (значения изначально в этой колонке также вносятся вручную). Я честно потратил 2 дня чтобы разобраться при помощи интернета ибо знаний чуть выше нуля - переделать увы, не смог.Serge1400
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
