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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 662 След.
Объединение файлов с удалением данных.
 
Цитата
pliplim написал: полно аналогичных примеров на безвозмездной основе
Так я и не закрываю/переношу тему. Тут есть альтруисты, которые и не такие задачи решали на 'безвозмездной основе'). Это как Вам повезет)
Согласие есть продукт при полном непротивлении сторон
Как создать автоматическое построение списка, без пустых строк
 
Цитата
Valery37 написал:  Sanja , нет в данном случае макрос, не подойдет
Вот прям так, безапелляционно)
Код
Function MY_UNIQ(iRng As Range)
Dim arr()
Dim iKey, iTmp
arr = Intersect(iRng.Parent.UsedRange, iRng).Value
With CreateObject("Scripting.Dictionary")
  For Each iKey In arr
    If Not IsEmpty(iKey) Then iTmp = .Item(iKey)
  Next
  MY_UNIQ = Application.Transpose(.Keys)
End With
End Function
Согласие есть продукт при полном непротивлении сторон
Объединение файлов с удалением данных.
 
Ваш вопрос больше похож на ТЗ, т.е. на комплексную задачу, под ключ. Такое решается в разделе Работа, платно.
Или начните решать ее сами а по ходу задавайте КОНКРЕТНЫЕ вопросы, те, что у Вас вызывают трудности
Для начала
Просмотреть все файлы в папке
VBA Excel. Перебор листов в книге
Ну или поиском воспользуйтесь. Такие задачи решали уже не одну сотню раз
Согласие есть продукт при полном непротивлении сторон
Как создать автоматическое построение списка, без пустых строк
 
Если есть расширение '.xlsm' значит используете макросы) Можно макросом собрать нужный список
Согласие есть продукт при полном непротивлении сторон
В версии 2016 и новее нет уведомления о сохранении изменения в файле
 
Макросов, отключающих запрос, в файлах случайно нет?
Согласие есть продукт при полном непротивлении сторон
Планшет на Windows с полноценным Excel
 
Цитата
Михаил Л написал: Excel на планшетах с Windows
А с этим-то что, горцы?
Согласие есть продукт при полном непротивлении сторон
Вставить ссылку на ячейку в Числовом фильтре
 
А почему Вы тему создали в Курилке?
Согласие есть продукт при полном непротивлении сторон
Сопоставить значение из одного массива значению из другого массива по массиву условий
 
Эта формула
Код
=ПРОСМОТР(2;1/ПОИСК(Таблица2[NAME];B8);Таблица2[HS codes])

или вот такая простенькая UDF, решат Вашу задачу максимум
Код
Option Compare Text

Function HS_Codes(pName$, iTbl As Range)
Dim arr(), I&
arr = iTbl.Value
For I = LBound(arr, 1) To UBound(arr, 1)
  If pName Like "*" & arr(I, 1) & "*" Then
    HS_Codes = arr(I, 2)
    Exit Function
  End If
Next
If IsEmpty(HS_Codes) Then HS_Codes = CVErr(xlErrNA)
End Function
Согласие есть продукт при полном непротивлении сторон
Как найти значение из массива по условиям (НЕ ВПР!), Как найти значение из массива по условиям
 
Цитата
rel77 написал: Там у меня конкретный вопрос указан.  
Конкретный вопрос должен быть озвучен в стартовом сообщении, а не в файле. Спасибо
Согласие есть продукт при полном непротивлении сторон
Как найти значение из массива по условиям (НЕ ВПР!), Как найти значение из массива по условиям
 
Цитата
ВовавВова написал: надо из квадратной табл в длинную вытащить?
Это надо было?
Цитата
rel77 написал: Очень нужно из одного листа в другой найти значение по условиям
И это совсем не то)
Согласие есть продукт при полном непротивлении сторон
Как найти значение из массива по условиям (НЕ ВПР!), Как найти значение из массива по условиям
 
заменил файл выше
Согласие есть продукт при полном непротивлении сторон
Как найти значение из массива по условиям (НЕ ВПР!), Как найти значение из массива по условиям
 
rel77, у меня сработало
Изменено: Sanja - 06.07.2025 18:39:50 (заменил файл)
Согласие есть продукт при полном непротивлении сторон
Как найти значение из массива по условиям (НЕ ВПР!), Как найти значение из массива по условиям
 
=СЧЁТЕСЛИМН()
Согласие есть продукт при полном непротивлении сторон
Импорт данных из таблицы XML, неверный формат данных при импорте
 
Что такое Power Query / Pivot / Map / View / BI и зачем они пользователю Excel
Согласие есть продукт при полном непротивлении сторон
Выбор значений в активной ячейке с помощью элементов управления из именованного диапазона
 
Через запятую
Код
Set iRng = Me.Range("B1,E1,H1") 'диапазон(ячейка) связанный с ComboBox
Согласие есть продукт при полном непротивлении сторон
Выбор значений в активной ячейке с помощью элементов управления из именованного диапазона
 
В макросе и используется диапазон Умной таблицы. Можно использовать один столбец, если их в таблице несколько
Согласие есть продукт при полном непротивлении сторон
Выбор значений в активной ячейке с помощью элементов управления из именованного диапазона
 
В модуль листа 'поиск'
Для диапазона 'A1:A10'. Если нужно другое - исправьте в коде
Скрытый текст
Согласие есть продукт при полном непротивлении сторон
Как взять значение из предыдущей непустой ячейки?
 
