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

Страницы: 1 2 След.
вставить формулу со ссылкой на соседнюю ячейку по условию
 

Здравствуйте! Помогите, пожалуйста, с кодом.

Необходимо найти строку "Итого по " в столбце C и в столбце В в этой же строке вставить формулу,

которая будет ссылаться на ячейки верхней строки, т.е.:

в ячейке B24 должна стоять формула =сцепить (А23:B23)

в ячейке B26 должна стоять формула =сцепить (А25:B25)

в ячейке B28 должна стоять формула =сцепить (А27:B27) и т.д..

Количество строк каждый раз меняется в пределах от 5000-7000.

Данные начинаются всегда со строки 17:17.

В дальнейшем все строки, кроме строк , содержащих "Итого по " будут удалены

Результат на Листе 053_2

Изменено: RMG - 09.07.2023 07:13:44
Перенести данные по условию. Макрос
 

Здравствуйте. Помогите, пожалуйста, с помощью кода

необходимо найти строку "Итого по " в столбце C и скопировать данные в ячейку слева,

т.е. в ячейку B18 скопировать данные из ячейки B17

в ячейку B20 скопировать данные из ячейки B19

в ячейку B22 скопировать данные из ячейки B21.

Количество строк каждый раз меняется в пределах от 5000-7000.

Данные начинаются всегда со строки 17:17.

Более понятно, указано в примере. Пример результата на Листе "053_2".

выход из процедуры если книга не найдена
 
Здравствуйте! Помогите, пожалуйста, внести поправки в код.
У меня не получается в коде прописать выход из процедуры если файл не найден.
Файл ищем с неточным названием среди открытых книг, последние символы файла меняются.
Если файл открыт, то код выполняется без проблем.
Но если файл не был открыт продолжается выполнение кода с активным файлом и соответственно выдается ошибка.
Код
Dim wb As Workbook
 
For Each wb In Workbooks
  If wb.Name Like "файл*.xls*" Then
  wb.Activate
  MsgBox wb.Name, vbExclamation: Exit For
  End If
Next
Что-то типа такого хотелось бы сделать:
Код
'If Not wb.Name Then MsgBox "Книга не найдена или не открыта"
'   Exit Sub
Преобразование текстового формата даты в числовой в vba
 
