Сообщений в теме: 12

[Иван]

Добрый день. Подскажите как можно свернуть или скрыть строку при окрашивании ее в определенный цвет. Есть документ где ячейки при определенной дате окрашиваются в серый цвет и чтоб документ не растягивать, сворачивать или скрывать эти строки в один список.

Прикрепленные файлы

• СКАЧАТЬ

  Вес: 20,48К

  
  

  Загрузок: 4

  
  

[Dedsec]

Иван, а ячейки будут окрашиваться вручную или через условное форматирование?

[Иван]

Через условное форматирование. Меня интересует столбец (Срок окончания договора), когда срок прошел и ячейка перекрасилась в цвет. Тут наверно нужен скрипт я в этом не силен. Как вариант, можно договора с истекшим сроком перемещать на другой лист для более наглядного просмотра если это возможно. Это уже наверно будет другая тема?

[Dedsec]

Иван, во-первых, можно было бы сделать скрытие, если только цвет проставляется вручную. С условным форматированием это будет сложно и не бесплатно

Во-вторых, да, перемещение на другой лист это уже другая процедура. В целом, Вам лучше сделать заказ на разработку макроса для всех ваших нужд, ибо очень много у Вас набирается

[китин]

Посмотрите.так надо?

[Dedsec]

китин, куда смотреть?)

[китин]

странно, файл клал. повторю

вот код(прошу не пинать, только учусь) критика приветствуется

Sub Row_skrit() Dim ac_ Application.ScreenUpdating = 0  ac_ = Application.Calculation  Application.Calculation = xlCalculationManual   With ThisWorkbook.ActiveSheet    Dim Z As Long    For Z = .Cells(Rows.Count, 3).End(xlUp).Row To 5 Step -1	    If .Cells(Z, 12).Value < Cells(1, 13) Then .Cells(Z, 12).RowHeight = 0    Next Z   End With Application.ScreenUpdating = 1 Application.Calculation = ac_ Application.Calculation = xlCalculationAutomaticEnd Sub

[Dedsec]

китин, сейчас к сожалению с телефона, за границей) как буду дома, проверю но на первый взгляд вроде все гуд.У нас в принципе Thomas профи по Excel, может скажет чего хорошего)))

[китин]

а почему файл не приложился? я оба раза прикладывал

[Dedsec]

а почему файл не приложился? я оба раза приoкладывал

А как прикладывали? Нужно отвечать через расширенную форму и там прикреплять файл

[китин]

через расширенную форму обзор загрузить, ну как обычно.

[Dedsec]

китин, в раздел проблем напишите со скриншотами, разберемся

[китин]

щаз попробую

получилось. вопрос отпал

 

Прикрепленные файлы

• СКАЧАТЬ

  Вес: 28,96К

  
  

  Загрузок: 0

  
  

Сообщение отредактировал китин: 19 Декабрь 2016