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

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

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

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

Если есть возможность выбирать на какой принтер печатать - можно ли как то прописать выбор в макросе?
 
Перейти    
Поиск по первым буквам в списке
 
#
01.09.2021 14:51:01
IKor, перейти по ссылке пробовал. Но в моем случае этот метод не подходит - список строится по столбцу в котором автоматически уже выбранное заменяется 0, Пробовал разные варианты.

No Name, а можно чтобы список открывался? Как его на все ячейки в столбце протянуть?
Изменено: vikttur - 01.09.2021 15:34:03
 
Перейти    
Поиск по первым буквам в списке
 
#
31.08.2021 09:34:27
антивирус не пропускает ссылку.  
 
Перейти    
Поиск по первым буквам в списке
 
#
31.08.2021 09:13:53
не совсем то, что надо. Надо чтобы можно было щелкнуть в поле ввести пару первых символов и выбрать из отсортированного списка требуемый пункт.

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

Итоговая табличка будет большой - все материалы штучные.
Находил похожую тему но не понял как сделать это в моей табличке.
Столбцы В и С будут скрыты, вся работа только по столбцу D
Изменено: vikttur - 30.08.2021 17:07:03
 
Перейти    
Если слово есть в столбце - показать его, иначе 0
 
#
30.08.2021 16:06:45
Ігор Гончаренко, спасибо, работает как надо!

Спасибо за ответы! Решение найдено!
Изменено: vikttur - 30.08.2021 16:54:12
 
Перейти    
Если слово есть в столбце - показать его, иначе 0
 
#
30.08.2021 16:06:19
Цитата
vikttur написал:
Читайте правила форума, предлагайте название. Заменят модераторы.
если слово есть в столбце - показать его, иначе 0

Цитата
Ігор Гончаренко написал:
название темы:если слово есть в столбце - показать его, иначе 0
Спасибо!  
 
Перейти    
Если слово есть в столбце - показать его, иначе 0
 
#
30.08.2021 15:35:21
Есть файлик в котором на работе веду учет выданного и возвращенного материала. Чисто для себя чтобы было понятно что и кому отдал, чтобы не бежать на склад и не копаться в ящике.

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

Формула работает, но хотелось бы ее как то сократить, в дальнейшем список будет только расти.
Изменено: vikttur - 30.08.2021 16:55:43
 
Перейти    
Запись данных из ячеек макросом на другой лист
 
#
22.07.2021 15:32:25
Ігор Гончаренко, Громадное спасибо! Работает отлично!
 
Перейти    
Перенос в ячейке на другую строку в VBA
 
#
22.07.2021 14:46:13
Ігор Гончаренко, Спасибо! Работает как надо. И нет запятой на конце, как в другом варианте
 
Перейти    
Перенос в ячейке на другую строку в VBA
 
#
22.07.2021 11:34:03
Цитата
Ігор Гончаренко написал:
только при чем здесь уникальные???
Наверное не правильно выразился. Да, нужен список из неповторяющихся значений, чтобы пропускались пустые и содержащие текст "тест" (я не придумал как по другому обойти ошибки #Н/Д или #ЗНАЧ! которые при некоторых обстоятельствах возникают в конце списка значений)
 
Перейти    
Запись данных из ячеек макросом на другой лист
 
#
22.07.2021 11:22:28
Нужно скопировать значения и форматы чисел из ячеек В2, В5, В9,В10, В17, В18 с листа заполнять тут на лист Учет

Делать это по нажатию на кнопку с макросом и после каждого нажатия вносить на новую строку ниже предыдущей записи
Изменено: rpepel - 22.07.2021 11:53:20 (переформулировка вопроса и темы)
 
Перейти    
Перенос в ячейке на другую строку в VBA
 
#
22.07.2021 08:29:12
msi2102, нужна еще проверка что ячейка не содержит слово текст или не является пустой.
 
Перейти    
Перенос в ячейке на другую строку в VBA
 
#
21.07.2021 16:47:48
vikttur, спасибо! Работает как надо!
msi2102, работает только на первом листе, на втором уникальность отбора не работает.
Спасибо за оперативный ответ!  
Изменено: vikttur - 21.07.2021 18:07:22
 
Перейти    
Перенос в ячейке на другую строку в VBA
 
#
21.07.2021 15:25:14
Пример на первом листе все работает как надо, на втором выдает ошибку
 
Перейти    
Перенос в ячейке на другую строку в 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
 
Перейти    
Сцепить без повторов непустые ячейки
 
#
21.07.2021 11:43:23
Еще один вопрос возник. один вопрос - одна тема[МОДЕРАТОР]
Изменено: vikttur - 21.07.2021 14:37:48
 
Перейти    
Сцепить без повторов непустые ячейки
 
#
20.07.2021 16:21:56
Дмитрий(The_Prist) Щербаков, Спасибо, VBA только осваиваю, не всегда получается разобраться с очевидным  :)  
 
Перейти    
Сцепить без повторов непустые ячейки
 