Здравствуйте! Помогите, пожалуйста, преобразовать дату в столбце "Е" из текста в формат "Дата" и найти самую позднюю дату в этом столбце, т.е. ("26.06.2023").
Для поиска поздней Даты вроде получается использовать код
Код
Dim Max_date as Date
Max_date = Application.WorksheetFunction.Max(Columns("E))
MsgBox Max_date

Но преобразовать данные в столбце в Дату не получается.
Изменено: RMG - 28.06.2023 14:09:16
Активировать открытую книгу (путь использовать не получится) имя книги может измениться в части последних символов
 
Здравствуйте! Помогите, пожалуйста, активировать книгу, которая открыта из программы и сохранять ее нет необходимости.
Она открыта с расширением .xls среди прочих других книг и мне необходимо во время выполнения кода обратиться к этой книге.
Дмитрий Щербаков(The_Prist) одному пользователю рекомендовал этот код для поиска файла среди открытых книг.
Он находит, но книгу надо активировать
Код
For each wb in Workbooks      
if wb.name like "Report Result*.xls*" then          
msgbox "УРА!!! НАШЛИ!!!",vbinformation:exit for      
end if  
next  
Я пыталась этот код приспособить под свою задачу, но не получается
Код
Sub bb()
Dim wb As Workbook
For each wb in Workbooks  
    if wb.name like "файл_02*.xls*" then 
Workbooks(wb.Name).Activate 
        msgbox wb.name,vbinformation:exit for  
    end if  
next  
End Sub
Выдает msgbox wb.name правильное имя и расширение моего открытого файла, но вот как его активировать? Не понимаю, что делать?  
Изменено: RMG - 27.06.2023 14:00:12
Перенести строки на основании заданного условия на новый Лист с помощью динамического массива
 

Здравствуйте!

Помогите решить задачу с помощью динамического массива (перебирать ячейки и переносить данные будет долго). Необходимо перенести строки по получателю "Иванов" или "иванов"(столбец G) , без учета регистра, за март месяц (столбец С) вставить на новый лист вместе со строкой заголовков с помощью динамического массива (строк и столбцов просматриваемого массива очень много).

У меня пока только это получается и то регистр учитывается

Код
Sub выбор_месяц()
Dim rg As Range
Dim mounth As String
 
mounth = InputBox(prompt:="Введите месяц в формате 'ММ'")
Set rg = Sheets(1).Range("A1").CurrentRegion
Dim i As Long, Rw&
 With Sheets("Лист4")
     Rw = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To rg.Rows.Count
 If rg.Cells(i, 7) = "Иванов" And Mid(rg.Cells(i, 3).Value, 4, 2) = mounth Then
 rg.Rows(i).Copy Sheets("Лист4").Rows(Rw)
 Rw = Rw + 1
 End If
 Next i
 End With
End Sub
Изменено: RMG - 20.06.2023 04:50:41
Собрать данные на один Лист по определенным Листам
 
Добрый вечер! Вот есть такой цикл, который должен проходить по Листам, которые указаны в a = Array("01", "02", "03", "04")
и переносить данные на Лист "Свод", но у меня в коде не видит Sheets(i), Sheets("Свод") видит.
Я уже понимаю ошибку, но не знаю как исправить (вместо имени Sheets ("01"), у меня выбирает Sheets(1)) или я ошибаюсь? Помогите поправить код, пожалуйста!

Код
Sub Сборка()
Dim i As Variant
Dim a()
Dim myR_Total&, myR_i&

    a = Array("01", "02", "03", "04") ' перечисляются листы в нужном порядке
    For i = LBound(a) To UBound(a)
    myR_Total = Sheets("Свод").Range("I" & Sheets("Свод").Rows.Count).End(xlUp).Row
    myR_i = Sheets(i).Range("A" & Sheets(i).Rows.Count).End(xlUp).Row
'Пробовала myR_i = Sheets(Sheets(a(i)).Range("A" & Sheets(a(i))).Rows.Count).End(xlUp).Row, не принимает
    Debug.Print myR_Total
    Debug.Print myR_i
    Sheets(i).Rows("2:" & myR_i).Copy Destination:=Sheets("Свод").Range("I" & myR_Total + 1)
    Next i

End Sub

Изменено: RMG - 18.06.2023 18:16:39
Присвоить имя Листу из наименования книги. Макрос
 
Добрый день! В коде VBA пользователю предоставлена возможность самостоятельного выбора  всех файлов в указанной папке.
После выбора я циклом выбираю вначале первый файл, дальше действия с этим файлом,
копирую обработанные данные из этого файла в книгу с кодом и далее повторяю действия с другими файлами.
И мне нужно присвоить имя Листу смотря из того какой файл в данный момент обрабатывается
(т.е. в имени файла присутствует слово, которое должно быть присвоено как имя Листа).
 
Код
'открываем каждую книгу из папки с файлами 
For i = 0 To UBound(arrFiles)
Set wb = Application.Workbooks.Open(sFolder & arrFiles(i))
MsgBox "Выбран файл: '" & arrFiles(i) & "'", vbInformation, ""
Sheets(1).Name = "ГВР"
В названии слово "ГВР" может быть в любом варианте, кто как захочет так и назовет файл.
Подскажите, пожалуйста, как решить данную проблему.
Изменено: RMG - 18.06.2023 15:06:29
Копирование по условию и вставка найденной строки в другую книгу. макрос
 
Добрый день!
Помогите, пожалуйста, с кодом.
Не получается скопировать строку и вставить на другой лист в другую книгу в последнюю пустую строку.
В моем коде при выполнении пишет, что диапазон копирования не соответствует диапазону вставки,
необходимо указать одну ячейку для вставки или указать диапазон соответствующий копируемому.
Но мне необходимо всю строку по условию скопировать и вставить в другую книгу.
Код
'ищем строку "Всего"
RowВсего = wb2.Worksheets(4).Columns(3).Find("*Всего*", , xlValues, xlPart).Row 
wb2.Worksheets(4).Rows(RowВсего).Copy      
wb1.Worksheets(4).Cells(wb1.Worksheets(4).Rows.Count, 3).End(xlUp).Offset(1).PasteSpecial xlPasteValues
подсчитать количество уникальных дат с наличием пустых строк по условию
 
Добрый день! Помогите подсчитать количество уникальных дат в столбце А, по документам в которых присутствует "*VD*".
В файле пробовала вычислить, не получилось.  
удалить последнюю строку на Листе с датой макросом. Ячейка объединенная.
 
Здравствуйте. Помогите удалить последнюю строку с датой.
Она может быть в любом месте проставлена и возможно по-разному могут ее объединить (может в 2 столбца, может в 3), в общем неизвестно.
Она мне мешает. Но начинается она с первого столбца. Если я в коде указываю 4 столбец (как последний заполненный), то строка находится и удаляется.
Но кто знает, если завтра он станет уже третьим.
количество и сумма по нескольким условиям
 
Здравствуйте! Подскажите как подсчитать

количество и сумму по условию, если

1) в столбце "C:C" = "*ордер*" или "C:C" = "*поручение*"

2) в столбце "D:D">"0"

