Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Application.VLookup если содержит
 
Доброго времени суток!

Есть таблица с наименованиями :
G1
G2
G3
D1
...

Так же есть таблица соответсвий - наименование и его позиция, но в данном случае наименования через запятую.
G1,D1,D2        1
G2,D2,D3        2
Из второй таблицы в первую подтягиваю наименования формулой  =VLOOKUP("*"&D64&"*",$A$91:$B$93,2,0).
И все работает, но проблема в том, что месторасположение данных таблиц на листе может меняться, формулу каждый раз придется прописывать заного, поэтому принял решение написать код в VBA который бы мог искать таблицы по заголовкам,а потом подтягивал бы данные из 2 в 1 таблицу.

Столкнулся с проблемой, что в первую таблицу данные подтягиваются не совсем корректо, файл пример прилагаю.
Прошу помочь кто встречался с подобным, возможно мой вариант поиска координат таблиц не самый правильный, если есть идеи прошу поделиться.  
Изменено: Walkish - 19.09.2020 22:59:38
Поиск отправителя в Outlook используя Excel
 
Доброго времени суток,

Есть ли возможность сделать макрос, который запускался бы из книги excel , открывал Outlook и фильтровался во всех входящих по адресату, которого я бы указал в определенной ячейке?

нашел такой кусок кода, но как адаптировать под свои хотелки не пойму, опыта работы с Outlook objects нет.

Код
Sub getmail()

Dim olApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder

'Dim msg As Outlook.MailItem
Dim InboxItem As Object

Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
sFilter = "[SenderName] = 'my@example.com'"


End Sub
Изменено: Walkish - 29.08.2020 18:16:58
Поиск топ 5 наибольших значений
 
Добрый день,
Есть список геоюнитов и утилизация по ним, мне необходимо выделить топ 5 позиций по каждому геоюниту. Иногда кол-во "утилизации" может повторятся, в этом случае выводить все данные.
Ничего умнее чем протягивать РАНГ и менять диапазон для каждого геоюнита не придумал. Но регионов больше сотни, придется именно столько раз менять формулу. Возможно есть способ проще ?  
ВПР с динамическим именем листа
 
Добрый день!
В чем суть проблемы:
Имеется сводный файл, который аггрегирует в себе различную информацию из сборки других файлов. Эти файлы выгружаются ежедневно и в их название дописывается дата, например - "Отчет1_20.03.2019".  
В сводном файле каждый день приходится править дату файла в формуле:
=ВПР(I4;[Отчет1_20.03.2019.csv]Отчет1_20.03.2019!$D:$G;2;0)
Я хочу написать что то типа такого:
=ВПР(I4;[Отчет1_"&ТЕКСТ(СЕГОДНЯ();"ДД.ММ.ГГГГ")&".csv]Отчет1_"&ТЕКСТ(СЕГОДНЯ();"ДД.ММ.ГГГГ")&"!$D:$G;2;0)
Но excel выдает ошибку.

Подскажите можно ли, как нибудь реализовать это формулой или средставми VBA?
Извлечения текста из ячейки
 
Форумчане , доброго времени суток!

Подскажите, есть ли решение моего вопроса формулой,

Необходимо преобразовывать исходные данные к виду:

77_10250

Данные могут быть в различном формате :
Qw_77_10250
BSE77_10250
WWW_77_10250_234
WWW_77_10250_qwe234


Вариации могут быть абсолютно разными, но закономнерность все равно прослеживается .

С первыми 2мя примерами справляется формула массива:
=ПСТР(A4;МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(A4;СТРОКА($1:$99);1));СТРОКА($1:$99)));ПРОСМОТР(2;1/ЕЧИСЛО(-ПСТР(A4;СТРОКА($1:$99);1));СТРОКА($1:$99))-МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(A4;СТРОКА($1:$99);1));СТРОКА($1:$99)))+1)

но вот с 3 и 4 примерами возвращает вот такой результат :
77_10250_234
77_10250_qwe234
Изменено: Walkish - 20.06.2018 11:14:04
Постраничное сохранение документа в формате PDF
 
Форумчане, доброго времени суток!

Прошу подсказать что делаю не так.
Имеется документ Visio, со 100 листами, необходимо каждый лист сохранить в отдельный PDF файл и назвать первыми 2мя символами листа.
Есть следущий макрос :

Sub savetopdf()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
   ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Desktop" & "\" & Left(s.Name, 2)
Next
End Sub



Update:

Разобрался со всем, кому если нужно вот код:



Sub savetopdf()

Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
Dim j As Integer
For j = 3 To 83
Application.ActiveWindow.Page = Application.ActiveDocument.Pages.ItemU(j)
Application.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, "C:\" & Left(ActiveWindow.Page.Name, 2) & ".pdf", visDocExIntentPrint, visPrintCurrentPage, 46, 46, False, True, False, False, False
Next j
ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub
Изменено: Walkish - 26.04.2018 11:45:30
Поиск значения ячейки в диапазоне
 
Добрый день форумчане.

Прошу подсказать с формулой.
Имеются 2 столбца, необходимо найти значение из 2 столбца в диапазоне первого и напротив него написать это значение, Пробовал через =СУММПРОИЗВ(ДЛСТР( , но ничего не получилось, если кто сталкивался прошу помощи. Пример вкладываю.
Проверка ячейки на наличие в ней текста, Помогите разобраться!
 
Добрый день форумчане!
Помогите пож-та, есть две таблицы, одна таблица соответствий, где условно написаны Цифры и в соседней ячейке чему они равны, Например 11 А 22 Б и т.д. Во второй таблице есть число, которые содержит часть текста из первой таблицы, допустим 811 или 622, как сделать чтобы формула просматривала массив из первой таблицы, находила соответствия и во второй таблице подставляла букву из первой таблицы. Пробую формулу =ЕСЛИ(ЕЧИСЛО(ПОИСК, но работает только в том случае если допустим 11 и 811 находятся в одной строке. Во вложении пример.  
Изменено: Walkish - 01.02.2018 09:11:17
Страницы: 1
Наверх