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

Страницы: 1
При сортировке - сначала позиции, по которыми были изменения по продажам.
 
#
06.03.2021 23:01:00
Добрый день,

Есть скрипт, который несколько раз в день запрашивает по артикулу остаток товаров, и выводит их в таблицу.
С помощью:
Код
=ЕСЛИ(СЧЁТЕСЛИ(А$2:А2;А2)=1;А2;Ц2-Ц1)
в столбец H подсчитывается и выводиться количество продаж, или пополнения.

Однако, в связи с тем, что при каждом новом пополнении таблицы строк становиться всё больше и больше, появилась необходимость выводить отсортированный результат по изменениям.
Т.е. сначала выводить те позиции, по которыми были изменения в результате последнего запроса данных.
Если это возможно, помогите пжс добавиться такого результата.

Пример с желаемым результатом прикрепляю (желаемый результат в Лист 2)
 
Перейти    
При сортировке - сначала позиции, по которыми были изменения по продажам.
 
#
01.03.2021 17:46:46
Добрый день,

Есть скрипт, который несколько раз в день запрашивает по артикулу остаток товаров, и выводит их в таблицу.
С помощью:
Код
 =ЕСЛИ(СЧЁТЕСЛИ(А$2:А2;А2)=1;А2;Ц2-Ц1)
в столбец H подсчитывается и выводиться количество продаж, или пополнения.

Однако, в связи с тем, что при каждом новом пополнении таблицы строк становиться всё больше и больше, появилась необходимость выводить отсортированный результат по изменениям.
Т.е. сначала выводить те позиции, по которыми были изменения в результате последнего запроса данных.
Если это возможно, помогите пжс добавиться такого результата.

Пример с желаемым результатом прикрепляю (желаемый результат в Лист 2)
 
Перейти    
Как вывести остаток по конкретному артикулу за конкретный период
 
#
25.02.2021 13:36:31
Добрый день.
Прошу подсказать способ, как основываясь на конкретный артикул посчитать и вывести в отдельный столбец "результат" остаток по каждому артикулу за конкретный период.
Есть скрипт, который несколько раз в день запрашивает по артикулу остаток товаров, и выводить их в таблицу. Нужно решение, с помощью которого на основании регулярного спарсенного остатка, выведет количество продаж, или пополнения.

Пример с желаемым результатом прикрепляю.
 
Перейти    
Текст по столбцам: как избежать замены уже заполненных ячеек
 
#
08.12.2017 18:56:17
Подскажите пжс как избежать замены уже заполненных ячеек при обработке по функции Текст по столбцам

Вот макрос который выполняет эту функцию, но при последующих обработка оставляет пустыми уже заполненные ячейки.
Код
Sub obrabotat_gabariti()

Application.DisplayAlerts = False

'
' Obrabotat po ang x
'

Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="x", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
'
' Obrabotat po rus x
'
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="õ", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
'
' Obrabotat po *
'
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="*", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True

Application.DisplayAlerts = True
End Sub


Желаемый результат в листе под названием "Результат"
Изменено: Jone_Stena - 08.12.2017 20:07:01
 
Перейти    
Найти из списка в столбце B точное совпадение со столбцом А, и проставить напротив
 
#
07.09.2017 23:00:24
Подскажите пожалуйста макрос или формулу, артикулы товаров вписаны в названия, есть отдельный список артикулов который можно вставить в столбец B, необходим найти в названиях (столбец А) артикулы, и рядом проставить отдельно артикулы.

На Лист1 исходные данные, Лист2 - результат.

Желательно формулой
Изменено: Jone_Stena - 07.09.2017 23:05:08
 
Перейти    
Извлечь ссылки из определенного диапазона, и скопировать в определенный столбец
 
#
04.09.2017 23:18:51
Подскажите пожалуйста как извлечь ссылки из определенного диапазона, и скопировать в указанный столбец?

Код
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 7).Value = HL.Address
Next
End Sub

Такой метод не подошел, так как извлекается из любого текста, и проставляется через 7 ячеек.
Необязательно макрос, можно и формулой
Изменено: Jone_Stena - 05.09.2017 15:49:28 (Добавил пример)
 
Перейти    
Сохранить как в xml 2003 на Название + ДАТА И ВРЕМЯ С СЕКУНДАМИ
 
