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

Страницы: 1
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
18.07.2025 15:22:50
Спасибо,  Hugo !
Все получилось.
P.S. Да я знаю поздно.
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
21.08.2024 23:52:22
Спасибо! Буду пробовать. Отпишусь.  
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
21.08.2024 21:55:17
И все таки код копирования как поправить на более правильный?
Код
Sub копия()

Worksheets("копия").Range("A3:AA3000").Clear
Worksheets("Лист2").Range("D2:y3000").Copy
Worksheets("копия").Range("D3:y3001").PasteSpecial Paste:=xlPasteValues
Worksheets("Лист2").Range("A2:A3000").Copy
Worksheets("копия").Range("C3:C3001").PasteSpecial Paste:=xlPasteValues
End Sub
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
21.08.2024 16:18:15
UDF удалось вывести - наименование-документы-количество-суммы,
Наверное туплю,
Какой формулой определить попадание  столбец  в зависимости от источника?
.
Как сделать чтобы  объекты по одинаковым кодам  попадали в одну строку?
Например, л.01.1.1  - часть получили, часть сами, и попадает в соседние строки, а должно  одну строку (первым получили, вторым сами)  
Изменено: JMerlin - 21.08.2024 16:21:32
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
21.08.2024 15:41:32
Спасибо за наводку на копилку. Нашла фунцию сцепитьесли по критериям.
Получилось так. Нашла  и приспособила вроде код VBA - копирование строк (копирование авторство начального кода
Kuzmich), но у меня не работает, очищать-очищает, а копировать -нет,  
Код
'запуск макроса с активного листа Лист2
Sub iPerenos()
Dim i As Long
Dim iLastRow As Long
Dim iLR As Long
Dim FoundCell As Range
Dim FoundCell2 As String
Dim FoundCell3 As String
Dim FoundCell4 As String
Dim FoundCell5 As String
Dim FoundCell6 As String
Dim FoundCell7 As String
Dim FAdr As String
Dim KDB As Worksheet

FoundCell2 = "сами"
FoundCell3 = "получили"
FoundCell4 = ""
FoundCell5 = "(5)"
FoundCell6 = "(880)"
FoundCell7 = "Иной"

  Set KDB = ThisWorkbook.Worksheets("результат")
   KDB.Range("c7:z4000").ClearContents   'очистить диапазон на листе "Результат"
  With Worksheets("Лист2")
   iLR = Cells(Rows.Count, "A").End(xlUp).Row
   iLastRow = 8   'первая строка для заполнения на листе "Как должно быть"
  For i = 2 To iLR
    Set FoundCell = .Columns(1).Find(Cells(i, "A"), , xlValues, xlWhole)
     If Not FoundCell Is Nothing Then
      FAdr = FoundCell.Address
      Do
      If Cells(i, "B").Value = FoundCell2 Then
      .Cells(FoundCell.Row, "A").Copy KDB.Cells(iLastRow, "C")
       .Cells(FoundCell.Row, "D").Copy KDB.Cells(iLastRow, "E")
       .Cells(FoundCell.Row, "G").Copy KDB.Cells(iLastRow, "H")
       .Cells(FoundCell.Row, "E").Copy KDB.Cells(iLastRow, "I")
       .Cells(FoundCell.Row, "F").Copy KDB.Cells(iLastRow, "J")
       .Cells(FoundCell.Row, "G").Copy KDB.Cells(iLastRow, "K")
       .Cells(FoundCell.Row, "H").Copy KDB.Cells(iLastRow, "M")
       .Cells(FoundCell.Row, "I").Copy KDB.Cells(iLastRow, "N")
       .Cells(FoundCell.Row, "J").Copy KDB.Cells(iLastRow, "W")
      Else
       .Cells(FoundCell.Row, "A").Copy KDB.Cells(iLastRow, "C")
       .Cells(FoundCell.Row, "D").Copy KDB.Cells(iLastRow, "E")
       .Cells(FoundCell.Row, "G").Copy KDB.Cells(iLastRow, "O")
       .Cells(FoundCell.Row, "E").Copy KDB.Cells(iLastRow, "P")
       .Cells(FoundCell.Row, "F").Copy KDB.Cells(iLastRow, "Q")
       .Cells(FoundCell.Row, "G").Copy KDB.Cells(iLastRow, "R")
       .Cells(FoundCell.Row, "H").Copy KDB.Cells(iLastRow, "T")
       .Cells(FoundCell.Row, "I").Copy KDB.Cells(iLastRow, "U")
       .Cells(FoundCell.Row, "J").Copy KDB.Cells(iLastRow, "W")
      End If
       iLastRow = KDB.Cells(KDB.Rows.Count, "A").End(xlUp).Row + 1
       Set FoundCell = .Columns(1).FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
  Next
 End With
