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

Страницы: 1
Поиск Find ошибка в поиске, При одинаковых значениях ячейки Find выдает ошибку
 
#
26.12.2023 11:05:57
andypetr, спасибо,  действительно искомое значение имеет ограничение (вчера полдня ломал голову что за глюк а оказалось все так проста).

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

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

Кто может подсказать в чем может быть проблема и как ее решить.
Спасибо.
 
Перейти    
Калькулятор и несколько условий, Калькулятор транспорта
 
#
07.09.2023 17:36:45
=ИНДЕКС('Город-Коробка'!B3:J12;ПОИСКПОЗ([@[Город доставки]];'Город-Коробка'!A3:A12;0);ЕСЛИ([@[Шт в Коробке]]<5;[@[Шт в Коробке]];ЕСЛИ([@[Шт в Коробке]]<10;5;ЕСЛИ([@[Шт в Коробке]]<15;6;ЕСЛИ([@[Шт в Коробке]]<20;7;ЕСЛИ([@[Шт в Коробке]]<25;8;9))))))
 
Перейти    
Показать в столбце в зависимости от совпадающих значений, Показать в столбце в зависимости от совпадающих значений
 
#
07.09.2023 16:19:29
что то в виде этого: =ЕСЛИ(И($E$9>B2;$E$9<C2);$E$9;"")
 
Перейти    
Автоматическое изменение пути к файлу в формуле, Изменение название файла в формуле относительно данным их соседней ячейки
 
#
07.09.2023 11:35:07
Дмитрий(The_Prist) Щербаков, - Спасибо большое то что надо.
 
Перейти    
Автоматическое изменение пути к файлу в формуле, Изменение название файла в формуле относительно данным их соседней ячейки
 
#
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 11:20:37
Все дошло .Select надо уметь правильно писать.
Всем спасибо.
 
Перейти    
Переход по двойному клику (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
 
#
20.04.2023 18:04:31
sokol92, Спасибо.
 
Перейти    
Большие формулы в VBA
 
#
20.04.2023 17:28:40
МатросНаЗебре, Спасибо очень помогло.
Появилась другая проблема формула в ячейку прописывается, но результат выводит #ИМЯ? если встать на ячейку (в командную строку с формулой) и нажать ввод выводится результат. Как сделать что бы макрос сразу производит расчет формулы и выводил результат?
Код
Range("C12").FormulaR1C1 = "=СУММПРОИЗВ((" & PUT1 & GOD1 & " 1 '!R2C42............
 
Перейти    
Большие формулы в VBA
 
#
19.04.2023 17:22:01
Jack Famous, пробовал все варианты Formula, FormulaR1C1, FormulaArray, FormulaLocal не помогло.

МатросНаЗебре, Спасибо попробую.
Изменено: Дмитрий ХхХ - 19.04.2023 17:24:14
 
Перейти    
Большие формулы в 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 поиск/копирование/вставка
 
#
03.03.2023 12:22:50
Ігор Гончаренко спасибо
Jack Famous, спасибо
Изменено: Дмитрий ХхХ - 03.03.2023 12:51:23
 
Перейти    
VBA поиск/копирование/вставка
 
#
03.03.2023 12:10:28
Добрый день!


Григорий Калюга, большое спасибо за макрос и подробное описание буду изучать.
Ігор Гончаренко, большое спасибо за макрос буду изучать (особенно возврат сортировки на исходные места)

Есть такой вопрос: все пишут макросы не заявляя переменные (i, j, kkk), почему у меня редактор требует их объявлять (!variable not defined)
Код
 Dim i
   Dim ttt
    Dim j
    '===
Изменено: Дмитрий ХхХ - 03.03.2023 12:16:18
 
Перейти    
VBA поиск/копирование/вставка
 
#
02.03.2023 17:27:06
Цитата
написал:
интересно и сколько денег платится за то, что мало понятно
платил работодатель  :D . Курсы очень дорогие, за свой счет я бы не пошел.
 
Перейти    
VBA поиск/копирование/вставка
 
#
02.03.2023 17:22:05
Начал с середины )). поиск индификатора копирование строчки вставка.
Вопрос как сделать что бы поиск был до конца списка и скопированные данные вставлялись под предыдущие?
Код
Sub h()
Dim Inn As Range: Set Inn = Sheets(2).Range("E4") ' что ищем
Dim Danniy As Variant             'Set Danniy = ThisWorkbook.Sheets(1).Range("C2:C84")   ' результат найденного
Dim Start  As Variant             ' As String:
Set Start = ThisWorkbook.Sheets(2).Range("B13") ' откуда начинаем вставлять
Dim i 'As String:

                                  'Set i = 1 ' шаг
Dim Rezyltat

With ThisWorkbook.Sheets(1).Range("C2:C84")     ' где искать
Set Danniy = ThisWorkbook.Sheets(1).Range("C2:C84").Find(Inn, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) ' сам поиск
If Not Danniy Is Nothing Then
Danniy.Cells(1, -1).Resize(1, 7).Copy
Do
Start = Cells(12, 1).Row + 1
Cells(Start, 2).Select
ActiveSheet.Paste
Start = Cells(Start + 1, 1).Row + 1

Loop While Not Danniy Is Nothing
Else
MsgBox ("данные не найдены")

End If

End With

End Sub
 
Перейти    
VBA поиск/копирование/вставка
 
#
02.03.2023 15:22:29
Спасибо попробую.
 
Перейти    
VBA поиск/копирование/вставка
 
#
02.03.2023 14:58:29

Добрый день!

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

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

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

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

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

 

Заранее спасибо за помощь.
 
Перейти    
Обработка множество книг excel, замена пустот в столбце
 
#
06.06.2022 17:33:03
МатросНаЗебре Спасибо большое, работает идеально.
 
Перейти    
Обработка множество книг excel, замена пустот в столбце
 
#
06.06.2022 17:03:07

Добрый день, уважаемые форумчане.

У кого есть время помогите облегчить работу с помощью макроса.  Есть папка с множеством книг типа unidoc_excel_637895570965801502.xlsx. В книге столбце А наименование, столбце D показатели.

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

Заранее спасибо.

Изменено: Дмитрий ХхХ - 06.06.2022 17:03:54
 
Перейти    
Обработка множество книг excel, замена пустот в столбце
 
#
06.06.2022 16:36:43
Добрый день!
 

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

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

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

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

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