Привую тех, кто еще не спит!  
Sub www()  
On Error Resume Next  
[D:D].Replace 0, "", LookAt:=xlWhole
[a1].CurrentRegion.SpecialCells(4).EntireRow.Delete
End Sub  
 
Ребята, вот никак не пойму, что в макросе надо поменять, чтобы он удалял строки с пустыми ячейками , только одного, конкретно взятого столбца? Например, в столбце А.  
С ув. Муля!

Вечер добрый!  
Не страшно. Главное отзывчивый.  
А макрос в общем работает, но только в пределах существующей таблицы. А при добавлении новой строки, почему то не работает.  
С ув. Муля!

Привет!  
Ребята! Кто поможет с макросом. Пожалуйста!  
Подробнее в самом примере.  
С ув. Муля!

Пардон!

ПРивет!  
Вроди сделаол все правильно, а VLOOKUP2 выдает #ЗНАЧ!  
Пжт подскажите как правильно!  
С ув. Муля!

{quote}{login=RAN}{date=16.12.2011 10:33}{thema=}{post}А мы что, не дружно? :){/post}{/quote}  
ВАм виднее ...!!!

{quote}{login=RAN}{date=16.12.2011 10:01}{thema=}{post}Ну что набросились!  
Муля, а что, действительно помогает определить, по какой цене бензин в баке в 12-30, а по какой в 14-30? Тогда цены такой книге нет!{/post}{/quote}  
Ребята-октябоята, особенно RAN, давайте жить дружно!!! Я ж ничего такого не сделал, чтобы вот так ...  
Ради этого я забираю назад свою просьбу про компактдиск!!!!    
С ув Муля!

Ребята! Вот не плохая книжечка :  
А. П. Сергеев. Маркетинговые исследования с помощью EXCEL 2007    
К ней прилагается компакт диск. Но вот найти его, не могу.  
Может у кого то из вас он есть поделитесь!?  
Эта книга представляет собой практическое руководство по проведению маркетинговых исследований с помощью Microsoft Office Excel 2007.  
Качать здесь: http://zalil.ru/32294672  
С ув. Муля!

Ой, ой, ое ей!  
Не тот файл прикрепил  
С ув. Муля!

Всем привет!  
Покажите пжт! Как добавить в макрос «ОтчетТопливо» еще одно условие выборки данных, и формирования из них отчета. Таким условием является номер ГАИ автомобиля. Смотри ячейка К6.на листе «ЗвітПеріод».  
Заранее спасибо, Муля!

Добрый день!  
В приложенном файле, имеется база данных из которой нужно формировать «Отчеты за период». Такой период может быть как квартальным или месячным, так и за любой другой период времени. Отсюда строк в отчете, может быть сколько угодно.  
Для этого я сочинил макрос, с использованием формул, но он работает некорректно.  
В часности, В самом отчете неправильно отображает данные (пропускает строки, либо отображает данные из периода, которые не относятся к периоду, который выбран пользователем).  
Очень прошу спецов, посмотрите, пожалуйста, что я сделал не так.  
И заодно, мне в него еще нужно добавить выполнение еще двух операций.  
 
1). Чтобы он вносил данные в таблицу отчета не с 10-ой строки (как он делает это сейчас), а начиная с 14-ой строки, потому как вверху таблицы, мне нужны строки для подсчета итогов.  
2). И было бы здорово, если бы в него добавить модуль, который бы разлинеивал только заполненную часть отчета. А строка подписей, размещалась сразу же, под последней запоолненой строкой.  
Чтобы не приходилось печатать листы без даных.  
С ув. Муля!

Все работает! Докумекал.  
Всем помогающим гуру большое спасибо, а ув.Hugo  
- огромнейшее!!!  
С ув. Муля

Вот я вроди так и сделал  
 
Private Sub UserForm_Initialize()  
'Dim oName As Name  
Dim a  
With Me.ListBox1  
For Each a In Array("Строка_имени", "Підсумок_по_автомобілю")  
For Each a In Array("Строка_имени", "Підсумок_по_ПІБ_водія")  
For Each a In Array("Строка_имени", "Використано_бензину_за_період")  
For Each a In Array("Строка_имени", "Використано_дизтоплива_за_період")  
For Each a In Array("Строка_имени", "Підсумок_відфільтрованих_даних")  
' For Each oName In ThisWorkbook.Names  
.AddItem a 'oName.Name  
.Selected(i) = Not Application.Names(a).RefersToRange.EntireRow.Hidden 'oName.RefersToRange.EntireRow.Hidden  
i = i + 1  
Next  
End With  
bEvents = True  
End Sub  
Ругается!

Сейчас я удалил "лишнее". Вроди как заработало.  
Но. откуда то добавляет лишний , ненужный пункт в список Листбокса (смотри самый первый) в этом списке.  
И как я уже говорил выше, все эти имена нужны для работы.

