Поиск и добавление данных по условию
ruiner2012
Дата: Понедельник, 26.11.2018, 07:45 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Приветствую. Возможно ли по условию добавлять данные? Пример: Если В Строке Найдется = 15.47, Тогда Добавить *На следующей строке после нахождения данных* "Определенные данные с другого листа" Конец Если; Пример документа во вложении.
Приветствую. Возможно ли по условию добавлять данные? Пример: Если В Строке Найдется = 15.47, Тогда Добавить *На следующей строке после нахождения данных* "Определенные данные с другого листа" Конец Если; Пример документа во вложении. ruiner2012
Сообщение отредактировал ruiner2012 - Понедельник, 26.11.2018, 07:53
Ответить
Сообщение Приветствую. Возможно ли по условию добавлять данные? Пример: Если В Строке Найдется = 15.47, Тогда Добавить *На следующей строке после нахождения данных* "Определенные данные с другого листа" Конец Если; Пример документа во вложении. Автор - ruiner2012 Дата добавления - 26.11.2018 в 07:45
китин
Дата: Понедельник, 26.11.2018, 07:46 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
ruiner2012 , поменяйте название темы, согласно Правил форума [moder]исправлено
ruiner2012 , поменяйте название темы, согласно Правил форума [moder]исправлено китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Понедельник, 26.11.2018, 09:03
Ответить
Сообщение ruiner2012 , поменяйте название темы, согласно Правил форума [moder]исправлено Автор - китин Дата добавления - 26.11.2018 в 07:46
китин
Дата: Понедельник, 26.11.2018, 09:02 |
Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
в какой строке? куда добавлять? вы бы нарисовали руками желаемый результат
в какой строке? куда добавлять? вы бы нарисовали руками желаемый результат китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение в какой строке? куда добавлять? вы бы нарисовали руками желаемый результат Автор - китин Дата добавления - 26.11.2018 в 09:02
ruiner2012
Дата: Понедельник, 26.11.2018, 09:21 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
в какой строке? куда добавлять? вы бы нарисовали руками желаемый результат
Нарисовал. Может более поможет понять, какого результат нужно добиться.
в какой строке? куда добавлять? вы бы нарисовали руками желаемый результат
Нарисовал. Может более поможет понять, какого результат нужно добиться.ruiner2012
Сообщение отредактировал ruiner2012 - Понедельник, 26.11.2018, 09:23
Ответить
Сообщение в какой строке? куда добавлять? вы бы нарисовали руками желаемый результат
Нарисовал. Может более поможет понять, какого результат нужно добиться.Автор - ruiner2012 Дата добавления - 26.11.2018 в 09:21
Pelena
Дата: Понедельник, 26.11.2018, 09:54 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19184
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
По Вашему примеру: в ячейку А5 формулу. Код
=ЕСЛИ($B$4=15,53;Лист2!A1;Лист3!A1)
Или вариантов больше двух?
По Вашему примеру: в ячейку А5 формулу. Код
=ЕСЛИ($B$4=15,53;Лист2!A1;Лист3!A1)
Или вариантов больше двух? Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение По Вашему примеру: в ячейку А5 формулу. Код
=ЕСЛИ($B$4=15,53;Лист2!A1;Лист3!A1)
Или вариантов больше двух? Автор - Pelena Дата добавления - 26.11.2018 в 09:54
ruiner2012
Дата: Понедельник, 26.11.2018, 10:59 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Или вариантов больше двух?
Немного больше чем два. Их 7.
Или вариантов больше двух?
Немного больше чем два. Их 7.ruiner2012
Ответить
Сообщение Или вариантов больше двух?
Немного больше чем два. Их 7.Автор - ruiner2012 Дата добавления - 26.11.2018 в 10:59
ruiner2012
Дата: Понедельник, 26.11.2018, 11:04 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Пойду учить макросы, кажется без них не обойтись. Попробую несколько условий. Таблица идет [vba]Код
ЗДАНИИ УСЛУГА РАСЧЕТЫ ПО ТАРИФУ ЗДАНИИ УСЛУГА РАСЧЕТЫ ПО ТАРИФУ ЗДАНИИ УСЛУГА РАСЧЕТЫ ПО ТАРИФУ
[/vba] И получается после каждого "УСЛУГА" должны быть наши расчеты. Подобное покажу в скрине, что получится должно.
Пойду учить макросы, кажется без них не обойтись. Попробую несколько условий. Таблица идет [vba]Код
ЗДАНИИ УСЛУГА РАСЧЕТЫ ПО ТАРИФУ ЗДАНИИ УСЛУГА РАСЧЕТЫ ПО ТАРИФУ ЗДАНИИ УСЛУГА РАСЧЕТЫ ПО ТАРИФУ
[/vba] И получается после каждого "УСЛУГА" должны быть наши расчеты. Подобное покажу в скрине, что получится должно. ruiner2012
Ответить
Сообщение Пойду учить макросы, кажется без них не обойтись. Попробую несколько условий. Таблица идет [vba]Код
ЗДАНИИ УСЛУГА РАСЧЕТЫ ПО ТАРИФУ ЗДАНИИ УСЛУГА РАСЧЕТЫ ПО ТАРИФУ ЗДАНИИ УСЛУГА РАСЧЕТЫ ПО ТАРИФУ
[/vba] И получается после каждого "УСЛУГА" должны быть наши расчеты. Подобное покажу в скрине, что получится должно. Автор - ruiner2012 Дата добавления - 26.11.2018 в 11:04
sboy
Дата: Понедельник, 26.11.2018, 11:38 |
Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
покажу в скрине, что получится должно
Вы забыли показать самое главное Исходные данные
покажу в скрине, что получится должно
Вы забыли показать самое главное Исходные данныеsboy
Яндекс: 410016850021169
Ответить
Сообщение покажу в скрине, что получится должно
Вы забыли показать самое главное Исходные данныеАвтор - sboy Дата добавления - 26.11.2018 в 11:38
ruiner2012
Дата: Понедельник, 26.11.2018, 12:27 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
1 Лист = Исходные данные 2 Лист = После выполнение Макроса или формулы 3-4 Листы = Исходные данные для выполнения задачи. Пробовал Если, что то не получается. Не знаю как придумать, чтобы после нахождения этого тарифа, вставлялось на лист и не заменяло значения.
1 Лист = Исходные данные 2 Лист = После выполнение Макроса или формулы 3-4 Листы = Исходные данные для выполнения задачи. Пробовал Если, что то не получается. Не знаю как придумать, чтобы после нахождения этого тарифа, вставлялось на лист и не заменяло значения. ruiner2012
Ответить
Сообщение 1 Лист = Исходные данные 2 Лист = После выполнение Макроса или формулы 3-4 Листы = Исходные данные для выполнения задачи. Пробовал Если, что то не получается. Не знаю как придумать, чтобы после нахождения этого тарифа, вставлялось на лист и не заменяло значения. Автор - ruiner2012 Дата добавления - 26.11.2018 в 12:27
ruiner2012
Дата: Понедельник, 26.11.2018, 13:36 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Я тут думаю, макрос наверное должен иметь структуру. -Поиск в столбце B значения "14.59"/"11.96" -Добавить строки после строки где найдена нужная цифра, в нашем случае 14.59 или 11.96. -Если 14.59 - то 10 строк, если 11.96 - то 8 строк. -После добавить значения в строки данные из нужных листов. Возможно такое?
Я тут думаю, макрос наверное должен иметь структуру. -Поиск в столбце B значения "14.59"/"11.96" -Добавить строки после строки где найдена нужная цифра, в нашем случае 14.59 или 11.96. -Если 14.59 - то 10 строк, если 11.96 - то 8 строк. -После добавить значения в строки данные из нужных листов. Возможно такое? ruiner2012
Ответить
Сообщение Я тут думаю, макрос наверное должен иметь структуру. -Поиск в столбце B значения "14.59"/"11.96" -Добавить строки после строки где найдена нужная цифра, в нашем случае 14.59 или 11.96. -Если 14.59 - то 10 строк, если 11.96 - то 8 строк. -После добавить значения в строки данные из нужных листов. Возможно такое? Автор - ruiner2012 Дата добавления - 26.11.2018 в 13:36
ruiner2012
Дата: Вторник, 27.11.2018, 06:49 |
Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Видимо нет, кто знает как это реализовать?
Видимо нет, кто знает как это реализовать? ruiner2012
Ответить
Сообщение Видимо нет, кто знает как это реализовать? Автор - ruiner2012 Дата добавления - 27.11.2018 в 06:49
sboy
Дата: Вторник, 27.11.2018, 11:52 |
Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Небольшим макросом можно реализовать. кнопка на листе данные [vba]Код
Sub ruiner() Application.ScreenUpdating = False With Sheets("ДАННЫЕ") ilr = .Cells(.Rows.Count, 1).End(xlUp).Row For ilr = ilr To 4 Step -2 n = Replace(CStr(.Cells(ilr, 2).Value), ",", ".") r = Sheets(n).Cells(1).CurrentRegion.Rows.Count Sheets(n).Cells(1).CurrentRegion.Copy .Cells(ilr + 1, 1).Insert xlShiftDown .Cells(ilr + 1, 3).Resize(r, 4).Value = Sheets(n).Cells(9).Resize(r, 1).Value .Cells(ilr, 3).Resize(1, 4).Copy .Cells(ilr + 1, 3).Resize(r, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply Next End With Application.ScreenUpdating = True End Sub
[/vba]
Небольшим макросом можно реализовать. кнопка на листе данные [vba]Код
Sub ruiner() Application.ScreenUpdating = False With Sheets("ДАННЫЕ") ilr = .Cells(.Rows.Count, 1).End(xlUp).Row For ilr = ilr To 4 Step -2 n = Replace(CStr(.Cells(ilr, 2).Value), ",", ".") r = Sheets(n).Cells(1).CurrentRegion.Rows.Count Sheets(n).Cells(1).CurrentRegion.Copy .Cells(ilr + 1, 1).Insert xlShiftDown .Cells(ilr + 1, 3).Resize(r, 4).Value = Sheets(n).Cells(9).Resize(r, 1).Value .Cells(ilr, 3).Resize(1, 4).Copy .Cells(ilr + 1, 3).Resize(r, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply Next End With Application.ScreenUpdating = True End Sub
[/vba] sboy
Яндекс: 410016850021169
Ответить
Сообщение Небольшим макросом можно реализовать. кнопка на листе данные [vba]Код
Sub ruiner() Application.ScreenUpdating = False With Sheets("ДАННЫЕ") ilr = .Cells(.Rows.Count, 1).End(xlUp).Row For ilr = ilr To 4 Step -2 n = Replace(CStr(.Cells(ilr, 2).Value), ",", ".") r = Sheets(n).Cells(1).CurrentRegion.Rows.Count Sheets(n).Cells(1).CurrentRegion.Copy .Cells(ilr + 1, 1).Insert xlShiftDown .Cells(ilr + 1, 3).Resize(r, 4).Value = Sheets(n).Cells(9).Resize(r, 1).Value .Cells(ilr, 3).Resize(1, 4).Copy .Cells(ilr + 1, 3).Resize(r, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply Next End With Application.ScreenUpdating = True End Sub
[/vba] Автор - sboy Дата добавления - 27.11.2018 в 11:52
ruiner2012
Дата: Вторник, 27.11.2018, 14:10 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Небольшим макросом можно реализовать. кнопка на листе данные
Ого, спасибо. Но почему считает где то, а где то просто ставит проценты? Видимо на столько плох, что даже прочитать не могу макрос. Просто не вижу даже похожих данных. Макро2, Макрос3, Макрос4 используются как добавочные?
Небольшим макросом можно реализовать. кнопка на листе данные
Ого, спасибо. Но почему считает где то, а где то просто ставит проценты? Видимо на столько плох, что даже прочитать не могу макрос. Просто не вижу даже похожих данных. Макро2, Макрос3, Макрос4 используются как добавочные?ruiner2012
Ответить
Сообщение Небольшим макросом можно реализовать. кнопка на листе данные
Ого, спасибо. Но почему считает где то, а где то просто ставит проценты? Видимо на столько плох, что даже прочитать не могу макрос. Просто не вижу даже похожих данных. Макро2, Макрос3, Макрос4 используются как добавочные?Автор - ruiner2012 Дата добавления - 27.11.2018 в 14:10
sboy
Дата: Вторник, 27.11.2018, 14:20 |
Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Но почему считает где то, а где то просто ставит проценты?
У Вас проценты в листах с подстановочными данными были как текст. Исправил в листахМакро2, Макрос3, Макрос4 используются как добавочные?
нет, это я рекордер включал, забыл удалить. (удалил)
Но почему считает где то, а где то просто ставит проценты?
У Вас проценты в листах с подстановочными данными были как текст. Исправил в листахМакро2, Макрос3, Макрос4 используются как добавочные?
нет, это я рекордер включал, забыл удалить. (удалил)sboy
Яндекс: 410016850021169
Ответить
Сообщение Но почему считает где то, а где то просто ставит проценты?
У Вас проценты в листах с подстановочными данными были как текст. Исправил в листахМакро2, Макрос3, Макрос4 используются как добавочные?
нет, это я рекордер включал, забыл удалить. (удалил)Автор - sboy Дата добавления - 27.11.2018 в 14:20
ruiner2012
Дата: Вторник, 27.11.2018, 14:44 |
Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
нет, это я рекордер включал, забыл удалить. (удалил)
Я наверное самый наглый который здесь был, можете помочь прочитать? Или как добавить другие тарифы? Кроме 14.59 и др? Это же понимаю, что нужно дописать скорее всего макрос. Скажите хоть свой кошелек в лс или карту. Чтобы уж не за просто так.
нет, это я рекордер включал, забыл удалить. (удалил)
Я наверное самый наглый который здесь был, можете помочь прочитать? Или как добавить другие тарифы? Кроме 14.59 и др? Это же понимаю, что нужно дописать скорее всего макрос. Скажите хоть свой кошелек в лс или карту. Чтобы уж не за просто так.ruiner2012
Ответить
Сообщение нет, это я рекордер включал, забыл удалить. (удалил)
Я наверное самый наглый который здесь был, можете помочь прочитать? Или как добавить другие тарифы? Кроме 14.59 и др? Это же понимаю, что нужно дописать скорее всего макрос. Скажите хоть свой кошелек в лс или карту. Чтобы уж не за просто так.Автор - ruiner2012 Дата добавления - 27.11.2018 в 14:44
sboy
Дата: Вторник, 27.11.2018, 14:51 |
Сообщение № 16
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Или как добавить другие тарифы?
Аналогично, создайте листы и назовите их соответственно
Или как добавить другие тарифы?
Аналогично, создайте листы и назовите их соответственноsboy
Яндекс: 410016850021169
Ответить
Сообщение Или как добавить другие тарифы?
Аналогично, создайте листы и назовите их соответственноАвтор - sboy Дата добавления - 27.11.2018 в 14:51
ruiner2012
Дата: Вторник, 27.11.2018, 14:56 |
Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Аналогично, создайте листы и назовите их соответственно
Хорошо, спасибо. Попробую
Аналогично, создайте листы и назовите их соответственно
Хорошо, спасибо. Попробуюruiner2012
Ответить
Сообщение Аналогично, создайте листы и назовите их соответственно
Хорошо, спасибо. ПопробуюАвтор - ruiner2012 Дата добавления - 27.11.2018 в 14:56
ruiner2012
Дата: Среда, 28.11.2018, 08:01 |
Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Это снова я, такой вопрос. Решил попробовать на большом отчете, где больше тарифов и данных. Выдает ошибку и ссылается на "r = Sheets(n).Cells(1).CurrentRegion.Rows.Count" в debug. Данные не корректны получаются? Что то я криворукий какой то
Это снова я, такой вопрос. Решил попробовать на большом отчете, где больше тарифов и данных. Выдает ошибку и ссылается на "r = Sheets(n).Cells(1).CurrentRegion.Rows.Count" в debug. Данные не корректны получаются? Что то я криворукий какой то ruiner2012
Сообщение отредактировал ruiner2012 - Среда, 28.11.2018, 08:01
Ответить
Сообщение Это снова я, такой вопрос. Решил попробовать на большом отчете, где больше тарифов и данных. Выдает ошибку и ссылается на "r = Sheets(n).Cells(1).CurrentRegion.Rows.Count" в debug. Данные не корректны получаются? Что то я криворукий какой то Автор - ruiner2012 Дата добавления - 28.11.2018 в 08:01
ruiner2012
Дата: Среда, 28.11.2018, 08:24 |
Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Методом проб и ошибок , видимо нашел в чем подвох. Нельзя значит чтобы сразу 2 услуги в доме было, только по одной.
Методом проб и ошибок , видимо нашел в чем подвох. Нельзя значит чтобы сразу 2 услуги в доме было, только по одной. ruiner2012
Ответить
Сообщение Методом проб и ошибок , видимо нашел в чем подвох. Нельзя значит чтобы сразу 2 услуги в доме было, только по одной. Автор - ruiner2012 Дата добавления - 28.11.2018 в 08:24
sboy
Дата: Среда, 28.11.2018, 10:46 |
Сообщение № 20
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Просто этого подвоха в примере не было Поправил и добавил обработку ошибки, если листа с данными нет, то пропускаем.
Просто этого подвоха в примере не было Поправил и добавил обработку ошибки, если листа с данными нет, то пропускаем.sboy
Яндекс: 410016850021169
Ответить
Сообщение Просто этого подвоха в примере не было Поправил и добавил обработку ошибки, если листа с данными нет, то пропускаем.Автор - sboy Дата добавления - 28.11.2018 в 10:46