Управление условным форматированием

[SAS888]

Ну, где-то так.

[valerij]

Сообщение от SAS888

Ну, где-то так.

SAS888
Огромнейшее СПАСИБО
Пошел, разбираться и учится, а завтра на старой машине, проверю и отпишусь.

[SAS888]

Извините, в процессе формирования файла "МАЙ.xls" из файла "АПРЕЛЬ.xls", получились кое-какие "огрехи". Возьмите исправленный файл.

[valerij]

Сообщение от SAS888

в процессе формирования файла получились кое-какие "огрехи".

SAS888!
Одну опечатку я сразу нашел, это "Select Case Sh.Undex".
При вводе №-ра в НАКЛ, происходит заметная задержка и передергивание экрана, причем в ст. А она короче, чем в В.

1) А в исправленном Вами файле, при вводе числа, скачка и задержки нет, но курсор исчезает, перескакивая в ст. IN и там я вижу с ст. IM по IV все то же, что и в А-D, так должно быть?
2) В ст. А и В стал проверять, на наличие дубликатов(кн. "Сортировка по возрастанию"), такие оказались в ст. А, удалил их, а на их место, с конца столбца, ввел, не вырезать-вставить, а ввел в ручную, заполнил пустые места, в ст. В, появились большие пропуски строк, сортирую в ст. В, такое происходит в ст. А, редактирование как то предусмотреть, окажется не лишним. Хотя эти пропуски, на результат совпадений со ст. С и Д, не сказались.
SAS888!
Ох и сложное это дело, честно, не ожидал.
А если сделать кнопку в Е1 - "П О И С К"(раздвинув Е1 в два раза), до нажатия этой кнопки, со столбцми А и В, мона делать все, что угодно, нажав кн. пошел работать макрос??

[SAS888]

Тогда теряется смысл в экономии времени (количества ячеек) просмотра.
Посмотрите следующий вариант. Запуск процедуры - только по нажатию кнопки. С ячейками можно делать все, что угодно. Устроит по времени выполнения?

[valerij]

Сообщение от SAS888

Устроит по времени выполнения?

Завтра, скажу(поеду вечером в офис, попробую)
SAS888
Спасибо.
Жаль коньячка не могу здесь выложить!

[valerij]

SAS888!!!!!!!!
Все СУПЕР!
Ввод прекрасный, задержек, НЕТ, издевался по полной, вырезал, удалял, копировал.........
Маленький вопрос, при нажатии кн. удаляется заливка в "шапке", да?
Но это сущий пустяк.

Теперь в понед. или во вторник, возьму от поставщика данные......

Общем, Огромное тебе СПАСИБО!

[SAS888]

Если не нужно, чтобы терялся цвет "шапки", то в коде макроса, вместо строки:

Columns("A:D").Interior.ColorIndex = xlNone

пропишите строку:

Range(Cells(2, "A"), Cells(Rows.Count, "D")).Interior.ColorIndex = xlNone

,просто, я подумал, что это не существенно и написал как по-короче.

[дмидми]

Сообщение от SAS888

Если не нужно, чтобы терялся цвет "шапки"

Только ни в коем случае не так, как в ёксельном Help'е!
Там сначала Offset, потом Resize, -- а нужно наоборот!

    Const HRC = 1 'header rows count
    With Columns("A:D") 'или любой другой (односвязный!) рэнж
        With .Resize(.Rows.Count - HRC).Offset(HRC) 
            .Interior.ColorIndex = xlNone 'или еще что-нибудь
        End With
    End With

[valerij]

Сообщение от SAS888

Если не нужно, чтобы терялся цвет "шапки".

SAS888
!!!!!!!!!!!!!!!!!!!!!!!!!!