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

Страницы: 1 2 След.
Номер ячейки согласно фильтру
 
#
05.12.2025 12:14:08
Здравствуйте! Подскажите пожалуйста. В таблице выделил желтым ячейку, она ссылается на А2. Как сделать, чтобы когда ставлю фильтр например цифру 2, в ячейке С1, было значение из ячейки А3.
 
Перейти    
Объединение столбцов в один, PQ, сводная
 
#
21.11.2025 09:43:58
Здравствуйте! Подскажите пожалуйста, как объединить столбцы в один столбец. (через сводную или Power Query). Но чтобы данные из первого столбца дублировались. 1 лист пример. 2 лист как должно быть. Спасибо  :)
Изменено: Sanja - 21.11.2025 11:27:48
 
Перейти    
Извлечение слова из ячейки, Извлечение всех слов из ячейки по условию
 
#
24.05.2025 14:19:31
Ребят привет, нужна ваша помощь. Имеется в одной ячейке текст, нужно извлечь из нее по условию слова (в данном случае, слова до пробела, можно сделать определенной длины), начинаются слова на "РТ". Можно в одну ячейку (самое главное чтобы потом разделить можно было по столбцам), можно в разные.
 
Перейти    
Индекс Наименьший, Поиск ячеек за исключением дублей по нескольким условиям.
 
#
03.04.2025 15:27:01
День добрый! Ребят все перепробовал, но не получается, выходят данные некорректные, прошу помощи (
В общем нужно по нескольким условиям, выбрать ячейки с данными (за минусом дублей)
В примере написал как должно быть ) Спасибо
 
Перейти    
Индекс поиск позиций. Условие с датой
 
#
22.03.2025 16:27:25
Здравствуйте коллеги! Подскажите пожалуйста, не могу прописать (понять как) условие с датой.
Смысл такой, все условия прописаны, и нужно прописать еще условие, чтобы (искал,брал) значения(е) с датой не больше даты в ячейке D20.
Спасибо  :) пример приложил
Изменено: Sanja - 22.03.2025 16:30:03
 
Перейти    
Печать PDF файлов по шаблону, Печать файлов, по заданному мною шаблону
 
#
25.02.2025 18:13:41
Привет господа! Прошу меня извинить, что пишу на данном форуме, но возможно тема будет интересна многим )
В общем. Имеется файл PDF. 100 страниц. Каждого нужно по 7 копий. Суть какая, с 1 по 10 страницы односторонние листы, 11-12 двусторонние. и так далее.
Хочется 1 раз прогнать все, потом нажать кнопочку и он сам уже будет печатать (как я печатал ранее). В ексель это реально несложно, а в PDF для меня проблема. Все редакторы имеются  :) Спасибо
 
Перейти    
Печать файлов, Макрос на печать файлов по количеству и порядку.
 
#
27.08.2024 10:03:17
Здравствуйте ребят. Нужна ваша помощь. Нужен макрос на печать. В общем, будет много файлов, в каждом файле много вкладок, каждая вкладка в файле будет печататься разное количество раз. Можно как то написать код, чтобы не открывать каждый раз файл, а просто выбрал все файлы и пустил на печать. Имя вкладок у всех одинаковое (имя файлов разное).  :)
 
Перейти    
Поиск дат по условию
 
#
03.07.2024 13:34:00
Здравствуйте коллеги! В общем проблема такая. Имеется 109 дат, мне нужно найти 24 даты. В общем найти среднее, так скажем равный промежуток между этими датами!  :)
 
Перейти    
Копирование файла из папки в другую папку
 
#
25.06.2024 10:49:12
Приветствую коллеги! Нужна ваша помощь. Нужен макрос, который будет копировать файлы. По системе. Имя файла - где этот файл находится (имя папки) - куда копировать(имя папки).
 
Перейти    
Макрос на создание (формирование) актов
 
