Пытливый, это да, мне так и приходиться делать) но иногда столько писем накидывается, что по любому можно что-то упустить) Жаль в outlook в нет заветного фильтра не письма в ответ на данное сообщение. Или дополнительного поля, чтобы сразу появлялись связанные сообщение при нажатии на выбранное письмо. Группировка в виде бесед тоже хорошо, но иногда очень путает.
Outlook | VBA | папка с не отвеченными сообщениями, ОФФТОП, поиск сообщений которые были отправлены, но по ним не были получены ответы
Outlook | VBA | папка с не отвеченными сообщениями, ОФФТОП, поиск сообщений которые были отправлены, но по ним не были получены ответы
Финансовый формат на всех ячейках, Финансовый формат на всех ячейках при открытии файла и создание нового листа
Финансовый формат на всех ячейках, Финансовый формат на всех ячейках при открытии файла и создание нового листа
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
07.12.2019 16:35:57
Михаил Витальевич С., Спасибо большое за помощь!
|
|
|
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
07.12.2019 15:25:12
Михаил Витальевич С.,Большое спасибо! Заработало! А как сделать чтобы скрытые листы не учитывал?
|
|
|
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
07.12.2019 12:48:04
Михаил Витальевич С., мне нужно собрать на лист DATA в этой же книге, все данные с листов, которые идут после листа DATA.
|
|
|
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
07.12.2019 12:16:17
Михаил Витальевич С.,Добрый день, прикрепил к первому сообщению. Помогите пожалуйста с решением этой задачи. Спасибо!
|
|
|
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
06.12.2019 19:04:16
Kuzmich,
Ну я лишнее всё убрал, в начальное вставил код из примера с приёма. Вот мой:
Изменено: |
|||
|
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
06.12.2019 18:37:27
Добрый день!
Отличный прием "Сборка данных со всех листов книги в одну таблицу", но мне нужно чтобы ячейки копировались без сохранения исходного формата.
Это возможно? Спасибо за ответы!
Изменено: |
|||
|
Копирование в буфер обмен файлов по прямой ссылке на них
26.07.2019 06:03:06
Настя_Nastya, огромное спасибо! Отличный макрос!
Удалил с листа код, для запуска после выделения, и добавил кнопку, чтобы запускать с помощью нее. Еще раз спасибо! |
|
|
Копирование в буфер обмен файлов по прямой ссылке на них
Макрос по созданию папки с именем ячейки
Макрос по созданию папки с именем ячейки
22.05.2019 11:43:28
tolstak, Добрый день! при запуске этого макроса, Excel зависает минут на 5, это нормально? Помогите пожалуйста
|
|||
|
Вывод всех наименований по условию
Вывод всех наименований по условию
Вывод всех наименований по условию
Получение списка только имен папок из пути в ячейки
Получение списка только имен папок из пути в ячейки
Получение списка только имен папок из пути в ячейки
21.05.2019 09:06:06
Добрый день!
Никак не могу заставить макрос из приема "Список файлов в папке" заставить выдавать только имена папок, выводить их в другой диапазон задаваемый, и чтобы путь брался из определенной ячейки. Sub FileList() Dim V As String Dim BrowseFolder As String 'открываем диалоговое окно выбора папки With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Выберите папку или диск" .Show On Error Resume Next Err.Clear V = .SelectedItems(1) If Err.Number <> 0 Then MsgBox "Вы ничего не выбрали!" Exit Sub End If End With BrowseFolder = CStr(V) 'добавляем лист и выводим на него шапку таблицы ActiveWorkbook.Sheets.Add With Range("A1:E1") .Font.Bold = True .Font.Size = 12 End With Range("A1").Value = "Имя файла" Range("B1").Value = "Путь" Range("C1").Value = "Размер" Range("D1").Value = "Дата создания" Range("E1").Value = "Дата изменения" 'вызываем процедуру вывода списка файлов 'измените True на False, если не нужно выводить файлы из вложенных папок ListFilesInFolder BrowseFolder, True End Sub Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean) Dim FSO As Object Dim SourceFolder As Object Dim SubFolder As Object Dim FileItem As Object Dim r As Long Set FSO = CreateObject("Scripting.FileSystemObject") Set SourceFolder = FSO.getfolder(SourceFolderName) r = Range("A65536").End(xlUp).Row + 1 'находим первую пустую строку 'выводим данные по файлу For Each FileItem In SourceFolder.Files Cells(r, 1).Formula = FileItem.Name Cells(r, 2).Formula = FileItem.Path Cells(r, 3).Formula = FileItem.Size Cells(r, 4).Formula = FileItem.DateCreated Cells(r, 5).Formula = FileItem.DateLastModified r = r + 1 X = SourceFolder.Path Next FileItem 'вызываем процедуру повторно для каждой вложенной папки If IncludeSubfolders Then For Each SubFolder In SourceFolder.SubFolders ListFilesInFolder SubFolder.Path, True Next SubFolder End If Columns("A:E").AutoFit Set FileItem = Nothing Set SourceFolder = Nothing Set FSO = Nothing End Sub Прошу Вашей помощи! |
|
|
Аналог формулы FILTER из Google Sheet в Excel
Создание вариаций на основе данных
Создание вариаций на основе данных
Копирование листа и переименование по списку
15.01.2019 11:05:11
Здравствуйте уважаемые форумчане!
Есть основной лист Pivot, со списком необходимых листов и изначальных данных, также есть лист Sample_List, который необходимо скопировать по количеству наименований в диапазоне C1:C26, переименовав соответственно, скопировав предварительно диапазон С1:I2 и вставить транспорнировав на каждый продублированный лист на диапазон G4:G11 (образец создал последним листом "10"). И все это запускается после нажатие кнопки Create Lists. И реально ли реализовать, чтобы этот файл сохранялся в другой по определенному пути, но без макроса и формул? Буду очень благодарен за помощь!
Изменено: |
|
|
Макрос для поиска и замены текста в ячейках согласно списка
Макрос для поиска и замены текста в ячейках согласно списка
Макрос для поиска и замены текста в ячейках согласно списка