{quote}{login=Hugo}{date=24.11.2011 01:44}{thema=}{post}Да там куча скорее всего не нужных имён - поудяляйте все лишние, а там уже может быть всё и наладится.{/post}{/quote}  
Это они в примере вроди как лищние, а в настоящем рабочем файле, все они задействованы. Поэтому я их и не удалял.  
С ув. Муля!

{quote}{login=Hugo}{date=24.11.2011 12:59}{thema=}{post}Имя n_correction не имеет RefersToRange.{/post}{/quote}  
Но я в этом пока не кумекаю!

К статп! Для сравнения, прикрепляю файл, в котором эта же форма работает нормально

Всем доброй ночи!  
Ребята! Посмотрите пожалуйста, почему не работает форма Скрыть/отобразить строки.  
И что интересно, в примере работает, а вот в рабочем файле выдает ошибку.  
С ув. Муля!

Шановний пане Сергію!  
Сердечно Вас вітаю!  
А, щоб весело було  
Багато всього побажаю!  
А іменно: незмінного щастя, бездоганного здоров'я, велетенського кохання, поваги і терпимості до інших людей. І всього, всього, всього ...  
Муля!

{quote}{login=RAN}{date=10.11.2011 08:19}{thema=}{post}Не будет 5,25.  
Вот когда определите количество бензина в баке на момент заправки, а не выезда из гаража...  
А если он заправлял пустой бак? (на шнурке притащили?)  
 
1) Проверил себя еще раз, не ошибся именно 5,25.  
2) Исли притащили до заправки на шнурке, тогда так : 5,50 (0 + 82,5) / (0 + 15), но такое бывает раз в 100 лет.  
3) А осток, в целях эффективного контроля за расходованием топлива, актуально определять именно на конец рабочего дня. А еще лучше, и на начало, и на конец дня.Чтобы предлвратить воровство.А сам водитель, может это делать чаще. По желанию.  
4) А макрос а = ([A1]+[B1])/([A2]+[B2]), мне мало о чем говорит.
С ув. Муля!

По логике, если при выезде авто на линию в баке авто имеется  15 л. Бензина по цене 5 грн. , на общую сумму 75 грн., а на протяжении дня водитель дозаправляет еще 15 литров, но уже по ценеи 5,5 грн. , на общую сумму 82,5 грн., тогда новая цена бензина в бвке, уже будет будет равняться 5,25 (75,0 + 82,5) / (15 + 15) грн.  
Исходя из этого, мне нужен макрос, который бы осуществлял расче такой (новой) цены.  
Более детально, смотри в файле.  
С ув. Муля!

Владимир = властелин.  
Желаю ВАМ львиного здоровья, огромного человеческого счастья , повседневной радости, пламенной любви к женскому полу и безграничногого владения обширными знаниями не только Экселя, но и всего того, что приносит человеку почет, уважение и хорошую зарплату!  
С ув. Муля!

Все подошло.  
Перенес в рабочий файл, работает без сбоев.  
СПАСИБО вам за помощь!!!  
С ув. Муля!

Ув. хто-то!  
Все понял и макроси работают без сбоев.  
Спасибо!  
Извините за наглость! Еще одна просьба  
Нельзя ли в єтот макрос (то есть, последний) добавит проверочку. Если даных по какому то месяцу нет, то Ексель выдает соответствующее сообщение и ничего не меняет на листе. То есть, оставляет все как было.  
С ув. Муля!

Ув. хто-то!  
Для начала, извините за молчанме. Неотложная служебная текучка отвлекла на долго.  
А по поводу макроса и формулы, просто гениально получилось. Буду переносить в рабочий файл и тестировать.  
СПАСИБО, СПАСИБО и еше раз СПАСИБО!!!  
И маленький вопросик. Год в комбобокс2 , макрос берет из самого столбца G. То есть, 2012 год в нем появится автоматически? Правильно я понимаю?  
С ув. Муля!

Опять то же!  
Ладно , смотрите  без архивации на файлообменнике : http://zalil.ru/32003219  
К стати, не пойму что именно так утяжеляет размер самого файла?  
Вроди ничего такого сверх большого в нем нету.

Файл почему то не прикрепился?  
Повторяю

Доброго выходного дня всем!  
Помогите с макросом, который бы в таблице с фильтром, отображал значения только текущего месяца. А все остальные скрывал.  
У меня, ну никак не получается!  
С ув. Муля!

Возможно ли такое сделать с пользовательськой функцмей  VLOOKUP2 (сама функція, взята из примов, см. адресс : http://www.planetaexcel.ru/tip.php?aid=62)  
Условие смотри в примере.    
С ув. Муля!

{quote}{login=}{date=12.10.2011 08:09}{thema=}{post}ну а сдвинуть в макросе пробовали??{/post}{/quote}  
Да пробовал уже тысячу и одитн раз  
С ув. Муля!