#
29.05.2024 18:52:49
Здравствуйте господа. Имеется файл на создание актов. Все хорошо, но есть проблема, нужно вводить постоянно линию в ячейку AR31. Как можно сделать, чтобы я вбил например 3 линии, и он их поочередно формировал согласно линии.  :)
 
Перейти    
Подсчет значений по условию, за минусом дублей
 
#
08.05.2024 14:49:11
Приветствую ребят, скажите пожалуйста, как можно решить данную проблему. Имеется список линий и систем покраски, мне нужно по условию, посчитать количество систем на данную линии, за минусом дублей. В примере, на данную линию, 2 система покраски )
Ах да, если можно, было бы прекрасно еще сделать в одной ячейке (CS.06, CS.07).
Изменено: Евгений - 08.05.2024 14:56:37
 
Перейти    
Перевод в вертикальное положение
 
#
13.02.2024 17:13:13
Привет коллеги! подскажите плиз, как можно сделать табличку. Желтым выделил как должно быть!  :)
 
Перейти    
Впр на несколько линий
 
#
22.01.2024 12:57:48
Приветствую господа, подскажите пожалуйста, как можно все сделать, чтобы быстро найти все линии по списку. Спасибо
Можно конечно попробовать использовать индекс(наименьший), но там нужно будет поочередно выбирать каждую линию.
 
Перейти    
Закрепление формулы
 
#
17.01.2024 17:52:19
Приветствую коллеги. Подскажите пожалуйста, имеется 2 файла (книга 1, книга 2), когда в книге 2 я ссылаюсь на ячейку (формулу указал ниже), у меня автоматом идет закрепление ячейки, как сделать чтобы ячейка по дефолту была откреплена. Можно конечно в начале нажать F4. Но как сделать чтобы это действие не приходилось делать. Спасибо
Код
=[Книга1]Лист1!$A$1


Код
=[Книга1]Лист1!A1
 
Перейти    
Совместная работа с Onedrive и ексель
 
#
20.11.2023 10:26:20
Привет ребят. Подскажите пожалуйста. Есть 2 таблицы Onedrive и ексель, когда делаю впр в onedrive, при выборе таблицы в ексель, он не отображает в onedrive. Что делать подскажите плиз )
 
Перейти    
Сохранение файла
 
#
15.11.2023 18:14:39
Здравствуйте. Подскажите пожалуйста. Имеется файл на сохранение файла.
Что нужно прописать в коде, чтобы сохранялось как вкладка Пр. к АОСР1 (2)

На данный момент, приходится открывать файл, ставить фильтр *
Количество строк может быть разное с *
 
Перейти    
Сохранение файла
 
#
15.11.2023 11:27:30
Код
Sub Apzp()
On Error GoTo err1
'1.Определение адресов сохранения
act1 = "C:\Users\VEKSTAR\Desktop\АКЗ\АОСР\Номера АОСР\" & "\" & Replace(Sheets("АПЗП").Cells(2, 2), "/", "_") & ".xlsb"
'2.Процесс экспорта
Sheets("АПЗП").Select
    Sheets("АПЗП").Copy
    Cells.Select
    Range("D17").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("E18").Select
    ActiveWorkbook.SaveAs Filename:=act1, FileFormat _
        :=xlExcel12, CreateBackup:=False
    ActiveWindow.Close
 
Exit Sub
err1:
MsgBox "Накрыло п..дой по неизвестной причине", vbCritical, "Ошибка"
End Sub


Добрый день господа, подскажите пожалуйста. Имеется макрос, сохраняет файлы в данный момент в папку НОМЕРА АОСР.
Нужно чтобы сохранял файл в папку, с именем папки взятым из ячейки (например Cells(1, 1)).
Все папки с именем уже готовы. Нужно чтобы в общем искал ее и кидал туда  :)
 
Перейти    
Разделение начиная с определенного пробела
 
