Соответственно, происходит заливка строки, если текущая дата больше на 3 дня, чем указанная в ячейке, если вообще ячейка с датой не пустая и, если в другой ячейке стоит любой другой статус, кроме "предоставлена копия".
Как добавить в формулу, чтобы можно было указать 3 статуса?
Ответ не требуется Предоставлена копия Обращение закрыто
Чтобы выполнялось условие по дате в ячейке, а во второй ячейке любой другой статус, кроме трех вышеуказанных.
Подскажите чайнику, пожалуйста. Вот есть у меня макрос следующего вида
Код
Dim objFolder As Outlook.Folder
Dim objNS As Outlook.Namespace
Dim objMail As Outlook.MailItem
Dim lCounter As Long
Set objNS = Outlook.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Важная папка")
For lCounter = 1 To objFolder.Items.Count
Set objMail = objFolder.Items.Item(lCounter)
{Здесь я получаю информацию различную из objMail такие как дата, время, тема, отправитель, вложения и т.д. и произвожу с ними манипуляции.}
Next
Все это прекрасно работает у меня в Excel 2016 с подключенной библиотекой (т.е.галочку поставил в Tools->References) Microsoft Outlook 16.0 Object Library. Но, требуется запускать тоже самое и на Excel 2013. Там соответственно библиотека уже не 16.0, а 15.0 и, неизвестно, может и на других версиях офиса придется. Файл могут открыть на разных ПК с разными версиями MS Office. И там, соответственно, все вываливается с ошибкой, что не найдена библиотека 16.0. Догадываюсь, что можно библиотеку не подключать галочкой, а в макросе что-то переделать. Но, пока, не научился (самоучка). Подскажите, как все-таки сделать, чтобы работало и на 2016м и на 2013м. Желательно, прям поправить код, чтобы понятнее было, как работает.
Добрый день! Помогите чайнику с VBA, пожалуйста. Есть данные в таблице в с датами. Как посредством VBA установить фильтр на колонку с датами и отфильтровать по конкретному месяцу и году? И подсчитать получившееся количество строк? Например, установить фильтр на май 2023 и подсчитать количество получившихся строк. Прикрепил файл с колонкой дат.
Добрый день! Помогите новичку, пожалуйста. Есть 2 файла: 1.CopyPasteTest.xlsm 2.123.xlsx
В первом файле кнопка, при нажатии на которую должны скопироваться ячейки из второго файла в первый. Код:
Sub Button() Set objExcel = New Excel.Application Set wb = objExcel.Workbooks.Open("123.xlsx") Set ws = wb.Sheets(1) Set sh = ThisWorkbook.Sheets(1) sh.Range("A1") = ws.Range("A1") - ВОТ ТАК РАБОТАЕТ ws.Range("A1:E1").Copy Destination:=sh.Range("A1:E1") - А ВОТ ТАК ВЫДАЕТ ОШИБКУ wb.Close End Sub
Ошибка: 1004 Метод Copy из класса Range завершен неверно.
Справку курил, из нее и взято как копировать. Все равно, не работает.