Здравствуйте, коллеги. Прошу Вашей помощи в следующем вопросе: в приложенном файле стоит задача спрогнозировать ожидаемую сумму закупок товара на текущий месяц на основе статистики продаж. Для этого есть журнал продаж, журнал состоявшихся закупок и сводная таблица показывающая среднее кол-во продаж по товару в день. В идеале хотелось бы получить вычисления отдельно по каждому товару и по категории в целом в этой же сводной таблице, но буду благодарен за любые предложенные решения.

Коллеги, подскажите, пожалуйста, а здесь в чем ошибка?  
Нужно в листе "закупки" подтянуть среднее значение продаж по товару за месяц

Спасибо!

Добрый день. Коллеги, подскажите, пожалуйста, как сделать чтоб в столбце "Расходы на закупку" (Лист ALL) к соответствующей дате подтягивалась сумма (за эту же дату) из листа "Журнал закупок". Спасибо!

Огромное всем спасибо! Все получилось

Добрый день. Помогите, пожалуйста: нужно в столбце 5 массово убрать первые символы, ноли (т.е. серийный номер не должен начинаться с ноля). Кол-во нолей впереди разное.  
Подскажите макрос, пожалуйста  
Спасибо!

Я разобрался.  
Спасибо

Добрый день. Помогите, пожалуйста, с формулой для следующей задачи: есть виды работ и расценки к ним. Есть желаемая сумма и кол-во рабочих дней в месяц. Задача - расчет необходимого кол-ва работ для достижения желаемой суммы в рабочие дни :) И чтоб работы можно было выбирать.  
Например: используя работы 1, 2, 4 и 8 за 21 рабочий день я хочу получить 5000. Формула должна рассчитать кол-во работ  
 
Спасибо

одскажите, будьте добры: пытаюсь протяуть формулу, выдает ошибку: "формула в этой ячейке ссылается на диапазон, к которому прилегают другие значения". Почему, что не так?

Спасибо! А можно сделать так, чтоб учитывались значения в диапазоне? Например, вес 2.3, 2.5 или 2.7 соответствуют тарифу за 2 кг.

Доброго времени суток. Помогите, пожалуйста, подтянуть "тариф" с закладки "Лист2" в зависимости от отправителя/зоны/веса.  
Спасибо

Помогите, пожалуйста: как протянуть формулу, чтоб она оставалась одинаковой во всех ячейках ниже (не менялся диапазон)...

Спасибо!!!

Приветствую! Помогите, пожалуйста, вложить нескольео формул ЕСЛИ в одну:  
 
1: Если город откуда равен "Москва" - в ячейке "Тариф" рассчитывать по формуле ИНДЕКС(ИзМосквы!A1:H502;ПОИСКПОЗ(C10;ИзМосквы!A1:A502);ПОИСКПОЗ(G7;ИзМосквы!A1:H1))  
2: Если город куда равен "Москва" - рассчитывать по ИНДЕКС(ВМоскву!A1:H502;ПОИСКПОЗ(C10;ВМоскву!A1:A502);ПОИСКПОЗ(G7;ВМоскву!A1:H1))  
3: Если ни один из городов не равен "Москва" - формула ИНДЕКС(ВРегионы!A1:H502;ПОИСКПОЗ(C10;ВРегионы!A1:A502);ПОИСКПОЗ(G7;ВРегионы!A1:H1))  
 
Как это объединить в одну формулу?

Спасибо, заработало! :)  
А можно усложнить задачу? Чтоб, тариф подтягивался в диапазоне весов. Например, если вес 0,4 - то Тариф как за 0,3. Или если Вес 2,3 - Тариф 2  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Добрый день. Помогите, пожалуйста - объясните, не могу понять, в чем ошибка?  
В приложенном файле, на закладке "Расчет" в ячейке F3 возвращается Н/Д. Может потому, что D3 тоже формула?  
Идея в "Расчетах" такова, чтоб при смене "Зоны" менялся и "Тариф". Помогите осуществить, пожалуйста  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

О да, все получилось! Спасибо!!!

Добрый вечер. Помогите, пожалуйста, решить такую задачу: есть таблица с городами и стоимостью доставки между ними. Нужно на отдельном листе создать такую форму, чтоб с помощью выпадающего списка можно было выбрать город "откуда" и "куда" и в соседнюю ячейку подтягивалась бы стоимость доставки между ними.  
Спасибо!