#
06.10.2023 18:52:00
Привет ребят! Подскажите пожалуйста, нужно сделать деление, точнее найти, начиная с 4го пробела. Как это можно сделать ?! Желтым как должно быть!  :)
 
Перейти    
ВПР для множества значений за исключением дублей
 
#
03.10.2023 10:31:56
Приветствую друзья! подскажите пожалуйста, как можно сделать данную процедуру. Пользуюсь данной формулой часто, все хорошо. Но сейчас нужно, чтобы при 2х условиях, исключал дубли. В файле выделил (желтым) это условия. Красным что получается. Зеленым - какой вариант мне нужен! Спасибо  :)
Вообще, смысл такой (возможно как то это сделать проще. Мне нужно посчитать количество уникальных ячеек в столбце А, по искомым значениям столбцов E и F.)
Изменено: Евгений - 03.10.2023 10:32:28
 
Перейти    
Перенос гиперссылки на другой лист
 
#
30.09.2023 13:40:11
Друзья подскажите пожалуйста. Имеется лист где прописаны ссылки. Когда прописываю формулу на другом листе (индекс(поискпоз)). У меня появляется только текст ячейки (имя без ссылки). Как сделать чтобы переносилось вместе со ссылкой. Иначе приходится искать все в ручную, что занимает время. Спасибо!  :)  
Изменено: Евгений - 30.09.2023 14:48:32
 
Перейти    
Поиск максимального значения с условием
 
#
27.09.2023 12:46:10
Приветствую коллеги! Подскажите пожалуйста, почему не работает формула. Файл приложил. Нужно чтобы искал из столбца B, за исключением последних 3х символов. Прописывал данное действие, в формуле Индекс(поискпоз). В ней все работает, указывал просматриваемый массив в таком же формате, все хорошо. А тут почему то нет. Можно конечно добавить соседний столбец. Но хотелось бы умести все в одну формулу!  :)  
 
Перейти    
Скрытие строки по условию
 
#
16.09.2023 14:18:19
Привет ребят! подскажите пожалуйста, у меня есть несколько строк! Если в них выполняется условие - у меня появляются данные, если условия не выполняются - пусто. Так вот, как можно сделать чтобы автоматически скрывало(раскрывало) строки в случае отсутствия/присутствия данных!  :)  
 
Перейти    
Копирование ячеек с формулой
 
