YouGreed, понятно, я так понял, проблема в выборе из списка. Тогда на листе Прайс через Worksheet_Change. Не знаю, насколько он будет тормозить на больших массивах [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim Value With Target If .Count > 1 Then Exit Sub If .Column <> 1 Then Exit Sub Application.EnableEvents = False Application.ScreenUpdating = False Value = .Value Application.Undo Sheets("Себестоимость").Range("A2:A" & Sheets("Себестоимость").Cells(Rows.Count, 1).End(xlUp).Row).Replace _ What:=.Value, Replacement:=Value, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _ :=False, ReplaceFormat:=False .Value = Value Application.EnableEvents = True Application.ScreenUpdating = True End With End Sub
[/vba]
YouGreed, понятно, я так понял, проблема в выборе из списка. Тогда на листе Прайс через Worksheet_Change. Не знаю, насколько он будет тормозить на больших массивах [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim Value With Target If .Count > 1 Then Exit Sub If .Column <> 1 Then Exit Sub Application.EnableEvents = False Application.ScreenUpdating = False Value = .Value Application.Undo Sheets("Себестоимость").Range("A2:A" & Sheets("Себестоимость").Cells(Rows.Count, 1).End(xlUp).Row).Replace _ What:=.Value, Replacement:=Value, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _ :=False, ReplaceFormat:=False .Value = Value Application.EnableEvents = True Application.ScreenUpdating = True End With End Sub
YouGreed, С формулой =ЕСЛИОШИБКА(ВПР(A2;Прайс!$A$2:$B$70;2;0);"") если меняется название в прайсе, то на себестоимости ячейка с ценой становится пустой.
YouGreed, С формулой =ЕСЛИОШИБКА(ВПР(A2;Прайс!$A$2:$B$70;2;0);"") если меняется название в прайсе, то на себестоимости ячейка с ценой становится пустой.Kipling
Kipling, А можно файлик с ошибкой, у меня все как нужно? Возможно у Вас отключены макросы или блокируются. Нужно включить поддержку макросов и все должно заработать.
Kipling, А можно файлик с ошибкой, у меня все как нужно? Возможно у Вас отключены макросы или блокируются. Нужно включить поддержку макросов и все должно заработать.YouGreed