Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 151 След.
Создание списка товаров из повторяющихся наименований товара.
 
Vadim Mikayilov, а вы посмотрели многоразовый впр в приемах?

Код
=ЕСЛИОШИБКА(ИНДЕКС(A$3:A$11;АГРЕГАТ(15;6;СТРОКА($A$3:$A$11)/($A$3:$A$11=СЕГОДНЯ());СТРОКА($A1)));"")
последний просуммировать суммесли...
или еще 2 файл
Код
=ЕСЛИОШИБКА(ИНДЕКС(B$3:B$11;ПОИСКПОЗ(1;ИНДЕКС((СЧЁТЕСЛИ(F$2:F2;$B$3:$B$11)=0)/($A$3:$A$11=СЕГОДНЯ());0);0));"")
Изменено: Mershik - 3 Июн 2020 12:48:04
Создание списка товаров из повторяющихся наименований товара.
 
Vadim Mikayilov,
Цитата
Vadim Mikayilov написал:
помощью формулы можно сделать такое
можно..например посмотрите многоразовый ВПР в приемах  
Удалить дубликаты строк
 
DJMC, да это макрос готового решения, но видимо я неправильно понял задачу вам не нужно отсавлять 1 экземпляр повторяющихся значений? или нужно?
Цитата
DJMC написал:
у меня на работе стоит только Exel 2013
а какfя разница вставляете в модуль листа и запускаете... если не знаете куда и ка вставлять, то что я вставлю в файле ничего не изменит - https://www.planetaexcel.ru/techniques/3/59/
Изменено: Mershik - 3 Июн 2020 12:14:43
Выделить цветом все ячейки с покупателем, которому соверил продажу указанный продавец
 
Леонид Габбасов, на здоровье)
Удалить дубликаты строк
 
DJMC,
Код
Sub udlenie_strok()
Dim myrange As Range
Dim rSel As Range
ilastrow = Cells(Rows.Count, 1).End(xlUp).Row
Set myrange = Range(Cells(1, 1), Cells(ilastrow, 1))
    For i = ilastrow To 1 Step -1
        k = Application.WorksheetFunction.CountIf(myrange, Cells(i, 1))
        If k > 1 Then
        If rSel Is Nothing Then
                Set rSel = Cells(k, 1)
            Else
                Set rSel = Union(rSel, Cells(i, 1))
            End If
        End If
    Next i
If Not rSel Is Nothing Then rSel.EntireRow.Delete
End Sub
Сравнении числовых значение в текстовом формате
 
Brendan, поставить перед вашей функцией -- (двойное отрицание)
=--ПСТР......
ТЕМА: Сравнении числовых значение отраженных как текст.
Изменено: Mershik - 2 Июн 2020 21:56:32
Сравнении числовых значение в текстовом формате
 
Brendan, Все правильно делает функция если, что задаете для нее то и получаете - тексты невозможно сравнить таким способом
пы.сы ваша формула возвращает текст, а не число....
Выделить цветом все ячейки с покупателем, которому соверил продажу указанный продавец
 
Леонид Габбасов, но макрос актуален если покупатели группированы(т.е. сортированы)
Выделить цветом все ячейки с покупателем, которому соверил продажу указанный продавец
 
Леонид Габбасов, да намеки вы не понимаете вообще)
Цитата
vikttur написал:
Покрасить картавых зеленых попугайчиков в синюю полоску
Цитата
Mershik написал:
фильтровать енотов  если они полосаты и к тому же полоскуны
короче ТЕМА:Выделить цветом все ячейки с покупателем которому хоть раз совершил продажу заданный в ячейке продавец.
Код
Sub sdd()
Dim i As Long, lr As Long, k As Long
Dim cell As Range
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(4, 1), Cells(lr, 2)).Interior.ColorIndex = xlNone
For i = 4 To lr
    If Cells(i, 2) = Cells(1, 2) Then
    Set cell = Columns(1).Find(Cells(i, 1))
    k = Application.WorksheetFunction.CountIf(Range(Cells(4, 1), Cells(lr, 1)), Cells(i, 1))
    i = i + k
    cell.Resize(k, 2).Interior.ColorIndex = 3
    Cells(i - k, 2).Interior.ColorIndex = 7
    End If
Next i
End Sub
Изменено: Mershik - 2 Июн 2020 21:37:04
Выделить цветом все ячейки с покупателем, которому соверил продажу указанный продавец
 
Леонид Габбасов, вы уверены что Вам нужно ФОРМАТИРОВАНИЕ (ССЫЛКА)
Выделить цветом все ячейки с покупателем, которому соверил продажу указанный продавец
 
Леонид Габбасов, подсказка: фильтр по указанному торговцу в ячейке, фильтровать енотов  если они полосаты и к тому же полоскуны, выборка всех котеек которые похожи по заданному (ым) условиям...
Изменено: Mershik - 2 Июн 2020 20:00:23
В таблицу с частичными интервалами подставить коды из таблицы полных интервалов
 
