Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос поиска и заполнения значений
 
Помогите написать макрос, который бы искал значения в таблице и копировал их на другой лист в определенные ячейки.
Пример во вложении, задача следующая:
1) Название активного листа копировать в следующую пустую яцейку в столбце А (Листа Статистика)
2) Из таблицы на активном листе (в нашем случае 23.03) получить значение из столбца J (максимальная цена), а строка должна быть определенна по двум параметрам:
столбец D "базис поставки" равен ячейке B3 на листе Статистика, И столбец "С" "Наименование инструмента" содержать значение ячейки B2 листа Статистика.

после того как заполнится строка 5 листа статистика данными 23.03 будет необходимо данные 24.03 таким же образом копировать на строку 6 и так каждый день, каждый новый лист заполняет следующую строку.....
Изменено: Paha_Fil - 5 Май 2015 14:05:35
 
Цитата
Paha_Fil написал:
Помогите написать макрос, который бы искал значения в таблице и копировал их на другой лист в определенные ячейки.
а в чём проблема? - какие наработки? почему не хотите пользоваться функциями... ДВССЫЛ, ВПР, ГПР и т.д. .. что пробовали и что не получается... выполнять всё ТЗ "под ключ" - раздел Работа
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
 
JeyCi, Проблема в очень поверхностном знании макросов, знал бы - не обращался. При помощи формул сделал, но рабочий файл и так уже еле открывается закрывается, из за размера, поэтому хотелось бы выполнить задачу при помочи макросов без нагруженных формул.

Задачу свою сформулировал максимально четко, если есть чем поделиться, буду благодарен, а флуд никому не нужен.
Благодарю!

Если вы готовы взяться за работу за деньги называйте цену, обсудим...
Изменено: Paha_Fil - 26 Мар 2015 02:53:02
 
Флуда не было. Нужен Ваш пример (есть в правилах форума). Если "под ключ" - в раздел "Работа" (есть в правилах форума).
Изменено: Михаил Лебедев - 25 Мар 2015 12:02:00
 
На листе "Статистика" есть "Нормаль-80". На листе 23.03 нет в "Наименование инструмента" такого: "Нормаль-80". Всегда будет 0.
Вопрос. Как Вы определили, что задача сформулирована максимально чётко?

По п.1. ("...Название листа "23.03" копировать в ячейку А5..." ) Макрос
Код
Sub Кнопка1_Щелчок()    
Range("A5" ) = ActiveSheet.Name
End Sub
Изменено: Михаил Лебедев - 26 Мар 2015 02:51:32
 
Paha_Fil, никакого флуда я тоже не вижу. А вот Вам напоминание: не нужно бездумно цитировать. Если на самом деле есть необходимость в цитате, то цитируйте только то, на чём хотите сделать акцент.
Кнопка цитирования НЕ ДЛЯ ответа.
 
Михаил Лебедев, В столбце C - Наименование инструмента, я вижу ячейки содержащие, к примеру, Нормаль-80,- ячейка C13 "Бензин Нормаль-80 (АИ-80-К4), ст. Богандинская (ст. отправления)", почему 0?

Речь идет, о листе Статистика, что бы там в ячейке ниже последней заполненной вписывалось новое название листа в столбец A. Но согласен, что задачу вырванную из контекста всего задания вы выполнили, благодарю. Макрос работает) Уточню свой пост, сорри)
Изменено: Paha_Fil - 5 Май 2015 14:06:06
 
может что то вроде этого?
Код
Sub Статист()
   
    Dim m%
    m = Worksheets("Статистика").Cells(Rows.Count, "A").End(xlUp).Row
    ActiveSheet.Name.Copy [m+1]

End Sub
 
скорее так
Код
Sub Статист() 
    Dim m%
    m = Worksheets("Статистика").Cells(Rows.Count, "A").End(xlUp).Row
    Range("A" & m+1) = ActiveSheet.Name
End Sub
Изменено: V - 26 Мар 2015 08:13:56
 
Так не работает
Страницы: 1
Читают тему (гостей: 1)