Доброго времени суток! Помогите, пожалуйста развить пример из http://www.planetaexcel.ru/tip.php?aid=28  
Возможно ли добавить во вложенный файл макрос, отвечающий следующим условиям:  
1. При вводе/изменении текста в ячейках столбца 2 изменять дату/время и имя пользователя в столбце 7  
2. При удалении текста из столбца 2 делать запись в столбце 7 "Удалено <дата/время/имя пользователя>"  
3. Аналогичные условия для столбцов 8 и 9. В 8 вводится текст - в 9 изменяются данные ввода  
4. Возможно ли запретить удалять строки?  
 
Спасибо!

Спасибо, разобрался!

{quote}{login=k61}{date=27.04.2011 04:52}{thema=re: чтоб менялись и ПО на PO, и ЙО на YO, и ОП на OP (и обратно)}{post}так?{/post}{/quote}  
 
Да, только звездочка не добавляется...

Доброго времени суток. Подскажите, пожалуйста: есть макрос:  
 
Sub Макрос1()  
'  
' Макрос1 Макрос  
' SAP  
'  
With Columns("B")   'область поиска  
   Set r = .Find(What:="ПО", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False)  
   If r Is Nothing Then Exit Sub  
   s = r.Address  
   Do  
       r = Replace(r, "ПО", "PO", , , vbTextCompare) & "*"  
       Set r = .FindNext®  
   Loop Until r Is Nothing  
End With  
End Sub  
Sub Макрос2()  
'  
' Макрос2 Макрос  
' 1C  
'  
 
'  
With Columns("B")   'область поиска  
   Set r = .Find(What:="PO", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False)  
   If r Is Nothing Then Exit Sub  
   s = r.Address  
   Do  
       If Right(r, 1) = "*" Then r = Left(r, Len® - 1)  
       r = Replace(r, "PO", "ПО", , , vbTextCompare)  
       Set r = .FindNext®  
   Loop Until r Is Nothing  
End With  
End Sub  
 
Помогите, пожалуйста, как дописать чтоб менялись и ПО на PO, и ЙО на YO, и ОП на OP (и обратно)

Всем спасибо. Очень помогли!

Нет, не обязательно ;)  
главное, чтоб просто и понятно

День добрый. Помогите, пожалуйста: нужна формула в несколько ЕСЛИ, чтоб в при определенном показателе выполнения плана в одной ячейке в другой появлялся определенный коэффициент

{quote}{login=The_Prist}{date=17.02.2011 11:11}{thema=}{post}Тогда еще проще:  
 
Private Sub Worksheet_Change(ByVal Target As Range)    
If Target.Cells.Count > 1 Then Exit Sub    
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then    
If Target = "ОК" then  
With Target(1, 2)    
.Value = Now    
.EntireColumn.AutoFit    
End With    
end if  
End If    
End Sub{/post}{/quote}  
 
 
Да, действительно, все просто ;)  
Спасибо!

{quote}{login=The_Prist}{date=16.02.2011 05:35}{thema=Re: Re: }{post}{quote}{login=DJ_Serega}{date=16.02.2011 05:33}{thema=Re: }{post}а куда именно нужно дописать этот код?{/post}{/quote}Не знаю...Автору виднее - он код-то не выложил.{/post}{/quote}  
 
Вот изначальный код:  
 
Private Sub Worksheet_Change(ByVal Target As Range)      
   If Target.Cells.Count > 1 Then Exit Sub    
       If Not Intersect(Target, Range("A2:A100")) Is Nothing Then    
           With Target(1, 2)      
               .Value = Now      
               .EntireColumn.AutoFit      
           End With    
       End If    
End Sub    
 
 
Пишется в "исходный текст" листа (правой кнопкой наж. на лист -> Исходный текст)

Добрый день. Покажите код, пожалуйста, чтоб дата и время проставлялись при определенном слове? Допустим, в А2:А100 при слове "ОК" меняется дата и время, а при "НЕ ОК" ничего не меняется, остается время последнего ввода "ОК".  
Спасибо  
 
http://www.planetaexcel.ru/tip.php?aid=28 - здесь был

То, что нужно! Спасибо огромное!

{quote}{login=vikttur}{date=27.01.2011 01:19}{thema=}{post}СЛЧИСЛ()>0,5  
СЛЧИСЛ()<0,5{/post}{/quote}  
 
Можно маленький пример? Я никогда не пользовался этой формулой