Александр Страхов,  а только не понял про пересечения вот например у  вас от 2 до 3...
Код
=ЕСЛИОШИБКА(ПРОСМОТР(2;1/(($E2>=$A$2:$A$4)*($F2<=$B$2:$B$4));$C$2:$C$4);"")
Изменено: Mershik - 2 Июн 2020 16:44:14
Отобразить показатели по выбранным "единице" и "магазину" (таблицы магазинов на разных листах)
 
vonBlomberg, что конкретно нужно сделать??? посчитать количество коров с серыми глазами если у них нет хвоста и левое ухо торчит или количество ягод крансого цвета в ящиках квадратной формы....это я к названию темы - модераторы заблокируют помощь так как тема не отражает сути задачи..
вложить можно что хочешь и куда хочешь ...задача ваша ведь не в этом
Подсчет проданного товара по нескольким значениям
 
simsio, ну вроде так как у вас за исключением что 737929 откуда у Вас 9 по ТТ2 не пойму...
Код
ЕСЛИ(ЕЧИСЛО(ПРОСМОТР(2;1/(($A$22:$A$28=K$2)*($B$22:$B$28=$D3));$C$22:$C$28));СУММЕСЛИМН($C$22:$C$28;$B$22:$B$28;$D3;$A$22:$A$28;K$2);ЕСЛИ(ИНДЕКС($B3:$C3;1;ПОИСКПОЗ(ИНДЕКС($B$17:$C$18;ПОИСКПОЗ($A3;$A$17:$A$18;0);ПОИСКПОЗ(K$2;$B$16:$C$16;0));$B$2:$C$2;0))="+";0;""))
Подсчет проданного товара по нескольким значениям
 
simsio, я лично ничего не понял последнее) если объясняете то лучше в примере
Изменено: Mershik - 1 Июн 2020 16:40:46
Подсчет проданного товара по нескольким значениям
 
так? (но я бы не использовал весь столбец это тормозит формулу)/

УЖЕ ПОНЯЛ ЧТО НЕ ТАК...
Код
=ЕСЛИ(ЕЧИСЛО(ПРОСМОТР(2;1/((Прождажи!$A:$A=G$2)*(Прождажи!$B:$B=$B3));Прождажи!$C:$C));СУММЕСЛИМН(Прождажи!$C:$C;Прождажи!$A:$A;G$2;Прождажи!$B:$B;$B3);"")
Подсчет проданного товара по нескольким значениям
 
simsio,
Цитата
simsio написал: одсказать, как разделить и сделать сводную таблицу по каналам категорий и ТТ?
это уже новая тема - тут правила один вопрос одна тема. Создайте новую и там быстро получите ответ
Подсчет проданного товара по нескольким значениям
 
simsio, в если заверните если в этом проблема лишь
Код
 =ЕСЛИ(СУММЕСЛИМН(Прождажи!$C:$C;Прождажи!$A:$A;G$2;Прождажи!$B:$B;$B3)=0;"";СУММЕСЛИМН(Прождажи!$C:$C;Прождажи!$A:$A;G$2;Прождажи!$B:$B;$B3))
Создание архива данных на другом листе с датой временем и именем пользователя
 
foxster_72, в модуль листа 1
Код
Dim lr As Long
Dim rng As Range
Dim sh As Worksheet
Set sh = Worksheets("LOG")
lr = Cells(Rows.Count, 1).End(xlUp).Row
lr2 = sh.Cells(Rows.Count, 5).End(xlUp).Row
Set rng = Range(Cells(2, 1), Cells(lr, 2))
sh.Range("c" & lr2 + 1) = Application.UserName & " " & Now
rng.Copy Destination:=sh.Range("d" & lr2 + 1)
Range(Cells(2, 1), Cells(lr, 2)).ClearContents
End Sub
Изменено: Mershik - 1 Июн 2020 08:44:31
Создание архива данных на другом листе с датой временем и именем пользователя
 
foxster_72, не очень понятно что конкретно хотите ..возможно так. старые данные стираются
Код
Sub copy_AB()
Dim lr As Long
Dim rng As Range
Dim sh As Worksheet
Set sh = Worksheets("LOG")
sh.Range("C:E").Clear
lr = Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range(Cells(1, 1), Cells(lr, 2))
sh.Range("c1") = Application.UserName & " " & Now
rng.Copy Destination:=sh.Range("d1")
End Sub
Изменено: Mershik - 31 Май 2020 21:16:16
Как удалить дубликаты в нескольких столбцах
 
Imran, ДД. у вас установлено несколько офисов? удалите самые ранние (это ответ по названию вашей темы).
а по делу мой Вам совет прочитайте правила так как они нарушены в части названия и файла прмиера (его нет)...модераторы ататат будут делать  вам и помогащим
Преобразование времени заданного в формате hh-mm,ss в формат "hh:mm:ss"
 
Федор Мазуров, зачем им писать? написано же -
Цитата
vikttur написал:
Предложите название
вот свое сообщение выше отредактируйте и предложите...если в к этому задаете вопрос.
Если нет то можете нажать на имя модератора и откроется профиль там будет "сообщение"
Макро на Hotkey для добавления данных из текущей строки в новую таблицу по условию
 
