к товарищам ГУРУ

=CONCATENATE(IF(A1>0;A1;" ");" ";IF(B1>0;B1;" ");" ";IF(C1>0;TEXT(C1;"ДД.ММ.ГГГГ");" "))
Подскажите, как упростить?

выделить таблицу и заменить пустые строки на пробел

=VLOOKUP(C2;$S$2:$T$53;2)

задать область печати

требование включить макрос можете изменить в настройках EXCEL

ловиТЕ

vikttur спасибо, кто не ожибается тот ничего не делает)

Пожалуйста

Пробовал - не работает

Всем привет
В файле 6 и более листов, подскажите как сделать, чтобы при открытии показывало только 2 нужных листа, остальные будут спрятаны
Комбинация скрытия остальных листов не подходит, т.к. далее в макросе будет прописаны разграничения доступа по листам

как прописать второй лист?

Private Sub Workbook_Open()
     If Environ("USERNAME") <> "NoName" Then   'если логин пользователя не совпадает
Worksheets("Обзор").Visible = False    'скрываем Лист
Worksheets("Шаблон").Visible = False
  Else
For i = 1 To Worksheets.Count     'в противном случае
Worksheets(i).Visible = True  'проходим в цикле по всем листам
Next i    'и делаем их видимыми

  End If
       
    If Environ("USERNAME") <> "rf800990" Then   'если логин пользователя не совпадает
Worksheets("Обзор").Visible = False    'скрываем Лист
Worksheets("Шаблон").Visible = False
  Else
For i = 1 To Worksheets.Count     'в противном случае
Worksheets(i).Visible = True  'проходим в цикле по всем листам
Next i    'и делаем их видимыми

  End If
 
  End Sub

Если заходит пользователь rf800990 то все работает
Если заходит пользователь NoName   то не работает

Добрый день!
Файл расположен в локальной сети. Макрос для отображения определенных листов разным пользователям. Около 20 пользователей - только к листу заказ, еще 4 пользователя - ко всем листам (Иванов, Петров)
Помогите объеденить

ничего не понятно

kuklp, спасибо, все работает

Данный метод не подходит, т.к. просто закрывает таблицу через определенный промежуток времени. Речь шла именно о бездействии в работе с таблицей

Спасибо, попробую

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

Kuzmich, СПАСИБО

В принципе то что нужно, но если добавить еще записи он добавляет весь список заново, а не дополняет его
СПАСИБО, дальше попробую сам разобраться

строки с номерами заказов добавятся, хотелось бы на примере ВЕДА сделать, а дальше я уже подстрою под себя, под все заказы

расставить в соответствующие ячейки, если номера заказов будут совпадать, то формировать по порядку не заменяя друг друга

Нужна помощь специалистов, любителей, и просто знающих что да как
есть файл:
1 лист - заполняется в ручную, некая услуга. Основное это цена с НДС
2 лист - обобщенная таблица: задача такая - из листа 1 перенести на лист 2 цену с НДС, цену с НДС расставить в соответствующие ячейки соответствующую номеру заказа и месяцу, а в примечание добавить номер заявки

пример как должно быть в приложении

всем спасибо за работу по всем мои задачам
все подошло
подкорректировал под себя
и модератору СПАСИБО

Вчера подсказали как сделать видимую кнопку при соблюдений условий. Но есть одно но, при назначении к этой кнопки макроса выскакивает ошибка, подскажите что не так

Подскажите макрос
если в строке А2:G2 хотябы одна ячейка не будет заполнена кнопка будет не активной

все получилось, спасибо)

при сохранении между password  и кавычками само ставится пробел

При выполнении действий макроса снимается защита ячеек (в формате ячеек), при этом защита листа сохраняется, что не так?

Sub Copy_ClearЗаказ()
Application.ScreenUpdating = False 'отключили обновление экрана
Sheets("Обзор заказа").Select
ActiveSheet.Unprotect Password:="00000"
Sheets("Заказ").Activate
Range("A2:G12" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("Обзор заказа").Cells(Sheets("Обзор заказа").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Sheets("Обзор заказа").Activate 'активируем лист
' MsgBox " Данные   успешно скопированы на лист Обзор заказа", 64, "Подтверждение копирования диапазона"
 

With Sheets("Заказ")
       LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'Нашли последнюю строку на  листе
       .Range(.Cells(2, 1), .Cells(LastRow, ).ClearContents  'Очистили диапазон таблицы полностью
End With
'  MsgBox " Данные с листа Заказ  очищены", 64, "Очистка диапазона"
Sheets("Заказ").Activate
Sheets("Обзор заказа").Select
   Selection.Locked = True
   ActiveSheet.Protect Password:="00000", DrawingObjects:=True, Contents:=True, Scenarios:=True
 Application.ScreenUpdating = True 'включили обновление экрана
End Sub

есть макрос
Sub Copy_ClearЗаказ()
Application.ScreenUpdating = False 'отключили обновление экрана
Range("A2:G12" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("Обзор заказа").Cells(Sheets("Обзор заказа").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Sheets("Обзор заказа").Activate 'активируем лист
' MsgBox " Данные   успешно скопированы на лист Обзор заказа", 64, "Подтверждение копирования диапазона"
 

With Sheets("Заказ")
       LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'Нашли последнюю строку на  листе
       .Range(.Cells(2, 1), .Cells(LastRow, ).ClearContents  'Очистили диапазон таблицы полностью
End With
'  MsgBox " Данные с листа Заказ  очищены", 64, "Очистка диапазона"
Sheets("Заказ").Activate
 Application.ScreenUpdating = True 'включили обновление экрана
End Sub

вкладка ОБЗОР ЗАКАЗА запоролена
Помогите дописать: нужно снять защиту со вкладки, произойдет некое действие по макросу, заново поставить пароль