End Sub
И совершенно  не понятно,, как разбить при переносе сумму по источникам (
И кажется не в одну строку с одинаковы кодом попадут значения (
Изменено: JMerlin - 21.08.2024 15:47:21
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
20.08.2024 23:59:21
Буду, Спасибо!

Получилось контрагента вынуть!!!!
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
20.08.2024 23:30:57
UDF- все грустно (, вообще. Если бы похожее нашла, образец хотя бы был...
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
20.08.2024 22:47:23
Получилось так, не удалось удалить дубликаты в наименовании и контрагенте.
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
20.08.2024 21:10:50
В следующую ячейку вниз опускаться не вариант, Остается вручную сокращать названия  вплоть до нечитаемых аббревиатур.
Изменено: JMerlin - 21.08.2024 14:10:47
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
20.08.2024 19:50:56
предупреждение вывести - сокращать наименование пока не поместимся - откинуть все скобки и числа- но реальней просто предупреждение с указанием кода, который не помещается,  а потом вручную править наименование - и снова запускать, Пока не поместится.
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
20.08.2024 19:10:51
Результат PQ - умная таблица. Как этот момент можно обойти? Копировать только значения?
Изменено: JMerlin - 20.08.2024 19:30:19
 
Перейти    
копирование на соседний лист данных по совпадению кода, часть ячеек объединением значений,часть суммированием
 
#
20.08.2024 18:28:17
Прошу помощи.
Необходимо заполнить отчет - данные придется вносить или вручную или копированием, т.к. стоит защита листа на все остальное (выделение ячейки цветом, внесение формул и т.п.). Даже если удастся снять - отчет не примут (
Промежуточный вариант -  заполнить по образцу обычную таблицу и просто скопировать-вставить в отчет.
Приобретено/получено - порядка 3тыс позиций (6 тыс шт) у разных поставщиков по разным ценам.
Отчет - куда в помещении расставили  приобретенные объекты с расшифровкой у кого и по какой цене купили (получили).

Делаю в несколько заходов, поэтому как отделить данные отработанные  таблице результат вчера от завтра?

Подскажите  в какую сторону лучше смотреть VBA или PQ, но тогда как перемещать результат?
Формулами: суммеслимн, сумм произв для количества и сумм, но для наименования как их все собрать в одну ячейку при совпадении кода?

P.S.Так как чувствую что опять что-то приобретут и попросят дополнить - какой лучше разделительный знак между названиями объектов ставить?
Изменено: JMerlin - 20.08.2024 18:31:17
 
Перейти    
Макрос экспорта листов в PDF
 
#
14.05.2022 22:21:20
Измените эту строчку на
Код
Path = ThisWorkbook.Path & "\" 'Путь сохранения файла
Изменено: JMerlin - 14.05.2022 22:22:21
 
Перейти    
Замена значения по условию, почему не работает формула?
 
#
31.03.2019 01:08:20
Пробелы тоже убирать.
Изменено: JMerlin - 31.03.2019 01:08:49
 
Перейти    
Объединить несколько функций поиск в одной формуле
 
#
24.03.2019 21:45:46
БМВ, спасибо!
Код
=ЕСЛИОШИБКА(ЕСЛИ(O20<>0;ПОИСК(ЛЕВСИМВ(H20;5);K20;1);0);ЕСЛИ(СУММ(--ЕЧИСЛО(ПОИСК({"*эквай*";"*усл*";"*выруч*";"*фок*";"*обес*";"*фпк*"};L20)));0;"проверять"))
 
Перейти    
Объединить несколько функций поиск в одной формуле
 
#
24.03.2019 19:09:35
Добрый вечер!
Ищу вхождение "Плательщика" в "назначение платежа" функцией Поиск. Результат - цифра, если входит, если не входит нужно проверить содержит ли в "комментарий" значения ФОК, экв, усл (список будет меняться), если не содержит - "проверять", если содержит - номер символа с которого входит.

В столбце P.

=ЕСЛИОШИБКА(ЕСЛИОШИБКА(ЕСЛИ(O20<>0;ПОИСК(ЛЕВСИМВ(H20;5);K20);0);ЕСЛИ(ПОИСК("*эквай*";L20);0;ЕСЛИ(ПОИСК("*усл*";L20);0;ЕСЛИ(ПОИСК("*выруч*";L20);0;ЕСЛИ(ПОИСК("*фок*";L20);0;"проверять")))));"проверять")
Формула не срабатывает  при проверке "*усл*","*выруч*","*фок*" - где ошибка?
Изменено: JMerlin - 24.03.2019 19:11:05
 
Перейти    
Поиск неполных совпадений сочетания цифр
 
#
10.11.2013 20:48:12
ikki Спасибо!
Изменено: JMerlin - 19.11.2013 23:10:07
 
Перейти    
Поиск неполных совпадений сочетания цифр
 
#
10.11.2013 02:32:14
SkyPro спасибо!!!  :D
Попытка подрасти.

Поясни пожалуйста, то дает:
Option Explicit                                ' зачем,что дает?
Option Base 1                                 ' зачем,что дает?
Dim i&, v&, s&                                 ' что дает значок "&" рядом с переменными?
Sheets(2).[b4].Resize(s - 1, 5) = arResult 'Что дает? Убирает пустые строки из резльтата?
 
Перейти    
Поиск неполных совпадений сочетания цифр
 
#
10.11.2013 01:19:28
Фильтром сейчас и пользуюсь.
Практика показала - неудобно, при последовательной проверке более n сочетаний теряется много времени.
Удобнее вывести на отдельный лист (желательно формула, тк до VBA не доросла.).
 
Перейти    
Поиск неполных совпадений сочетания цифр
 
#
09.11.2013 23:37:17
Добрый вечер!
Из таблицы (3000 строк, не сортирована) по сочетанию цифр нужно найти все совпадение, в т.ч. частичные/ неполные, и вывести информацию соседних столбцов этой строки.
Например, 55.
Список: 55, 055, 055/67, 879855, 55 /657, 659/ 55, 3396, 368-505 и т.д.
Результат 6 найденных строк из исходной таблицы.
 
Перейти    
Страницы: 1
Наверх