svwy, пусть будет вдруг пригодится кому-то еще.
в модуль листа, при двойном нажатии на ячейку и если там есть значение...
ЛУЧШЕ ВЕРНИТЕСЬ К СООБЩЕНИЮ  ЗАМЕНИТЕ ЦИФРЫ НА НОРМАЛЬНЫЕ БУКВЫ  - ТУТ ТАКОЕ НЕ ПРИВЕТСТВУЕТСЯ. МОДЕРАТОРЫ РУГАТЬ БУДУТ!
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range(Cells(2, 5), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column))) Is Nothing Then
        If Not IsEmpty(Target) Then
            Dim sh As Worksheet
            Set sh = Worksheets("Schedule")
            lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
            sh.Cells(lr + 1, 1) = Cells(Target.Row, 1)
            sh.Cells(lr + 1, 2) = Cells(Target.Row, 4)
            sh.Cells(lr + 1, 3) = Cells(1, Target.Column)
        End If
    End If
End Sub
Изменено: Mershik - 31 Май 2020 09:59:56
Макро на Hotkey для добавления данных из текущей строки в новую таблицу по условию
 
svwy,  запускать на листе "All courses" выделив 1 ячейку...ну назначить на горячие клавиши думаю сможете
Код
Sub copy_select()
Dim sh As Worksheet
Set sh = Worksheets("Schedule")
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
sh.Cells(lr + 1, 1) = Cells(ActiveCell.Row, 1)
sh.Cells(lr + 1, 2) = Cells(ActiveCell.Row, 4)
sh.Cells(lr + 1, 3) = Cells(1, ActiveCell.Column)
End Sub

но я бы наверное в таком случае запуск назначил на двойное нажатие левой кнопки мыши...но вы указали

Цитата
Макро на Hotkey

Изменено: Mershik - 31 Май 2020 09:43:52
При выборе даты и номера машины посчитать пройденное расстояние по маршруту.
 
stroma, а как определить начало маршрута? ведь есть 01.05.2020 и ранее склад и точки.. так как разные нужно понимать как определить начало и конец маршрута.
Цитата
до Склада1/Склада2
вообще не нашел склад2 ...
мой совет сделать нормальный пример если сейчас он не таков, так как предложенное решение по факту может не подойти к реальному файлу.
Изменено: Mershik - 30 Май 2020 23:53:21
Преобразование времени заданного в формате hh-mm,ss в формат "hh:mm:ss"
 
да согласно Вашему названию темы - VBA умеет изменять ячейки и не только...вопрос какой? Модераторы будут ругать.

Тема: Преобразование времени заданного в формате "hh-mm,ss" (через дефис и запятую) в формат "hh:mm:ss"
не самый изысканный вариант...
Код
Sub dsd()
Dim cell As Range, rng As Range
Set rng = Range("F3:F14")
For Each cell In rng
 If InStr(1, cell, ",") = 0 Then
 k = "00"
 Else
 k = CStr(("0," & Mid(cell, InStr(1, cell, ",") + 1, 2))) * 60
 End If
cell.Offset(0, -1) = _
Format(Left(cell, InStr(1, cell, "-") - 1) & ":" & Mid(cell, InStr(1, cell, "-") + 1, 2) & ":" & k, "h:mm:ss")
Next cell
End Sub
Изменено: Mershik - 30 Май 2020 22:58:14
Выборочное построчное суммирование по 2 и более критериям
 
Roman_MSK, диапазоны должны быть равным  по размеру  
Найти значение соответствующее заданным условиям на листе название которого указано в ячейке
 
Я не ясновидящий к сожалению
а вдруг
Код
=ЕСЛИ(ПСТР(ЯЧЕЙКА("ИМЯФАЙЛА";A1);ПОИСК("]";ЯЧЕЙКА("ИМЯФАЙЛА";A1))+1;255)<>B2;ПРОСМОТР(2;1/(($B2=ДВССЫЛ("'"&$B2&"'!B:B"))*($C2=ДВССЫЛ("'"&$B2&"'!c:c")));ДВССЫЛ("'"&$B2&"'!e:e"));ПРОСМОТР(2;1/(($B2=ДВССЫЛ("'"&$C2&"'!b:b"))*($C2=ДВССЫЛ("'"&$C2&"'!c:c")));ДВССЫЛ("'"&$C2&"'!e:e")))
Изменено: Mershik - 30 Май 2020 21:01:43
Выборочное построчное суммирование по 2 и более критериям
 
Roman_MSK, есть, но это не точно - неверно указываете диапазоны, но этого мы никогда не узнаем (без файла примера в котором вы уже ввели формулу)
Изменено: Mershik - 30 Май 2020 20:21:25
Выборочное построчное суммирование по 2 и более критериям
 
Roman_MSK, в последнем будет сложно разобраться, но это та же формула что и первая просто диапазоны указаны не явно так как мы их определяем с помощью функций ИНДЕК + ПОИСКПОЗ + ПРОСМОТР
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 151 След.
Наверх