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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 151 След.
сравнение двух таблиц на совпадения по столбцах с удалением лишних строк
 
Иван Борисенко, в E2 книги Таблица1
Код
=ИНДЕКС([таблица2.xlsx]Sheet1!$D:$D;ПОИСКПОЗ(A2;[таблица2.xlsx]Sheet1!$A:$A;0))

или если конкретно заменить значения...

красным выделятся строк которые не найдены в Таблице2. запускать при открытых двух файлах (из примера)

Код
Sub dsd()
Dim sh As Worksheet, sh2 As Worksheet
Dim cell As Range
Dim lr As Long, i As Long
Set sh = Workbooks("Таблица1").Worksheets("Sheet1")
Set sh2 = Workbooks("Таблица2").Worksheets("Sheet1")
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
Set cell = sh2.Columns(1).Find(sh.Cells(i, 1))
    If Not cell Is Nothing Then
        sh.Cells(i, 4) = cell.Offset(0, 3)
    Else
        sh.Cells(i, 4).Interior.ColorIndex = 3
    End If
Next i
End Sub
Изменено: Mershik - 3 Июн 2020 22:03:23
Удалить дубликаты строк
 
DJMC, тут наверное лучше PQ
Заливка таблицы цветом, как в первой строке
 
Цитата
Mershik написал:
В рабочем документе заливка выполняется с помощью условного форматирования
Код
Sub e()
Dim n As Long, i As Long
Application.ScreenUpdating = False
For n = 2 To 66
For i = 6 To 25
Cells(i, n).Interior.Color = Cells(5, n).DisplayFormat.Interior.Color
Next i
Next
Application.ScreenUpdating = True
End Sub
Перенос значений с одинаковым признаком
 
Romanngv, ТАК ЧЕРНЫМ ПО БЕЛОМУ НАПИСАНО -
Цитата
Предложите новое, Заменят модераторы.
..ПРЕДЛОЖИТЕ ТАМ ПРЯМ ПОСЛЕ ЗАМЕЧАНИЯ
Заливка таблицы цветом, как в первой строке
 
irina111, т.е. вам нужно просто перенести цвет ячеек как в первой строке соответствующего столбца?

так как данных нет определять диапазон вручную
Код
Sub e()
Dim n As Long, i As Long, stroka As Long, stolbec As Long
stroka = Application.InputBox("Укажите номер последней строки", Type:=1)
stolbec = Application.InputBox("Укажите номер последнего столбца", Type:=1)
For n = 1 To stolbec
For i = 2 To stroka
Cells(i, n).Interior.ColorIndex = Cells(1, n).Interior.ColorIndex
Next i
Next
End Sub
Изменено: Mershik - 3 Июн 2020 13:51:50
Перенос значений с одинаковым признаком
 
Romanngv, вы же уже делали такую тему и вам там уэе даже оказали помощь но вы не захотели уточнять название темы....
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=129047&TITLE_SEO=129047-perenos-neskolkikh-znacheniy-po-priznaku&MID=1060287#message1060287

и вы снова такое же название пишите)))) забавно...а там даже кажется я дал ответ...
Изменено: Mershik - 3 Июн 2020 13:26:16
Создание списка товаров из повторяющихся наименований товара.
 
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
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 151 След.
Наверх