Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » rpepel
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Печать определенных страниц макросом
 
#
29.10.2021 09:11:03
Всем доброго утра!

Возникло непреодолимое желание сделать печать по щелчку на кнопку с макросом...да не просто так, а определенные станицы с одного листа в формате двусторонней печати:
1 макрос - печать страниц 1-2 с листа "командировочные документы" печать двусторонняя с переворотом относительного длинного края
2 макрос - печать страниц 1-2 с листа "служебное задание" печать двусторонняя с переворотом относительного короткого края

поля на листе "командировочные документы" заданны пользовательские - важно чтобы при печати они не смещались( верхнее и нижнее по 0,9см, левое и правое по 0,5см, колонтитулы по 0,8

Если есть возможность выбирать на какой принтер печатать - можно ли как то прописать выбор в макросе?
 
Перейти    
Поиск по первым буквам в списке
 
#
30.08.2021 16:19:16
есть файлик, для ведения учета выданного и возвращенного материала. Выбор из списка. Повторно выбрать ранее выданное уже нельзя.
Все работает, но возник вопрос - можно ли как то в выпадающем списке осуществлять быстрый поиск по первым буквам? И можно ли как то скрыть 0 из списка?

Итоговая табличка будет большой - все материалы штучные.
Находил похожую тему но не понял как сделать это в моей табличке.
Столбцы В и С будут скрыты, вся работа только по столбцу D
Изменено: vikttur - 30.08.2021 17:07:03
 
Перейти    
Если слово есть в столбце - показать его, иначе 0
 
#
30.08.2021 15:35:21
Есть файлик в котором на работе веду учет выданного и возвращенного материала. Чисто для себя чтобы было понятно что и кому отдал, чтобы не бежать на склад и не копаться в ящике.

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

Формула работает, но хотелось бы ее как то сократить, в дальнейшем список будет только расти.
Изменено: vikttur - 30.08.2021 16:55:43
 
Перейти    
Запись данных из ячеек макросом на другой лист
 
#
22.07.2021 11:22:28
Нужно скопировать значения и форматы чисел из ячеек В2, В5, В9,В10, В17, В18 с листа заполнять тут на лист Учет

Делать это по нажатию на кнопку с макросом и после каждого нажатия вносить на новую строку ниже предыдущей записи
Изменено: rpepel - 22.07.2021 11:53:20 (переформулировка вопроса и темы)
 
Перейти    
Перенос в ячейке на другую строку в VBA
 
#
21.07.2021 15:16:00
Есть код функции, которая берет уникальные значения из диапазона и сцепляет их в одну ячейку, так же есть проверка на слово "тест" и пустые строки, они пропускаются.
Код
Function СцепитьУник(rng As Range, Optional sep As String = ", ") As String
Dim x, v, s As String
x = Intersect(rng, ActiveSheet.UsedRange).Value: s = sep
For Each v In x
 v = Trim$(v)
If v <> "тест" And v <> "" Then
    If Len(v) Then If InStr(s, sep & v & sep) = 0 Then s = s & v & sep
End If
Next
СцепитьУник= Mid(s, Len(sep) + 1, Len(s) - Len(sep) * 2)
End Function
Вопрос как задать разделитель чтобы все сцепленные выдавались не одной строкой, а каждое значение переносилось внутри ячейки на новую строку
текст1, текст2, текст3
чтобы получилось
Текст1,
Текст2,
Текст3

И еще такой момент - функция выдает ошибку #ЗНАЧ! Если данные берутся с другого листа. Если данные берутся с этого же листа - ошибки нет. Причем ошибка то появляется то нет.
Изменено: vikttur - 21.07.2021 15:45:46
 
Перейти    
Сцепить без повторов непустые ячейки
 
#
20.07.2021 15:59:21
есть огромное желание сделать функцию сцепления нескольких ячеек в одну, да еще и без повторов, да еще и чтобы пустые пропускались...

Есть два кусочка кода
Код
Public Function СцепитьНеПустые(target As Range)
    For Each cl In target.Cells
        If cl.Value <> "" Then СцепитьНеПустые= СцепитьНеПустые & cl.Value & ", "
    Next
End Function
первый сцепляет непустые ячейки, например если в 3х ячейках будут фамилии, то в ячейке выведутся все 3 фамилии через запятую
второй кусок кода сцепляет уникальные значения
Код
Function СцепитьУник(rng As Range, Optional sep As String = "; ") As String
Dim x, v, s As String
x = Intersect(rng, ActiveSheet.UsedRange).Value: s = sep
For Each v In x
 v = Trim$(v)
 If Len(v) Then If InStr(s, sep & v & sep) = 0 Then s = s & v & sep
Next
СцепитьУник= Mid(s, Len(sep) + 1, Len(s) - Len(sep) * 2)
End Function
Не пойму как прописать во втором коде условие чтобы пропускать пустые ячейки или ячейки содержащие слово "тест"
Второй код используется для сцепления должностей, без повторов

сам файл к сожалению прикрепить не могу, слишком большой.
Изменено: vikttur - 21.07.2021 14:36:28
 
Перейти    
Вывод данных из одного файла в другой
 
#
07.07.2021 09:40:41
Есть 2 файла эксель. В одном содержатся полные данные на сотрудника. Задача вытащить номер паспорта по фио. До этого была формула - она искала по не по фамилии а по номеру в списке. По фамилии почему то выдает ошибку. не могу понять в чем ошибся. Возможно нужна другая формула?
 
Перейти    
Вывод сообщения если встречается значение в 2х соседних ячейках
 
#
23.04.2021 10:23:46
Есть файл в котором идет учет командированных сотрудников.

При заполнении на вкладке "Оформление" можно указать что в один день на одном адресе и месте могут быть "заселены" 2 человека.
например человек приехал в командировку сменить другого. Утром приехал - заселяется, а второй человек в это время собирается уезжать. Тут как бы вопросов нет и на вкладке "График" выводится цифра 2 и визуально это видно .

Вопрос можно ли как то выводить сообщение если перекрытие одного места составляет более 1го дня подряд?  
 
Перейти    
Выборка на отдельном листе по настраиваемым фильтрам
 
#
22.04.2021 14:38:45
Есть файл в котором ведется учет проживания командируемых сотрудников. Всё записывается на вкладке оформление, есть шахматка заселенности квартир.
Задача - сделать выписку по проживавшим сотрудникам на отчетный месяц и год по городам. Данные на вкладке оформление будут заполняться вниз, без удаления предыдущих. Адреса и города будут добавляться.  
 
Перейти    
Объединение табелей учета рабочего времени в один
 
#
05.03.2020 11:54:09
Здравствуйте! Нужна помощь - хочу автоматизировать заполнение табеля учета рабочего времени. Ведется 3 табеля учета рабочего времени, Каждый месяц 1 числа присылаются файлы табелей, данные из них необходимо внести в один общий. В дальнейшем планируется количество файлов увеличить до 6 или 7 - вручную заполнять будет долго. Как сделать автоматическое заполнения общего файла по ключевому уникальному значению табельного номера?
Изменено: rpepel - 11.03.2020 10:55:31 (добавление файлов)
 
Перейти    
Учет занятости командировочных квартир с помощью условного форматирования
 
#
31.10.2019 11:48:23
Здравствуйте!

Есть файл учета проживания командированных сотрудников по квартирам, необходимо сделать шахматку (На листе график) с условным форматированием занято-свободно. Исходные данные будут собираться с листа Оформление.

Необходимо:
  • Видеть общее количество свободных мест на текущую дату по городам (дата обновляется автоматически каждый раз при открытии)
  • Занятость спального места с даты заселения по дату выселения (занято красным, свободно зеленым)
Всю голову сломал, никак не придумаю как сделать.  
 
Перейти    
Страницы: 1
Наверх