vikttur, в принципе все понятно, спасибо большое!!!!
Изменено: - 12.01.2016 17:47:20
|
12.01.2016 17:41:29
vikttur, в принципе все понятно, спасибо большое!!!!
Изменено: - 12.01.2016 17:47:20
|
|
|
|
|
|
12.01.2016 17:25:55
vikttur, спасибо за помощь!!!!
вроде получилось, только не совсем до конца код понял If Target.Cells.ххххххCount > 1 Then ххххххExit Sub - вот это не понял для чего If Target.хххххRow < 3 Then Exit хххххSub - это понятно, что шапку таблицы не учитывал вот этот иф понять вообще не могу If Not хххххApplication.Intersect(Range("C:C"), хххххTarget) Is Nothing Then а так вот что получилось
во вложении файл , там с 35 строки начинается действо (столбец заказ 1) когда на заказ ставишь число - строка окрашивается, зануляешь - то все опять белое
Изменено: - 12.01.2016 17:29:34
|
|||
|
|
|
|
12.01.2016 16:42:56
|
|||
|
|
|
|
11.11.2015 16:11:38
|
|||
|
|
|
|
11.11.2015 14:21:38
JayBhagavan,может я что то не так делаю, выдает ошибку "компонент с указанным именем не найден" и показывает на строку Set Shp1 = ActiveSheet.Shapes("Button 1")
ЗЫ делаю с нового файла Файлы удалены: превышение допустимого размера вложения [МОДЕРАТОР]
Изменено: - 11.11.2015 16:42:00
|
|
|
|
|
|
11.11.2015 13:30:37
|
|||
|
|
|
|
10.11.2015 18:16:01
спасибо большое The_Prist, , вы показали как фиксировать столбец, полазив на других форумах, соорудил это (см вложенный файл)
прошу не кидаться тапками, так как программирую всего 3 часа) |
|
|
|
|