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

Страницы: 1
Поиск Find ошибка в поиске, При одинаковых значениях ячейки Find выдает ошибку
 
#
26.12.2023 09:46:17
Добрый день!
Столкнулся с такой проблемой при использовании поиска Find:
Есть две таблицы с одинаковыми данными Find находит все кроме (в файле выделено красным):

"Сумма расходов, связанная с приобретением, реализацией, хранением и погашением ценных бумаг и производных финансовых инструментов (ПФИ), а также по сделкам РЕПО, объектом которых являются ценные бумаги, по операциям займа ценными бумагами, по операциям, осуществленным в рамках инвестиционного товарищества"

Кто может подсказать в чем может быть проблема и как ее решить.
Спасибо.
 
Перейти    
Автоматическое изменение пути к файлу в формуле, Изменение название файла в формуле относительно данным их соседней ячейки
 
#
07.09.2023 10:19:05
Добрый день!
Подскажите как в макросе прописать формулу где имя файла к которому обращаемся менялось относительно данных в соседнем столбце.

Range(Cells(2, 3), Cells(L,3)).FormulaR1C1 = "MATCH(RC[-2],'\\10.10.10.13\kao\[" & Offset(0, -1).text & ".xlsx]1'!C24,0)"
Имягод формула
ААА 2019 ПОИСКПОЗ(A2;'[2019.xlsm]Прил 1'!$X:$X;0)
ААБ 2020Range(Cells(2, 3), Cells(L,3)).FormulaR1C1 = "MATCH(RC[-2],'\\10.10.10.13\kao\[" & Offset(0, -1).text & ".xlsx]1'!C24,0)"
ААС 2023
ССС 2010
АСА 1999
Изменено: Дмитрий ХхХ - 07.09.2023 10:19:40
 
Перейти    
Переход по двойному клику (Target)
 
#
15.05.2023 10:55:10
Добрый день!
Подскажите пожалуйста что надо дописать чтобы перейти на другой лист той же ячейки.

На листе 1 двойной клик по ячейке А6 нас перекидывает на лист 2 в ячейку А6

Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If Sh.Name <> "Отчет" Then
        If Not Intersect(Target, [A3:A30]) Is Nothing And Target.Count = 1 Then
           rw = Target.Row
           rwl = Range("A" & rw).Address
          
            With Worksheets("Отчет")
            .ActiveCell Range("rwl")
               ' .Activate rwl
               ' .Range("A" & rw).Val
                Selection.Range ("A" & Target.Row)
                'ActiveCell
            End With
        End If
   Else
 
Перейти    
Большие формулы в VBA
 
#
19.04.2023 17:12:00
Добрый день!
Подскажите пожалуйста как заставить работать формулу в макросе:

Код
Range(Cells(2, 68), Cells(l, 68)).FormulaR1C1 = "=IF($E$4="ИНН",SUMPRODUCT(('Z:\Пользователь01\VBA Программа\2-ВЫГРУЗКА по месяцам\[2019.xlsx]1'!$AP$2:$AP$30000=$A12)*" _
"'Z:\Пользователь01\VBA Программа\2-ВЫГРУЗКА по месяцам\[2019.xlsx]1'!$T$2:$T$30000)+SUMPRODUCT(('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 1'!$D$6:$D$25141=TEXT(C$11,"@"))*" _
"('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 1'!$AS$6:$AS$25141=0)*('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 1'!$AT$6:$AT$25141=$A12)*" _
"'Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 1'!$W$6:$W$25141)+SUMPRODUCT(('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 2'!$D$6:$D$19342=TEXT(C$11,"@"))*" _
"('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 2'!$AW$6:$AW$19342=$A12)*'Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 2'!$R$6:$R$19342)," _
"SUMPRODUCT(('Z:\Пользователь01\VBA Программа\2-ВЫГРУЗКА по месяцам\[2019.xlsx]1'!$I$2:$I$30000=$E$4)*('Z:\Пользователь01\VBA Программа\2-ВЫГРУЗКА по месяцам\[2019.xlsx]1'!$AP$2:$AP$30000=$A12)*" _
"'Z:\Пользователь01\VBA Программа\2-ВЫГРУЗКА по месяцам\[2019.xlsx]1'!$T$2:$T$30000)+SUMPRODUCT(('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 1'!$B$6:$B$25141=$E$4)*" _
"('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 1'!$D$6:$D$25141=TEXT(C$11,"@"))*('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 1'!$AS$6:$AS$25141=0)*" _
"('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 1'!$AT$6:$AT$25141=$A12)*'Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 1'!$W$6:$W$25141)+" _
"SUMPRODUCT(('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 2'!$B$6:$B$19342=$E$4)*('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 2'!$D$6:$D$19342=TEXT(C$11,"@"))*" _
"('Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 2'!$AW$6:$AW$19342=$A12)*'Z:\Пользователь01\VBA Программа\3-ВЫГРУЗКА\[Обработка 2019-2021.xlsm]Прил 2'!$R$6:$R$19342))"
Если вставить данную формулу в ячейку все работает в vba ошибка. Что я делаю не так и как это исправить?
И еще один вопрос про путь, если я в коде часть пути назначу переменной формула будет работать? примерно так :
Код
Dim PUTI
Dim GOD
set PUTI=" 'Z:\Пользователь01\VBA Программа\2-ВЫГРУЗКА по месяцам\"
set GOD = Range("A2") & ".xlsx".text

Итого: Range(Cells(2, 68), Cells(l, 68)).FormulaR1C1 = "=IF($E$4="ИНН",SUMPRODUCT((PUTI & GOD & 1'!$AP$2:$AP$30000=........
 
Перейти    
VBA поиск/копирование/вставка
 
#
02.03.2023 14:58:29

Добрый день!

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

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

Задачи в работе примерно однотипные, поэтому пример содержит основной набор необходимых действий.

На листе вывод выбираем ФИО или Индификатор запускаем макрос.

Макрос если было выбрано ФИО ищет индификатор на листе индификатор. После этого все совпадения индификатора ищет на листе данные, копирует совпадения с листа данные, вставляет в таблицу на лист вывод, согласно наименованию столбцов.

 

Заранее спасибо за помощь.
 
Перейти    
Обработка множество книг excel, замена пустот в столбце
 
#
06.06.2022 16:36:43
Добрый день!
 

Знатоки VBA у кого есть время помогите облегчить рабочий процесс созданием макроса.

Суть работы макроса:

В папке имеется множество файлов типа unidoc_excel_637898595445801502.xlsx, В файлах столбец А наименование, в столбце D показателе.

Надо чтобы макрос открывал книгу определял длину столбца А и если напротив в столбце D «пусто» проставлял там 0 (ноль), сохранял книгу, закрывал. И так со всеми книгами в папке.

Заранее спасибо.
 
Перейти    
Страницы: 1
Наверх