Цитата
oleg-zuev написал: Прикрепил картинку
На форум по Excel - картинку?
Про файл-пример есть в Правилах форума.
Приложите файл-пример Excel. Как есть - Как надо.
В любом случае в  картинках формулы не поддерживаются
Согласие есть продукт при полном непротивлении сторон
парсинг XML: надо выбрать атрибуты из конкретной группы
 
Можно UDF (бонусом макрос)
В ячейке 'A8' прописан путь к xml файлу
Скрытый текст


П.С. Добавил в файл парсинг штатной функций ФИЛЬТР.XML
Изменено: Sanja - 05.07.2025 14:59:26
Согласие есть продукт при полном непротивлении сторон
Проверка работоспособности гиперссылок
 
Помню, что уже подобное решали)
Согласие есть продукт при полном непротивлении сторон
Перенос форматов из одной книги в другую, Перенос данных через ссылочную формулу =
 
Цитата
Title1246 написал: Макрос?
Да возможно
Еще, как вариант, красить исходные данные с помощью Условного форматирования и такое же правило УФ применять к результирующей таблице
Изменено: Sanja - 04.07.2025 15:14:34
Согласие есть продукт при полном непротивлении сторон
Перенос форматов из одной книги в другую, Перенос данных через ссылочную формулу =
 
Цитата
Title1246 написал: Как можно перенести форматы?
Формулой - никак
Согласие есть продукт при полном непротивлении сторон
Как выполнить макрос на скрытом листе не переходя на него
 
Присваивайте значение переменной lRow до цикла
Код
Sub Удалить_Пр()
Dim iSh As Worksheet
Dim lRow&
Application.ScreenUpdating = False
With Worksheets("Лист1")
  lRow = .Cells(.Rows.Count, 44).End(xlUp).Row + 1
End With
For Each iSh In ThisWorkbook.Worksheets
  With iSh
  If .Name = "Лист1" Or .Name = "Лист3" Then
    .Rows(lRow).Rows("1:1048474").Delete Shift:=xlUp ' 1 вариант
  End If
  End With
Next
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
Как выполнить макрос на скрытом листе не переходя на него
 
Код
Sub Удалить_Пр()
Dim iSh As Worksheet
Dim lRow&
Application.ScreenUpdating = False
For Each iSh In ThisWorkbook.Worksheets
  With iSh
  lRow = .Cells(.Rows.Count, 44).End(xlUp).Row + 1
  If .Name = "Лист1" Or .Name = "Лист3" Then
    .Rows(lRow).Rows("1:1048474").Delete Shift:=xlUp ' 1 вариант
  End If
  End With
Next
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
Как выполнить макрос на скрытом листе не переходя на него
 
Цитата
Valery37 написал: Этот макрос
Словами напишите что он должен делать
Согласие есть продукт при полном непротивлении сторон
Как выполнить макрос на скрытом листе не переходя на него
 
Цитата
Valery37 написал: Он найдет заполненную ячейку в столбце "44 " в ячейке "AR100", уйдет на 1 строку ниже и переместиться в первый столбик на ячеёку "A101""
Да это понятно. Дальше-то что? Что делать с этой ячейкой 'A101'? Выделить и любоваться?
Согласие есть продукт при полном непротивлении сторон
Как выполнить макрос на скрытом листе не переходя на него
 
Select и Activate - зачем нужны и нужны ли?
Согласие есть продукт при полном непротивлении сторон
Как выполнить макрос на скрытом листе не переходя на него
 
Позапускайте макрос в этом файле с разных листов. Это Вам нужно?
Для Активного листа
Код
Sub Найти_Последнюю_Ячейку3()
Dim iLastRow As Long
With Sheets("Лист1") ' Нужное имя впишите сами
    iLastRow = .Cells(.Rows.Count, 44).End(xlUp).Row
End With
MsgBox "Значение в последней АКТИВНОГО листа -  " & Cells(iLastRow + 1, 1).Value
End Sub

Или укажите конкретный лист, с которого нужно брать данные
Код
Sub Найти_Последнюю_Ячейку3()
Dim iLastRow As Long
With Sheets("Лист1") ' Нужное имя впишите сами
    iLastRow = .Cells(.Rows.Count, 44).End(xlUp).Row
End With
MsgBox "Значение в последней ячейке листа 'Лист2' -  " & Sheets("Лист2").Cells(iLastRow + 1, 1).Value
End Sub
Изменено: Sanja - 04.07.2025 09:08:08
Согласие есть продукт при полном непротивлении сторон
Как выполнить макрос на скрытом листе не переходя на него
 
Вам нужно определить последнюю строку, в 44-м столбце на листе 'Лист1', и выполнить макрос для какого-то другого листа?
В Вашем файле ни на одном из 3х листов, в ячейке 'A101' ничего нет. В чем подвох? Что мы все тут ищем?
Изменено: Sanja - 04.07.2025 08:57:04
Согласие есть продукт при полном непротивлении сторон
Как выполнить макрос на скрытом листе не переходя на него
 
В ячейке 'A101' (.Cells(iLastRow + 1, 1).Value) в Вашем файле, пусто. Что Вы хотите там найти?
Согласие есть продукт при полном непротивлении сторон
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 662 След.
Наверх