#
04.09.2017 20:45:07
Подскажите пожалуйста, как исправить макрос, чтобы после сохранения, имя файла было:
Название + ДАТА И ВРЕМЯ С СЕКУНДАМИ - ДД.ММ.ГГ - ММ.ЧЧ.СС

Код
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Иван Иванов\Desktop\Название + ДАТА И ВРЕМЯ С СЕКУНДАМИ - ДД.ММ.ГГ - ММ.ЧЧ.СС.xml", FileFormat:= _
        xlXMLSpreadsheet, ReadOnlyRecommended:=False, CreateBackup:=False
Изменено: Jone_Stena - 04.09.2017 20:45:31
 
Перейти    
Искать пустые ячейки, и копировать значение предыдущей заполненной ячейки.
 
#
04.09.2017 15:38:50
Подскажите пожалуйста макрос, который будет искать в указанном столбце пустую ячейку, и копировать туда из предыдущей заполненной ячейки.
Пример с результатом прикрепляю.

Результат в новом листе только для примера, обработать нужно указанный столбец.
Изменено: Jone_Stena - 04.09.2017 15:40:18
 
Перейти    
Найти тире в определенных случаях, и убрать.
 
#
30.08.2017 21:10:35
В прайс-листе имеются артикулы следующего вида:
VVV11V-BLACK-2*2
VVV11V-WHITE-2*2
VVV11V-RED-2*2

Нужно убрать второе тире, т.е. заменить на пробел, т.е. получить вот такой результат:
VVV11V-BLACK 2*2
VVV11V-WHITE 2*2
VVV11V-RED 2*2

Подскажите пожалуйста как исправить данный макрос:
Код
Sub Zamenit()
    Columns("A:A").Select
    Selection.Replace What:="VVV11V-*-", Replacement:="VVV11V-* ", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

т.е. сейчас макрос находит эти три артикула: What:="VVV11V-*-" но заменяет их на значение "VVV11V-* ". т.е. получается вот такой результат:
VVV11V-* 2*2
VVV11V-* 2*2
VVV11V-* 2*2

Что проставить вместо * в Replacement:="VVV11V-* ", чтобы дать понять макросу, что это не значение для замены, а в этом месте есть значение которое не нужно менять?
Изменено: Jone_Stena - 30.08.2017 21:17:19
 
Перейти    
Найти в столбце B пустые ячейки, удалить всю строку найденных ячеек - Макрос
 
#
30.08.2017 19:40:39
Задача:
Найти в столбце B пустые ячейки;
Удалить всю строку найденных ячеек;

Подскажите пожалуйста макрос.
 
Перейти    
Диапазон до первой пустой ячейки - макросом
 
#
28.08.2017 19:13:33
Подскажите пожалуйста, как вместо E530 указать до первой пустой ячейки?
Код
    Selection.AutoFill Destination:=Range("E3:E530")
    Range("E3:E530").Select
 
Перейти    
Макрос для сортировки - как указать вместо листxx текущий лист?
 
#
27.08.2017 19:42:48
Здравствуйте.
Подскажите пожалуйста, как в данном макросе, вместо Лист26, указать текущий лист, так как при смене листа появляется ошибка:
Цитата
Sub Nazvanie19()

   Range("J3").Select
   ActiveWorkbook.Worksheets("Лист26").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Лист26").Sort.SortFields.Add Key:=Range("J3"), _
       SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Лист26").Sort
       .SetRange Range("C3:R4001")
       .Header = xlNo
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With

End Sub
 
Перейти    
Обработка по макросу в брузере
 
#
01.07.2017 20:07:41
Не знаю, возможна ли работа макроса вне excel, поэтому решили поинтересоваться.
В прайс-листе имеются ссылки на фотографии, ссылки ведут на Яндекс.Диск, где находятся несколько фотографий.
Возможно-ли,  чтобы макрос переходил по ссылке, копировал каждую ссылку на отдельную фотографию, и вставлял обратно в excel в той же строке, в соседних ячейках?

Пример прикрепляю...
Изменено: Jone_Stena - 01.07.2017 20:22:53
 
Перейти    
Доделать макрос для обработки прайса, включая новые требования
 
