А изменение заливки это постоянно необходимая процедура для листов? Может лучше тогда макрос повесить на пересчет листа, что бы все сквозные ячейки цветом из выделенной заливал )
А изменение заливки это постоянно необходимая процедура для листов? Может лучше тогда макрос повесить на пересчет листа, что бы все сквозные ячейки цветом из выделенной заливал )Tachkin
AndreTM, Попробовал, все работает. Напишите пожалуйста строчку кода, которая сотрет все заливки в листах. А я уже сам разберусь куда ее вставить. Спасибо вам , что свое время тратите, чтобы помочь.
AndreTM, Попробовал, все работает. Напишите пожалуйста строчку кода, которая сотрет все заливки в листах. А я уже сам разберусь куда ее вставить. Спасибо вам , что свое время тратите, чтобы помочь.vdekameron
В принципе, можно обойтись и без кнопок и т.п. (еврейский вариант) В модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim cell As Range, cell2 As Range Application.ScreenUpdating = False If Not Sh Is Sheets(1) Then For Each cell In Sh.[B5:B30] Set cell2 = Sheets(1).Range(cell.Address) cell.Interior.ColorIndex = cell2.Interior.ColorIndex Next End If Application.ScreenUpdating = True End Sub
[/vba]
В принципе, можно обойтись и без кнопок и т.п. (еврейский вариант) В модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim cell As Range, cell2 As Range Application.ScreenUpdating = False If Not Sh Is Sheets(1) Then For Each cell In Sh.[B5:B30] Set cell2 = Sheets(1).Range(cell.Address) cell.Interior.ColorIndex = cell2.Interior.ColorIndex Next End If Application.ScreenUpdating = True End Sub
krosav4ig, Вариант хороший, но только работает только с первого листа А по остальным когда ходишь передергивает как то. Через кнопку, как показал AndreTM, лучше, только мне бы еще знать как потом можно удалить эту заливку. Мне бы просто код, я бы нашел куда его засунуть
krosav4ig, Вариант хороший, но только работает только с первого листа А по остальным когда ходишь передергивает как то. Через кнопку, как показал AndreTM, лучше, только мне бы еще знать как потом можно удалить эту заливку. Мне бы просто код, я бы нашел куда его засунуть vdekameron
krosav4ig, Да мне вообще все подходит, что ваш вариант, что вариант AndreTM, только вот не подходит одному д..бу, надеюсь он тут не сидит. Дайте пожалуйста код, который удалит всю заливку в этом файле.
krosav4ig, Да мне вообще все подходит, что ваш вариант, что вариант AndreTM, только вот не подходит одному д..бу, надеюсь он тут не сидит. Дайте пожалуйста код, который удалит всю заливку в этом файле.vdekameron
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
А по остальным когда ходишь передергивает как то. Через кнопку, как показал AndreTM, лучше, только мне бы еще знать как потом можно удалить эту заливку. Мне бы просто код, я бы нашел куда его засунуть 