#
14.09.2023 10:30:48
Привет! Подскажите пожалуйста. Как копировать формулы с одной таблицы в другую, чтобы формулы обновлялись согласно новой таблицы! (Приходится заходить в редактирование, копировать текс формулы, дальше уже вставлять). Возможно ли такое, строк очень много! ((((((
 
Перейти    
Остаток материала, Остаток по обьему
 
#
07.09.2023 11:27:33
Товарищи, нужна ваша помощь! Объясню ситуацию. Имеется один объем материалов. По примеру первой строки (875 кг). Я расходую 0,10 кг. Остаток 874,90. Далее, где у меня было 0,10 кг, будет уже другой объем, например 0,8. Останется 874,10. Так вот. Возможно ли, чтобы при обновлении расходуемых объемов, остаток менялся каждый раз, чтобы в общем сделать в одной ячейке ) В ручную неудобно постоянно менять (
 
Перейти    
Сохранение файла со скрытыми ячейками
 
#
30.05.2023 08:49:12
Добрый день господа! подскажите пожалуйста код. Суть такая, данный макрос сохраняет файл все отлично! но если скрыть ячейки (в моем случае столбец B, звездочки) то выдает ошибку.  :(
Код
Sub AKT()
On Error GoTo err1
'1.Определение адресов сохранения
act1 = "C:\Users\Evgen\Desktop\АКЗ\АОСР\Номера АОСР" & "\Акт №" & Replace(Sheets("Пр. к АОСР1").Cells(9, 3), "/", "_") & ".xlsb"
'2.Процесс экспорта
Sheets("Пр. к АОСР1").Select
    Sheets("Пр. к АОСР1").Copy
    Cells.Select
    Range("D17").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("E18").Select
    ActiveWorkbook.SaveAs Filename:=act1, FileFormat _
        :=xlExcel12, CreateBackup:=False
    ActiveWindow.Close

Exit Sub
err1:
MsgBox "Накрыло п..дой по неизвестной причине", vbCritical, "Ошибка"
End Sub
 
Перейти    
Сохранение файла с фильтром
 
#
20.05.2023 15:43:16
Добрый день господа! И снова нужна ваша помощь. Имеется макрос на сохранение файла. Но есть проблема, нужен код, чтобы при сохранении был фильтр. В файле, желтым выделено что будет неизменным. Зеленым то что будет меняться (больше меньше). Можно привязаться к звездочкам (столбец B). Либо к #Н/Д.  :)
Код
Sub AKT()
On Error GoTo err1
'1.Определение адресов сохранения
act1 = "C:\Users\Evgen\Desktop\АКЗ\АОСР\Номера АОСР" & "\Акт №" & Replace(Sheets("Пр. к АОСР1").Cells(9, 3), "/", "_") & ".xlsb"
'2.Процесс экспорта
Sheets("Пр. к АОСР1").Select
    Sheets("Пр. к АОСР1").Copy
    Cells.Select
    Range("D17").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("E18").Select
    ActiveWorkbook.SaveAs Filename:=act1, FileFormat _
        :=xlExcel12, CreateBackup:=False
    ActiveWindow.Close

Exit Sub
err1:
MsgBox "Накрыло п..дой по неизвестной причине", vbCritical, "Ошибка"
End Sub

Ребят, проблема актуальна (
Изменено: Евгений - 22.05.2023 08:51:29
 
Перейти    
Сумма значений в ячейках с формулой
 
#
19.05.2023 14:08:58
Привет ребята. Помогите пожалуйста. Нужно просуммировать ячейки с формулами. Очень надеюсь на вашу помощь.
Нужно именно формулой, без дополнительных движений (вставить как значения)!  :)  
 
Перейти    
Пример формулы по цвету ячейки
 
#
03.05.2023 15:57:27
Добрый день господа! имеется много формул... такой вопрос. Можно ли как то сделать, чтобы формулы работали "применялись" только по цвету ячейки ?!  :)  
 
Перейти    
Макрос на сохранение файлов нескольких вкладок
 
#
28.04.2023 11:51:39
Добрый день господа! подскажите пожалуйста, что нужно прописать, чтобы макрос, сохранял активные вкладки в файле (в которых нахожусь).
Сохраняет только первую вкладку.
Ах да! и чтобы имя брало из каждой вкладки (одна и та же ячейка)
Вкладки:
AОСР1
AОСР2
AОСР3
AОСР4
Благодарю!


Код
Sub SplitSheets6()
    Dim s As Worksheet

    For Each s In ActiveWindow.SelectedSheets
s.Copy                                                  'сохраняем лист как новый файл
        ActiveWorkbook.SaveAs "C:\АОСР" & "\" & Worksheets("01. AОСР1").Cells(31, 44).Value & " - АОСР" & ".xlsx"  'сохраняем файл
For Each cell In ActiveSheet.UsedRange.Cells
   cell.Formula = cell.Value
Next cell
    Next
End Sub

:)  
Изменено: Евгений - 28.04.2023 11:55:05
 
Перейти    
Множественный ВПР
 
#
27.04.2023 11:39:15
Добрый день! Нужна ваша помощь. Во вложении, лист 1 (выделено синим, это неизменно, красным - что будет меняться (согласно листу 2). Желтым выделено, это ключевое значение, по нему будет заполняться то что выделил красным. Или подтолкните на нужную тему! Спасибо  :)  
 
Перейти    
Страницы: 1 2 След.
Наверх