пример приложен.

Перенос значений по условию на другой Лист
 

Здравствуйте! Помогите пожалуйста разобраться с кодом.

Если на Листе "Пример" в столбце "В" значение начинается с "8*" (другие символы и значения, начиная со второго не имеют значения), то значение из столбца "L" перенести (скопировать и вставить) на Лист "Тест" в столбец "H", в противном случае значение из столбца "L" перенести (скопировать и вставить) на Лист "Тест" в столбец "R". Макрос есть но работает только для проверки "Если на Листе "Пример" в столбце "В" значение начинается с "8*" . Если вставляю в код 'ElseIf Cells(i, 2) <> "8*" Then, то получается ерунда.

Изменено: RMG - 07.05.2023 04:03:59
Сравнить две сводные таблицы
 

Добрый день!

На двух листах скопированы данные двух сводных таблиц.

Необходимо проанализировать динамику (изменение) данных за определенный промежуток времени.

Подскажите как быстро сравнить данные (макросом или через power qwery).

Попробовала преобразовать в плоские таблицы с помощью макроса (использовала https://www.planetaexcel.ru/techniques/8/55/).

У меня не получилось сделать плоскую таблицу, чтобы потом сводную таблицу сделать.

Изменено: RMG - 20.04.2023 16:14:55
Удалить строки значения в которых не соответствуют маске, Удалить строки значения в которых не соответствуют маске
 
Добрый день!!! Помогите с макросом.

Необходимо удалить строки из диапазона A13:C (до последней заполненной ячейки) в которых Код (столбец A)

не соответствует маске ???208* (или наоборот оставить строки в которых Код (столбец A) соответствует маске ???208*

Строки с заливкой должны быть удалены из формы отчета (приложен файл).

Изменено: RMG - 09.04.2023 07:17:12
Снять объединение ячеек макросом, Снять объединение ячеек макросом
 
Добрый день! Помогите снять объединение ячеек. Диапозон начинается с А13:В(до последней заполненной ячейки). В нем есть необъединенные и объединенные ячейки. Мне надо объединенные ячейки разъединить без заполнения данными. Макрос с указанием конкретного диапазона работает, а как снять объединение до последней заполненной ячейки ????
Sub Макрос1()
Range("A13:B38").MergeCells = False
End Sub
Проверка значения на соответствие диапазону значений с подстановочными знаками, Проверка значения на соответствие диапазону значений с подстановочными знаками
 
Здравствуйте! Не знаю как сверить значения, если шаблон неточный.

Если значение в столбце G ("Код по БК") соответствует маске (состоит из подстановочных символов) из шаблона на Лист "Шаблон" столбец A, то всю строку вывести на отдельный Лист "Результат". Файл приложен.

Выбрать Даты по условию, Выбрать Даты с учетом времени по условию
 
Здравствуйте, помогите выбрать даты по условию:

Необходимо в столбец E вывести список дат из столбца A, которые соответствуют условию: Дата текущего дня (Ячейка C2) - 2 рабочих дня (Сб и Вс выходные дни) и время до 14:00:00. Файл приложен. Трудность, что необходимо учесть время.

Десятичное число в POWER QUERY, Некорректно применяется тип изменения к десятичным числам в POWER QUERY
 
Добрый день! Есть таблица с данными, которая при загрузке в POWER QUERY некорректно применяет форматирование.
Большие числа либо представлены в экспоненциальном виде, либо округляются до целого числа.
В моем случае это неприемлемо. Подскажите, пожалуйста, как исправить?
в сводной таблице не работает "группировка по выделенном, Сводная таблица в EXEL 2021 не группирует данные
 
Добрый день! Пытаюсь сгруппировать некоторые бюджеты в сводной таблице, выдает ошибку "Выделенные объекты нельзя объединить в группу"
Проблема в том, что установлен офис 2021, когда работала в офисе 2019 эту же самую таблицу группировала без проблем. Ничего не изменилось.
В чем здесь проблема? как исправить данную ошибку? Файл приложила в котором желтым цветом выделено какую часть группировать. Раньше работало "Группировать по выделенному"
Изменено: RMG - 30.07.2022 03:32:54
Найти сумму по нескольким условиям, используя функцию ФИЛЬТР, Динамические массивы
 

Необходимо найти сумму (ячейка F2), используя функцию ФИЛЬТР,

по Столбцу D если индекс равен

1.1.

1.1.1

1.1.2
Раньше применяла СУММПРОИЗВ, теперь решила попробовать новые функции и ..... прошу помощи
Файл (офис_2021) прикладываю. Функцией ФИЛЬТР выбрала массив по заданному условию, но как в ячейке F2 сумму найти?
Макрос для выведения списка уникальных значений из 2 диапазонов на другой лист (при наличии пустых строк)
 
Здравствуйте!!! Помогите с макросом для выведения списка уникальных значений из двух столбцов H, R на Листе 1 на другой Лист2.
Есть пустые строки.
Образец файла приложен.  
Изменено: RMG - 13.05.2022 14:03:34
Подсчет количества ячеек по нескольким условиям с помощью подстановочных знаков
 
Здравствуйте!!!
Не получается подсчитать количество и соответственно сумму при выполнении двух условий :
Ячейки (столбец J) содержат лицевой счет, который начинается с "03*" и ячейки (столбец Н) имеют статус не равный 003 (<>"003").
В приложенном файле формула которая у меня не получилась.
макрос для проверки строк с датами по условию, макрос для проверки строк с датами по условию с вынесением на отдельный Лист
 
Добрый день!!! В таблице в столбце G (Дата регистрации) из которой необходимо выделить строки с датой меньше даты, указанной в графе R2 (дата меняется).
Все найденные строки необходимо вместе с заголовками таблицы перенести на отдельный лист, а из Лист1 эти строки удалить.
На ЛИСТ2 необходимый результат.
Буду благодарна за макрос.
Изменено: RMG - 10.05.2022 07:51:36
Функция СЧЁТЕСЛИ, СУММЕСЛИ, в качестве критерия "условие не содержит значение "003" (текстовое значение)", Функция СЧЁТЕСЛИ, СУММЕСЛИ, в качестве критерия "условие не содержит значение "003" (текстовое значение)"
 
Здравствуйте! Необходимо подсчитать количество, сумму по условию  -  не содержит значение "003" (текстовое значение)".
Не получается указать статус "003" как текст. Файл прилагается. Прошу Вашей помощи.
Изменено: RMG - 08.05.2022 14:29:03
макрос для выборки документов по датам в разрезе статусов, макрос для выборки документов по датам в разрезе статусов
 

Помогите пожалуйста с макросом. На Листе 1 таблица с данными.

Необходимо выбрать документы (количество, сумма) по дате создания в разрезе статусов .

На Листе2 каким должен быть результат. Статусы могут быть абсолютно разные в разных днях.

За помощь буду очень признательна.

При добавлении строк в умной таблице условное форматирование работает некорректно
 
Здравствуйте! Есть умная таблица, при вставке данных происходит проверка и в определенных ячейках срабатывает условное форматирование.
Работает корректно. Но если вставить диапазон с данными, который превышает размер умной таблицы, УФ сработает, но при удалении данных по подсвеченной строке, форматирование остается. Файл прилагается.
В данный момент вставлены строки и есть строки выделенные согласно правилу УФ (строки 5,6,7).
Если данные по этим строкам удалить из столбцов (А,В) и вставить все данные из листа 2, и затем удалить данные из столбцов (А,В) по отмеченным УФ,
то данные удаляются, а форматирование остается.
В чем причина подскажите, пожалуйста.
Перенести данные по строке "Всего", Перенести данные с помощью формулы по строке "Всего" (таких строк 2)
 
Добрый день!Есть данные по строкам Всего "С начала года", необходимо перенести данные по второй строке с помощью формулы на другой лист, например(макрос не подойдет).
Выборочное суммирование, Выборочное суммирование
 

Помогите с формулой, пробовала суммеслимн, не получилось. Необходимо просуммировать значения из столбца B, если коды, состоящие из 20 знаков (столбец A), начинаются с :Резльтат должен быть по строке "Итого;"

 
1030233001
 
1030204101
 
1030210001
Изменено: RMG - 01.11.2020 12:27:05
Использовать ссылку на ячейку, которая находится через два столбца, Использовать ссылку на ячейку, которая находится через два столбца
 

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

Страницы: 1 2 След.
Наверх