#
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 14:44:14
Прочитал. Попробовал - выводит не то что надо. Еще раз почитал, еще раз попробовал - снова н/д. Начал искать косяк. Нашел. Оказывается что лишние пробелы ставить не надо))
Код
=ВПР(A2;&#39;[Данные сотрудников.xlsx]Лист1&#39;!$B$2:$I$4;7;ЛОЖЬ)
вот такая формула получилась. Если указать ИСТИНА, то количество пробелов роли не играют.
Код
=ЛЕВСИМВ(ВПР(A2;&#39;[Данные сотрудников.xlsx]Лист1&#39;!$B$2:$I$4;7;ЛОЖЬ);12)
А такой формулой вытащил номер паспорта, он у меня в данных первым идет.  
Изменено: vikttur - 07.07.2021 17:02:38
 
Перейти    
Вывод данных из одного файла в другой
 
#
07.07.2021 09:40:41
Есть 2 файла эксель. В одном содержатся полные данные на сотрудника. Задача вытащить номер паспорта по фио. До этого была формула - она искала по не по фамилии а по номеру в списке. По фамилии почему то выдает ошибку. не могу понять в чем ошибся. Возможно нужна другая формула?
 
Перейти    
Вывод сообщения если встречается значение в 2х соседних ячейках
 
#
26.04.2021 16:27:21
МатросНаЗебре, спасибо!
 
Перейти    
Вывод сообщения если встречается значение в 2х соседних ячейках
 
#
26.04.2021 14:54:41
Цитата
МатросНаЗебре написал:
На этот случай можно убрать знаки "=" из формулы:
Спасибо огромное! МатросНаЗебре, теперь все работает как надо. Сделал автоприменение при изменении ячеек листа, вообще шикарно получилось!

Маленькая просьба (мне для изучения VBA) - можно ли в коде ячейки в старом формате прописать? Я в новом формате обозначения ячеек до сих пор никак не разберусь
 
Перейти    
Вывод сообщения если встречается значение в 2х соседних ячейках
 
#
26.04.2021 14:21:09
Спасибо! Но работает слегка не так как надо - Анализ надо проводить по вкладке график. При заселении двух людей на одно спальное место по формуле выводится 2 (если один человек, то соответственно 1) Нужно чтобы искались подряд стоящие 2 или более цифры 2. Ведь заселение без учета времени. Часто так бывает - один приехал и заселился, второй в этот же день уезжает. Но вот вывод сообщения должен быть на листе оформление. Чтобы вылетало предупреждение что перекрытие составляет более 1го дня.
 
Перейти    
Вывод сообщения если встречается значение в 2х соседних ячейках
 
#
23.04.2021 14:21:54
в формуле разобрался, там на конце должна быть 2. А вот с выводом предупреждения почему то не получается. Как добиться чтобы выводилось сообщение об ошибке если значение в ячейке истина? Проверка данных срабатывает если только вводить вручную данные, а если значение появляется в результате вычислений, то сообщение об ошибке не вылетает
 
Перейти    
Вывод сообщения если встречается значение в 2х соседних ячейках
 
#
23.04.2021 10:23:46
Есть файл в котором идет учет командированных сотрудников.

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

Вопрос можно ли как то выводить сообщение если перекрытие одного места составляет более 1го дня подряд?  
 
Перейти    
Выборка на отдельном листе по настраиваемым фильтрам
 
#
23.04.2021 10:15:55
создам новую тему
Изменено: rpepel - 23.04.2021 10:17:52
 
Перейти    
Выборка на отдельном листе по настраиваемым фильтрам
 
#
22.04.2021 15:11:43
МатросНаЗебре, огромное спасибо! Это то что надо! VBA сила, пытаюсь изучать, но пока для меня как лес чудес
 
Перейти    
Выборка на отдельном листе по настраиваемым фильтрам
 
#
22.04.2021 14:38:45
Есть файл в котором ведется учет проживания командируемых сотрудников. Всё записывается на вкладке оформление, есть шахматка заселенности квартир.
Задача - сделать выписку по проживавшим сотрудникам на отчетный месяц и год по городам. Данные на вкладке оформление будут заполняться вниз, без удаления предыдущих. Адреса и города будут добавляться.  
 
Перейти    
Объединение табелей учета рабочего времени в один
 
#
11.03.2020 11:05:06
Цитата
Ігор Гончаренко написал:
идей полно, только без без файлов они совершенно бесполезны
Случайно смахнул когда текст вопроса поправлял, изначально были. Дополню чтобы была понятнее суть задачи.
Нужно вести учет рабочего времени командируемых сотрудников - есть несколько объектов куда люди командируются. На каждом ведется свой табель (А,Б,В) - состав и количество командированных будет постоянно меняться, соответственно в табелях А, Б,В каждый месяц будет разное количество строк. Задача забирать сведения по ключевому значению - это табельный номер и копировать сведения в общий файл.
Например присылают файл (его имя будет фиксировано) - я его копирую в папку с основным и в основном должны появиться новые сведения. Желательно чтобы ранее внесенные сведения в общем файле не изменялись, но это просто пожелание.
 
Перейти    
Страницы: 1 2 След.
Наверх