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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 131 След.
формула подсчета количества не пройденных тем занятий
 
Vesuvius, та ломать нечего в принципе...Удачи)
формула подсчета количества не пройденных тем занятий
 
Vesuvius, Vesuvius,
Цитата
Vesuvius написал:
нужна
если быстро решить вопрос нужно...и только пройденных тем
Изменено: Mershik - 9 Апр 2020 21:54:18
формула подсчета количества не пройденных тем занятий
 
Vesuvius, столбец G ? это что? там правильные значения например для студента 6? кроме нб и чисел что то еще может?
Изменено: Mershik - 9 Апр 2020 21:49:14
формула подсчета количества не пройденных тем занятий
 
Vesuvius, покажите в файле, заполнено вручную, что должно получится и где...
Остаток на сегодняшний день, НЕобходима помощь при написании формулы
 
mari158, покажите в файле жедаемый результат в файле
Остаток на сегодняшний день, НЕобходима помощь при написании формулы
 
mari158, в файле не увидел желаемого результата ..сделал как понял, с до столбцом "Дата поставки"
Копирование данных с последнего листа книги1 и вставка в текущий лист книги2
 
ДенExcel111, вы бы удосужились пример приложить, в котором показали бы примеры того что есть и что в итоге должно получиться
Изменено: Mershik - 7 Апр 2020 22:07:21
Сортировка таблицы и изменение данных
 
ДедЗападло, сделать сортировку изначально для указанного диапазона без учета нового столбца
Копирование диапазона без выделения листа
 
johny009,  Тема: При нажатии кнопки копировать значение ячейки с одного листа на другой в первую пустую ячейку столбца
Код
Sub мкр2()
With Worksheets("Лист2")
For I = 1 To 15
If .Cells(I, 5).Value = "" Then
.Cells(I, 5).Resize(1, 1).Value = Sheets("Лист1").Range("b2").Value
Exit For
End If
Next
End With
End Sub
Изменено: Mershik - 7 Апр 2020 17:12:39
Заполнение данных сводной таблицы с использование VBA, Заполнение данных сводной таблицы из листа с вручную введенными данными использование поиска VBA
 
narod svs, narod svs,
Цитата
narod svs написал:
Что нучжно
от вас:
1. Файл-пример в реальной структуре и формате данных. В нем показать исходные данне и рядом или на другом листе что должно получиться.

Если не грузиться попробуйте с другого браузера...имхо
Изменено: Mershik - 7 Апр 2020 16:10:46
[ Закрыто] Помогите отредактировать макрос, что бы сделать его универсальным
 
Юрий М,  товарищ ДЭНЧИК147,  видимо очень благодарный человек https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=92546&TITLE_SEO=92546-filtr-povtoryayushchikhsya-strok-v-raznykh-listakh&MID=765560#message765560

и практически во всех темах он даже не отписывается об оказанной помощи...ИМХО.
[ Закрыто] Помогите отредактировать макрос, что бы сделать его универсальным
 
ДЭНЧИК147, вы можете просто показать в файле вот это есть вот это должно получиться, но при этом описать, ч то нужно учесть что количество будет разное а итог всегда в F4  и тому подобное, что бы нам было понятно что вам нужно. и соответственно придумать нормальное название типо посчитать долю каждого товара ит.п
Изменено: Mershik - 7 Апр 2020 15:27:50
Проверить вхождение даты в диапазон дат на двух отдельных листа по фамилии человека
 
StanJBL,
Цитата
StanJBL написал:
Лист №2:
Цитата
StanJBL написал:
Лист №1:
нет это не листы это текст просто..приложите файл-пример в формате ексель с исходными данными и покажите что должно получиться.
Найти город в столбце,затем в этом городе в этом же столбце найти нужный товар
 
vv2020,  СРАЗУ У ВАС УЖАСНЫЙ ВАРИАНТ(ЛОГИЧЕСКИ) ОРГАНИЗАЦИИ ДАННЫХ

вариант формулой с доп.столбцом
Код
=СУММЕСЛИМН($D$8:$D$25;$B$8:$B$25;G$9;$C$8:$C$25;ИНДЕКС($G$18:$G$20;ПОИСКПОЗ($F10;$F$18:$F$20;0);1))

еще вдруг подойдет но без до столбца(если не повторяются товары в рамках одного города)
Код
=ЕСЛИОШИБКА(ИНДЕКС(ИНДЕКС($D$8:$D$25;ПОИСКПОЗ(G$14;$C$8:$C$25;0)+1;1):$D$25;ПОИСКПОЗ(ИНДЕКС($G$18:$G$20;ПОИСКПОЗ($F15;$F$18:$F$20;0);1);ИНДЕКС($C$8:$C$25;ПОИСКПОЗ(G$9;$C$8:$C$25;0)+1;1):$C$25;0);1);"")
Изменено: Mershik - 6 Апр 2020 21:31:48
При печати путевого листа менять дату
 
nazr,  а вы запускали печать с листа какого?
Найти город в столбце,затем в этом городе в этом же столбце найти нужный товар
 
Юрий М, ага особенно строка №20 ))))) город груша))
При печати путевого листа менять дату
 
nazr, у меня нет принтера, но попробуйте так..но вам бы лучше больше информаци дать только день или все же дату или еще что то, в каких ячейках!?
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Путевой лист легк. такси").Cells(5, 9) = Worksheets("Путевой лист легк. такси").Cells(5, 9) + 1
End Sub
Изменено: Mershik - 6 Апр 2020 21:14:40
Найти город в столбце,затем в этом городе в этом же столбце найти нужный товар
 
vv2020, а почему пропуски между строками?  так всегда? или какая логика размещения данных?
потому что сделал а понял что товар в городе может быть один и тот же..и к тому же не понятно где  заканчивается город и начинается новый....
Найти сумму человеко часов по каждому диаметру крана в зависимости от выполняемых работ
 
