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

Страницы: 1
Макрос: удаление строк на другом листе по условию (без совпадения - удалить)
 
#
17.01.2022 10:18:01
Спасибо большое!
 
Перейти    
Макрос: удаление строк на другом листе по условию (без совпадения - удалить)
 
#
14.01.2022 14:16:35
На первом листе столбец А (product_id) - id товаров по которым необходимо найти совпадения на листах 2 и 3 ( так же по столбцу А).
Товары по которым не было совпадений на листах 2 и 3, относительно 1 листа - удалить (удалить на 2 и 3 листах).
Спасибо!
 
Перейти    
Совместить два макроса:удаление дубликатов в одном столбце и сбор данных из другого столбца через запятую
 
#
14.01.2022 12:08:59
, спасибо огромное!
 
Перейти    
Совместить два макроса:удаление дубликатов в одном столбце и сбор данных из другого столбца через запятую
 
#
13.01.2022 17:07:28
Как вы мне уже подсказали с двумя макросами, мне нужно их совместить, что бы был следующий результат:
Необходимо по столбцу "sku" найти дубликаты и по столбцу "categories" этих дубликатов, соединить текст в ячейках через "," без пробелов. Товары дубликаты (строки) в ячейках которых остались пустые значения и просто товары которые повторяются по "sku" и "categories" - удалить.
Код
Sub Макрос1()
    ActiveSheet.Columns("C:C").Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    ActiveSheet.UsedRange.RemoveDuplicates Columns:=Array(3, 4), Header:=xlYes
End Sub
Код
Sub Соединить_через_запятую()
Const sDELIM As String = ""     'символ-разделитель
Dim rCell As Range
Dim sMergeStr As String
If TypeName(Selection) <> "Range" Then Exit Sub   'если выделены не ячейки - выходим
With Selection
For Each rCell In .Cells
sMergeStr = sMergeStr & "," & sDELIM & rCell.Text  'собираем текст из ячеек
Next rCell
Application.DisplayAlerts = False   'отключаем стандартное предупреждение о потере текста
.Merge Across:=False                'объединяем ячейки
Application.DisplayAlerts = True
.Item(1).Value = Mid(sMergeStr, 2 + Len(sDELIM))    'добавляем к объед.ячейке суммарный текст
.MergeCells = True
End With
Selection.UnMerge
End Sub
Спасибо!
 
Перейти    
Макрос - удаление строк дубликатов по 2 значениям
 
#
13.01.2022 16:17:17
Спасибо всем, помогло
 
Перейти    
Макрос - удаление строк дубликатов по 2 значениям
 
#
13.01.2022 15:29:34
Как можно осуществить макросом:
Есть товары дублирующиеся в "categories" и "sku", но  с разным id. Найти такие товары дубликаты по двум значениям и удалить все строки с дубликатами, оставив один из них (не важно какой останется).
Спасибо!
 
Перейти    
Подкорректировать макрос объединения текста из разных ячеек
 
#
13.01.2022 15:13:12
отлично, спасибо большое всем
 
Перейти    
Подкорректировать макрос объединения текста из разных ячеек
 
#
13.01.2022 15:06:47
Если удалить параметр или в ковычках убрать значение, т.е. пробел тогда получаем, что запятая ставится перед объединеным текстом и иметт вот такой вид:
,202013654,202014565,70708532,9956214
Критически необходимо, что бы этой начальной запятой не было.
 
Перейти    
Подкорректировать макрос объединения текста из разных ячеек
 
#
13.01.2022 14:56:41
Всем привет!
Пользуюсь макросом:
Код
Sub Соединить_через_запятую()
  Const sDELIM As String = " "     'символ-разделитель
  Dim rCell As Range
  Dim sMergeStr As String
  If TypeName(Selection) <> "Range" Then Exit Sub   'если выделены не ячейки - выходим
  With Selection
      For Each rCell In .Cells
          sMergeStr = sMergeStr & "," & sDELIM & rCell.Text  'собираем текст из ячеек
      Next rCell
      Application.DisplayAlerts = False   'отключаем стандартное предупреждение о потере текста
      .Merge Across:=False                'объединяем ячейки
      Application.DisplayAlerts = True
      .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))    'добавляем к объед.ячейке суммарный текст
      .MergeCells = True
  End With
  Selection.UnMerge
End Sub

Подскажите плз, как его изменить, что бы после соединения текста, после запятой не было знака пробела?
Что текст в ячейке имел такой вид:
202013654,202014565,70708532,9956214

Спасибо, огромное!
 
Перейти    
Умная автосумма
 
#
11.04.2014 16:08:26
Всем спасибо!
 
Перейти    
Умная автосумма
 
#
11.04.2014 15:41:01
а зачем необходимо смещение (СТРОКА($A$7:$A$1 8)  -7 ;)   ?
Изменено: F1ayer - 11.04.2014 15:49:30
 
Перейти    
Умная автосумма
 
#
11.04.2014 14:12:47
JayBhagavan, при удалении строки с числом, в ячейке итого сумма меняется не правильно(
 
Перейти    
Умная автосумма
 
#
11.04.2014 13:42:06
Примерно в таком порядке, по порядку сделать рубли и евро вариант не подходит(
 
Перейти    
Умная автосумма
 
#
11.04.2014 13:21:16
Спасибо первый вариант помог, но может есть какой то способ попроще и побыстрее? а по поводу суммировать весь диапазон - вариант не подходит(
 
Перейти    
Умная автосумма
 
#
11.04.2014 12:57:42
Добрый день уважаемые форумчане!
По поиску не нашел ничего похожего(
Проблема состоит в том, что у меня есть автосумма по ячейкам "=СУММ(A1;A3;A5;A7)"   все числа находятся в одном столбце, при удалении строки, например 1 автосумма выдает ошибку. Понятно что когда я удаляю строку в автосумме она остается или что то типо того.
Как сделать что бы при удалении например строки с числом, автосумма как бы тоже удаляла эту ячейку и правильно суммировала!
Заранее спасибо вам!
 
Перейти    
Связанный выпадающий список
 
#
26.03.2014 16:49:36
Спасибо вам всем огромное! Очень помогли!)
 
Перейти    
Связанный выпадающий список
 
#
26.03.2014 16:38:04
alexthegreat спасибо, ваш вариант понятен)
V всего у меня 4 варианта покрытия просто для примера 2 написал, если можно скиньте ваш пример тоже плз
 
Перейти    
Связанный выпадающий список
 
#
26.03.2014 16:06:39
Доброго времени суток!
Как сделать так чтобы при выборе из выпадающего списка типа покрытия (Матовый\Глянцевый), автоматически изменялись цены на элементы. Цены должны подтягиваться с прайса на отдельном листе.
См. прикрепленный файл.
Заранее спасибо!!!
 
Перейти    
Страницы: 1
Наверх