#
29.06.2017 17:02:57
В продолжение темы: http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=93073&TITLE_SEO=93073-sokratit-artikul-obedinit-tsveta
Требуется дополнить макрос:

1. Как и раньше из артикула убирается название цвета
2. Столбцы с цветом объединяются, цвета через точку с запятой. (Это как и пункт 1 уже готово, осталось поправить чтобы макрос работал для всех строк, что править смотреть Цитату чуть ниже.)

Цитата что неправильно работает сейчас:
1. Обрабатываются не все записи, обратите пожалуйста внимание, что после обработки в листе После обработались не все записи.
2. Сортировка важна, т.е. если имеется пустая строка, то нужно чтобы в результате строка также пропускалась, сейчас пустых строк в листе После нет, т.е. сбивается сортировка.

Что дополнить:
3. В прайсе есть Штрихкоды копируем их Описание и к ним добавляются названия цветов из столбца с цветами.
4. Из описания берем первую строку, создается столбец со значение, (Раньше я получал эту строку с помощью формулы: =ЛЕВБ(A1;ПОИСК(СИМВОЛ(10);A1)-1) )
4.1. И далее для каждой строки из описания создается новые столбцы атрибут + значение.
5. В основном прайсе есть строки, в которых просто текст (пример 98 строка) эти текста также нужно сохранить.
6. Желательно чтобы результат появлялся на новом листе, чтобы можно было методом сравнения понимать правильно ли макрос обработал прайс.

Полное подробное ТЗ, пример, и основной прайс в Л.С,
Бюджет 500р.
Изменено: Jone_Stena - 29.06.2017 17:28:25
 
Перейти    
Сократить артикул, объединить цвета
 
#
28.06.2017 22:11:36
Есть прайс, в котором у каждого цвета свой артикул, к примеру если артикул JJJ-Z04A то к нему добавляется -WHITE и тем самым артикул становиться уникальным для каждого пункта.

Задача:
Убрать названия цветов из артикула;
Тем самым получить для каждого вида товара один артикул;
Объединить названия цветов через точку с запятой.

Пример прайса, и желаемый результат прикрепляю.
Подскажите пожалуйста как этого добиться.
Изменено: Jone_Stena - 28.06.2017 22:23:05
 
Перейти    
Дублировать значение через точку с запятой
 
#
28.06.2017 01:16:25
Подскажите пожалуйста, как продублировать значение в рядом стоячей ячейке 10 раз, через точку с запятой.
Изменено: Jone_Stena - 28.06.2017 01:19:54
 
Перейти    
Выделить только по номер строки из списка с номерами строк
 
#
13.06.2017 23:44:40
В новом прайс листе известно в каких строках новые товары, т.е. есть список номеров этих строк, задача заключается в том, чтобы выделить именно те строки (для того, чтобы в дальнейшем скопировать, и вставить только эти строки) список номеров которые у меня есть.
Подскажите пожалуйста как этого можно добиться.

Пример списка с номерами прикрепляю:
Изменено: Jone_Stena - 14.06.2017 00:07:16
 
Перейти    
YML в Excel - товар в строке соответствующей категории
 
#
02.06.2017 19:27:28
Помогите пожалуйста с проблемой.
У поставщика прайс в YML формате, соответственно, если открывать в excel, то сначала список категорий, и уже после, начинается список товаров.
Связывает их id2 и categoryId.

Подскажите пожалуйста, как сортировать их по строкам, т.е. товар в строке соответствующей категории...
Пример из одной позиции прикладываю.
 
Перейти    
Как удалить весь текст из ячейки, кроме первой строки
 
#
28.05.2017 00:11:30
Здравствуйте.
Поискал на форуме, не найдя ответа, решил все таки задать вопрос.

В excel имеет много таблиц с описанием товара в ячейке следующего вида:
Код
Товар такой-то такой-то

Описание описание описание
Описание описание описание
Описание описание описание
Описание описание описание
Описание описание описание
Описание описание описание Описание описание описание
Мне нужно оставить только первую строку, а именно Товар такой-то такой-то
Подскажите пожалуйста формулу, для того, чтобы удалить весь текст из описания кроме первой.
Изменено: Jone_Stena - 28.05.2017 00:13:13
 
Перейти    
Страницы: 1
Наверх