Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Отобразить значение и цвет ячейки А1 в ячейке А2
 
Вот в чем смысл :
На первом листе идет общий учет всех деталей и их № за списком заливается определенным цветом в зависимости от группы детали.
Нужно что бы на странице 2, 3, ..... итд итп. Отображались данные с страници 1, вместе и с цветами ячеек, для того что бы на странице 2,3.... можно было сделать фильтр по цвету !
Изменено: batel - 6 Апр 2018 09:43:22 (Забыл прикрепить файл)
 
сложный вариант - изучить VBA  написать макрос
простой вариант - настроить условное форматирование на каждом листе
самый простой вариант - ждать может это сделает кто то из форумчан
Лень двигатель прогресса, доказано!!!
 
Условное форматирование не подойдет, цвет ячеек на 1-м листе задается исходя из категории запчасти, а их там 1000000000.... и проследить закономерность нельзя, ибо ее там нет !

Пока что пытаюсь макросом придумать что то
Изменено: batel - 6 Апр 2018 10:06:35 (добавил)
 
Цитата
batel написал:
и проследить закономерность нельзя
тогда и макрос не поможет он тоже работает на логически выстроенных командах  
Лень двигатель прогресса, доказано!!!
 
Макрос запускается с листа "Общая", из "H2".
Запускайте макрос после внесения изменений на лист "Общая", чтобы обновить цвет в столбце "A" на остальных листах.
Макрос изменяет цвет на листах со 2 по последний.
 
Кнопка цитирования не для ответа [МОДЕРАТОР]

Спасибо огромное. Очень помогло !!!!!
 
Кстати, если кому еще интересно, использовать можно вот такой простой до ужаса макрос "Копипаст"
Код
Sub Копирование_цвета()
'

' Копирование_Цвета
'

'
    Range("A2").Select
    ActiveWindow.SmallScroll Down:=990
    Range("A2:A1000").Select
    Selection.Copy
    Sheets("лист1").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("A2").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-36
    Sheets("лист2").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("лист3").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("лист4").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("лист5").Select
    Range("A2").Select
    ActiveSheet.Paste
End Sub
Копирует данные и цвет первых 1000 столбцов на первом листе и вставляет их в 2-5 лист !
Изменено: batel - 12 Апр 2018 09:17:24
Страницы: 1
Читают тему (гостей: 1)