pavzmak, заполните пару строк результата....
для суммы попробуйте так:
Код
=СУММПРОИЗВ((ИНДЕКС($E$3:$P$3;1;ПОИСКПОЗ($B36;$E$2:$P$2;0)):ИНДЕКС($E$34:$P$34;1;ПОИСКПОЗ($B36;$E$2:$P$2;0))<>"")*ИНДЕКС('С гидравл.'!$F$6:$Q$6;1;ПОИСКПОЗ($B36;'С гидравл.'!$F$5:$Q$5;0)):ИНДЕКС('С гидравл.'!$F$37:$Q$37;1;ПОИСКПОЗ($B36;'С гидравл.'!$F$5:$Q$5;0)))

для текста
c UDF https://www.excel-vba.ru/chto-umeet-excel/kak-scepit-neskolko-znachenij-v-odnu-yachejku-po-kriteriyu-scepitesli/
смотрите файл.
Код
=СцепитьЕсли(ИНДЕКС($E$3:$P$3;1;ПОИСКПОЗ($B36;$E$2:$P$2;0)):ИНДЕКС($E$34:$P$34;1;ПОИСКПОЗ($B36;$E$2:$P$2;0));">0";$D$3:$D$34;"; ")
Изменено: Mershik - 7 Апр 2020 09:00:08
Динамическая выборка значений из таблицы по заданным 5 критериям ИЛИ от 1 до 5 заданным
 
a.u.kuznetsov, вечер добрый, покажите в файле исходные данные и рядом что должно получиться - без формул просто ручками заполните желаемый результат. а то мне лично ничего не понятно не з описания и тем более из названия темы...
Копировать значение ячейки в соответствующий столбец другой таблицы
 
Makuton, не уверен что понял..попробуйте.
в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Double
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Таблица2[№ Разрешения]")) Is Nothing Then
If Not Target = "" Or IsEmpty(Target) Then
Set Myfind = Range("Таблица4[#Headers]").Find(Target.Offset(0, -1))
On Error Resume Next
mycol = Myfind.Column
myrow = Myfind.Row
k = Application.WorksheetFunction.CountIf(Range("Таблица2[Наименование:]"), Target.Offset(0, -1).Value)
For i = myrow To myrow + k
If IsEmpty(Cells(i, mycol)) Then
Cells(i, mycol) = Target
Exit For
End If
Next i
End If
End If
End Sub
Копировать значение ячейки в соответствующий столбец другой таблицы
 
Makuton, а можете детальнее описать что должно проходить, а самое главное как? когда несколько значений? нужно вниз друг под другом подставлять?!

верхняя таблица я так понимаю будет увеличиваться ( по количеству строк?)
Изменено: Mershik - 5 Апр 2020 19:38:46
Cуммирование цифр или чисел в одной ячейке
 
swetlana, файл-пример приложите и покажите что есть и сто должно получиться. https://excel2.ru/articles/slozhenie-cifr-chisla-v-ms-excel
Изменено: Mershik - 5 Апр 2020 14:09:59
Вставить в ячейку значения, отличные от выпадающего списка
 
Алексей Чуйкин, создайте отдельно тему или посмотрите по форуму...
Изменено: Mershik - 5 Апр 2020 13:43:16
Вставить в ячейку значения, отличные от выпадающего списка
 
Алексей Чуйкин,
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("AE4:AX9")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Set myfind = Worksheets("Данные").Columns(.Find(Target.Value, LookIn:=xlValues)
On Error Resume Next
Range(Target.Address) = myfind.Offset(0, -1)
End If
End Sub
Вставить в ячейку значения, отличные от выпадающего списка
 
Алексей Чуйкин,
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("AE4:AX9")) Is Nothing Then ' указываете ваш диапазон где при изменении будет происходить замена нужного вам значения
Set myfind = Worksheets("Данные").Columns(7).Find(Target.Value, LookIn:=xlValues) ' указываете номер столбца где ищем нужное нам значение из выпадающего списка
On Error Resume Next
Range(Target.Address) = myfind.Offset(0, 1)  ' 0 - смещение по строкам, 1 смещение по столбцам относительно значения выбранного из списка

End If
End Sub
Изменено: Mershik - 5 Апр 2020 12:52:25
Вставить в ячейку значения, отличные от выпадающего списка
 
Алексей Чуйкин,
Цитата
Алексей Чуйкин написал:
в реальной структуре
т.е. можете удалить все данные и все оставить только то что касается кода.
кстати возможно вы макрос не в тот модуль листа вставили...
Изменено: Mershik - 5 Апр 2020 12:14:28
Вставить в ячейку значения, отличные от выпадающего списка
 
Алексей Чуйкин, нужен файл хотя бы в реальной структуре что бы глянуть..
как сложить только цифры если в ячейке есть ещё и текст
 
Trimsurface,  
для D произведение для каждой из строк
Код
=ЛЕВСИМВ(B3;ДЛСТР(B3)-ПОИСК(" ";B3;1))*C3
массивная формула CTRL+SHIFT+ENTER) для суммрования
Код
=СУММПРОИЗВ(ПОДСТАВИТЬ($B$3:$B$26;" шт.";"")*$C$3:$C$26)
Изменено: Mershik - 5 Апр 2020 11:10:20
Вставить в ячейку значения, отличные от выпадающего списка
 
Алексей Чуйкин, в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:i20")) Is Nothing Then
Set myfind = Worksheets("Лист2").Columns(2).Find(Target.Value, LookIn:=xlValues)
On Error Resume Next
Range(Target.Address) = myfind.Offset(0, -1)
End If
End Sub
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 131 След.
Наверх