В ячейке B7 есть значения которые относятся к Компании 1 необходимо переместить их в колонку E начиная с ячейки E6 столбиком столько значений сколько есть свободных в Колонке D ячеек которые относятся к Компании 1, если есть лишние значения то их разместить справа от компании, если недостаточно значений оставляем их пустыми, то же самое с ячейкой B12

Необходимо написать формулу поиска артикла в столбце "А" на всех существующих листах и вытягивание со столбца "Е" результат

=СТРОЧН(ПСТР(H18;1;1)) & ПРАВСИМВ(H18;ДЛСТР(A2)-1)

Написать формулу в B1
В ячейке А1 найти символ " " и  символ "/"  после чего заменить его на "-" чтобы получился измененный результат.
Чтобы не через ctrl+f а чтобы формула была ?

'

' Функция возвращает сумму прописью в долларах
'
Function СуммаПрописьюДоллары(Доллары)
' Вызов функции для получения числа прописью
Число = CStr(Fix(Доллары))
МужскойРод = Истина
СуммаПрописьюДоллары = ЧислоПрописью(Число, МужскойРод)
' Строку с заглавной буквы
СуммаПрописьюДоллары = UCase(Mid(СуммаПрописьюДоллары, 1, 1)) + _
                      Mid(СуммаПрописьюДоллары, 2)
' Вычислить длину исходного числа
Длина = Len(Число)
' Если число только из одной цифры, добавить
' до двух (для единообразия алгоритма)
If Длина = 1 Then
   Число = "0" & Число
   Длина = Длина + 1
End If
' Добавление нужного окончания строки
'
' Для чисел, оканчивающихся на 10, 11, 12, 13,
' 14, 15, 16, 17, 18, 19 добавляем "долларов"
If Mid(Число, Длина - 1, 1) = 1 Then
   СуммаПрописьюДоллары = СуммаПрописьюДоллары + "долларов"
' Для всех остальных случаев
Else
   Select Case Mid(Число, Длина)
' Для чисел, оканчивающихся на 1 добавляем "доллар"
   Case 1
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "доллар"
' Для чисел, оканчивающихся на 2, 3, 4
' добавляем "доллара"
   Case 2, 3, 4
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "доллара"
' Для чисел, оканчивающихся на 5, 6, 7, 8,
' 9, 0 добавляем "долларов"
   Case Else
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "долларов"
   End Select
End If
' Считаем центы
Переменная = (Доллары - Fix(Доллары)) * 100
If (Переменная - Fix(Переменная)) > 0.5 Then
   Переменная = Fix(Переменная) + 1
Else
   Переменная = Fix(Переменная)
End If
Центы = CStr(Переменная)
' Окончательно формируем результат, добавляя центы
If Len(Центы) = 1 Then
   Центы = "0" + Центы
End If
СуммаПрописьюДоллары = СуммаПрописьюДоллары + " " + Центы + " "
' Для чисел, оканчивающихся на 10, 11, 12, 13,
' 14, 15, 16, 17, 18, 19 добавляем "центов"
If Mid(Центы, 1, 1) = 1 Then
   СуммаПрописьюДоллары = СуммаПрописьюДоллары + "центов"
' Для всех остальных случаев
Else
   Select Case Mid(Центы, 2)
' Для чисел, оканчивающихся на 1 добавляем "цент"
   Case 1
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "цент"
' Для чисел, оканчивающихся на 2, 3, 4
' добавляем "цента"
   Case 2, 3, 4
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "цента"
' Для чисел, оканчивающихся на 5, 6, 7, 8,
' 9, 0 добавляем "центов"
   Case Else
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "центов"
   End Select
End If
End Function
'
' Функция возвращает сумму прописью в гривнах
'
Function СуммаПрописьюГривны(Гривны)
' Вызов функции для получения числа прописью
Число = CStr(Fix(Гривны))
МужскойРод = Ложь
СуммаПрописьюГривны = ЧислоПрописью(Число, МужскойРод)
' Строку с заглавной буквы
СуммаПрописьюГривны = UCase(Mid(СуммаПрописьюГривны, 1, 1)) + _
                      Mid(СуммаПрописьюГривны, 2)
' Вычислить длину исходного числа
Длина = Len(Число)
' Если число только из одной цифры, добавить
' до двух (для единообразия алгоритма)
If Длина = 1 Then
   Число = "0" & Число
   Длина = Длина + 1
End If
' Добавление нужного окончания строки
'
' Для чисел, оканчивающихся на 10, 11, 12, 13,
' 14, 15, 16, 17, 18, 19 добавляем "гривен"
If Mid(Число, Длина - 1, 1) = 1 Then
   СуммаПрописьюГривны = СуммаПрописьюГривны + "гривен"
' Для всех остальных случаев
Else
   Select Case Mid(Число, Длина)
' Для чисел, оканчивающихся на 1 добавляем "гривна"
   Case 1
       СуммаПрописьюГривны = СуммаПрописьюГривны + "гривна"
' Для чисел, оканчивающихся на 2, 3, 4
' добавляем "гривны"
   Case 2, 3, 4
       СуммаПрописьюГривны = СуммаПрописьюГривны + "гривны"
' Для чисел, оканчивающихся на 5, 6, 7, 8,
' 9, 0 добавляем "гривен"
   Case Else
       СуммаПрописьюГривны = СуммаПрописьюГривны + "гривен"
   End Select
End If
' Считаем копейки
Переменная = (Гривны - Fix(Гривны)) * 100
If (Переменная - Fix(Переменная)) > 0.5 Then
   Переменная = Fix(Переменная) + 1
Else
   Переменная = Fix(Переменная)
End If
Копейки = CStr(Переменная)
' Окончательно формируем результат, добавляя копейки
If Len(Копейки) = 1 Then
   Копейки = "0" + Копейки
End If
СуммаПрописьюГривны = СуммаПрописьюГривны + " " + Копейки + " "
' Для чисел, оканчивающихся на 10, 11, 12, 13,
' 14, 15, 16, 17, 18, 19 добавляем "копеек"
If Mid(Копейки, 1, 1) = 1 Then
   СуммаПрописьюГривны = СуммаПрописьюГривны + "копеек"
' Для всех остальных случаев
Else
   Select Case Mid(Копейки, 2)
' Для чисел, оканчивающихся на 1 добавляем "копейка"
   Case 1
       СуммаПрописьюГривны = СуммаПрописьюГривны + "копейка"
' Для чисел, оканчивающихся на 2, 3, 4
' добавляем "копеек"
   Case 2, 3, 4
       СуммаПрописьюГривны = СуммаПрописьюГривны + "копейки"
' Для чисел, оканчивающихся на 5, 6, 7, 8,
' 9, 0 добавляем "копеек"
   Case Else
       СуммаПрописьюГривны = СуммаПрописьюГривны + "копеек"
   End Select
End If
End Function
'
' функция возвращает число прописью
'
Function ЧислоПрописью(Число, Optional МужскойРод = Истина)
' Присвоение значений массиву частей
Часть(1) = "оди":       Часть(2) = "два"
Часть(3) = "три":       Часть(4) = "четыр"
Часть(5) = "пят":       Часть(6) = "шест"
Часть(7) = "сем":       Часть( = "восем"
Часть(9) = "девят":     Часть(10) = "н"
Часть(11) = "е":        Часть(12) = "ь"
Часть(13) = "надцать":  Часть(14) = "дцать"
Часть(15) = "сорок":    Часть(16) = "девяно"
Часть(17) = "сто":      Часть(18) = "две"
Часть(19) = "сти":      Часть(20) = "сот"
Часть(21) = "одна":     Часть(22) = "тысяч"
Часть(23) = "а":        Часть(24) = "и"
Часть(25) = "миллион":  Часть(26) = "ов"
Часть(27) = " ":        Часть(28) = "":
Часть(29) = "десят":    Часть(30) = "ста"
Часть(31) = "миллиард": Часть(32) = "ноль "
' Временные переменные вначале сбрасываются
Тысячи = Ложь:      Миллионы = Ложь
Миллиарды = Ложь:   ВторойДесяток = Ложь
' Отбрасываем дробную часть, если она есть
Число = Fix(Число)
' Определяем длину исходного числа
Длина = Len(Число)
' Цикл по всем цифрам числа, начиная с крайней
' левой до крайней правой
For Позиция = Длина To 1 Step -1
' Добавляются очередные слова, описывающие
' текущую цифру
  ЧислоПрописью = ЧислоПрописью + _
                  ЦифраСтрокой(Mid(Число, _
                  Длина - Позиция + 1, 1), _
                  Позиция, МужскойРод)
Next Позиция
' Алгоритм возвращает пустую строку при
' нулевом аргументе. Исправим это
If ЧислоПрописью = "" Then
  ЧислоПрописью = Часть(32)
End If
End Function
'
' Составление слов из частей по очередной
' цифре числа и по предистории работы
'
' Функция доступна только в текущем модуле
'
Private Function ЦифраСтрокой(Цифра, Место, Род) As String
' Если сотни или десятки миллиардов, то
' запомнить об этом для будущего
If (Цифра <> 0) And ((Место = 11) Or _
   (Место = 12)) Then
  Миллиарды = Истина
End If
' Если сотни или десятки миллионов, то
' запомнить об этом для будущего
If (Цифра <> 0) And ((Место = Or _
   (Место = 9)) Then
  Миллионы = Истина
End If
' Если сотни или десятки тысяч, то
' запомнить об этом для будущего
If (Цифра <> 0) And ((Место = 5) Or _
   (Место = 6)) Then
  Тысячи = Истина
End If
' Если предыдущая цифра была единица
' в пеле десятков, то выбираем
If ВторойДесяток Then
  Select Case Цифра
' пишем "десять "
  Case 0
    ЦифраСтрокой = Часть(29) + Часть(12) + _
                   Часть(27)
' пишем "двенадцать "
  Case 2
    ЦифраСтрокой = Часть(18) + Часть(13) + _
                   Часть(27)
' в остальных случаях пишем название цифры
' плюс "надцать "
  Case Else
    ЦифраСтрокой = Часть(Цифра) + Часть(13) + _
                   Часть(27)
  End Select
' Добавляем название разрядов
  Select Case Место
  Case 4
' добавляем "тысяч "
    ЦифраСтрокой = ЦифраСтрокой + Часть(22) + _
                   Часть(27)
' добавляем "миллионов "
  Case 7
    ЦифраСтрокой = ЦифраСтрокой + Часть(25) + _
                   Часть(26) + Часть(27)
' добавляем "миллиардов "
  Case 10
    ЦифраСтрокой = ЦифраСтрокой + Часть(31) + _
                   Часть(26) + Часть(27)
  End Select
' Сбрасываем значения, так как переходим к
' предыдущим разрядам
 ВторойДесяток = Ложь:    Миллионы = Ложь
 Миллиарды = Ложь:        Тысячи = Ложь
' Во всех остальных случаях, то есть
' не для описания чисел второго десятка
Else
' Определяем название десятков
  If (Место = 2) Or (Место = 5) Or _
       (Место = Or (Место = 11) Then
    Select Case Цифра
' Запоминаем про второй десяток для
' подстановки при следующем входе
    Case 1
      ВторойДесяток = Истина
' пишем "двадцать" или "тридцать"
    Case 2, 3
      ЦифраСтрокой = Часть(Цифра) + Часть(14) + _
                     Часть(27)
' пишем "сорок "
    Case 4
      ЦифраСтрокой = Часть(15) + Часть(27)
' пишем "девяносто "
    Case 9
      ЦифраСтрокой = Часть(16) + Часть(17) + _
                     Часть(27)
' в остальных случаях пишем название цифры
' плюс "десят "
    Case 5, 6, 7, 8
      ЦифраСтрокой = Часть(Цифра) + Часть(12) + _
                     Часть(29) + Часть(27)
    End Select
  End If
' Определяем названия сотен
  If (Место = 3) Or (Место = 6) Or _
       (Место = 9) Or (Место = 12) Then
    Select Case Цифра
' пишем "сто "
    Case 1
      ЦифраСтрокой = Часть(17) + Часть(27)
' пишем "двести "
    Case 2
      ЦифраСтрокой = Часть(18) + Часть(19) + _
                     Часть(27)
' пишем "триста "
    Case 3
      ЦифраСтрокой = Часть(3) + Часть(30) + _
                     Часть(27)
' пишем "четыреста "
    Case 4
      ЦифраСтрокой = Часть(4) + Часть(11) + _
                     Часть(30) + Часть(27)
' в остальных случаях пишем название цифры
' плюс "сот "
    Case 5, 6, 7, 8, 9
      ЦифраСтрокой = Часть(Цифра) + Часть(12) + _
                     Часть(20) + Часть(27)
    End Select
  End If
' Определяем названия единиц
  If (Место = 1) Or (Место = 4) Or _
       (Место = 7) Or (Место = 10) Then
    Select Case Цифра
' пишем "один " или "одна "
    Case 1
      If (Род) Then
         ЦифраСтрокой = Часть(1) + Часть(10) + _
                     Часть(27)
      Else
         ЦифраСтрокой = Часть(21) + Часть(27)
      End If
' пишем "два " или "две "
    Case 2
      If (Род) Then
         ЦифраСтрокой = Часть(Цифра) + Часть(27)
      Else
         ЦифраСтрокой = Часть(18) + Часть(27)
      End If
' пишем "три "
    Case 3
      ЦифраСтрокой = Часть(Цифра) + Часть(27)
' пишем "четыре "
    Case 4
      ЦифраСтрокой = Часть(4) + Часть(11) + _
                     Часть(27)
' в остальных случаях пишем название цифры
    Case 5, 6, 7, 8, 9
      ЦифраСтрокой = Часть(Цифра) + Часть(12) + _
                     Часть(27)
    End Select
' Определяем названия тысяч
    If Место = 4 Then
      Select Case Цифра
' пишем "тысяч " только в том случае, если
' хотя бы в одном разряде тысяч есть не нулевое
' значение
      Case 0
        If Тысячи Then
          ЦифраСтрокой = Часть(22) + Часть(27)
        End If
' пишем "одна тысяча "
      Case 1
        ЦифраСтрокой = Часть(21) + Часть(27) + _
               Часть(22) + Часть(23) + Часть(27)
' пишем "две тысячи "
      Case 2
        ЦифраСтрокой = Часть(18) + Часть(27) + _
               Часть(22) + Часть(24) + Часть(27)
' добавляем "тысячи "
      Case 3, 4
        ЦифраСтрокой = ЦифраСтрокой + Часть(22) + _
                       Часть(24) + Часть(27)
' в остальных случаях добавляем "тысяч "
      Case 5, 6, 7, 8, 9
        ЦифраСтрокой = ЦифраСтрокой + Часть(22) + _
                       Часть(27)
      End Select
' Сбрасываем значения тысяч, так как
' переходим к предыдущим разрядам
      Тысячи = Ложь
    End If
' Определяем названия миллионов
    If Место = 7 Then
      Select Case Цифра
' пишем "миллионов " только в том случае,
' если хотя бы в одном разряде миллионов
' есть не нулевое значение
      Case 0
        If Миллионы Then
          ЦифраСтрокой = Часть(25) + Часть(26) + _
                         Часть(27)
        End If
' добавляем "миллион "
      Case 1
        ЦифраСтрокой = ЦифраСтрокой + Часть(25) + _
                       Часть(27)
' добавляем "миллиона "
      Case 2, 3, 4
        ЦифраСтрокой = ЦифраСтрокой + Часть(25) + _
                       Часть(23) + Часть(27)
' добавляем "миллионов "
      Case 5, 6, 7, 8, 9
        ЦифраСтрокой = ЦифраСтрокой + Часть(25) + _
                       Часть(26) + Часть(27)
      End Select
' Сбрасываем значения миллионов, так как
' переходим к предыдущим разрядам
      Миллионы = Ложь
    End If
' Определяем названия миллиардов
    If Место = 10 Then
      Select Case Цифра
' пишем "миллиардов " только в том случае,
' если хотя бы в одном разряде миллиардов
' есть не нулевое значение
      Case 0
        If Миллиарды Then
          ЦифраСтрокой = Часть(31) + Часть(26) + _
                         Часть(27)
        End If
' добавляем "миллиард "
      Case 1
        ЦифраСтрокой = ЦифраСтрокой + Часть(31) + _
                       Часть(27)
' добавляем "миллиарда "
      Case 2, 3, 4
        ЦифраСтрокой = ЦифраСтрокой + Часть(31) + _
                       Часть(23) + Часть(27)
' добавляем "миллиардов "
      Case 5, 6, 7, 8, 9
        ЦифраСтрокой = ЦифраСтрокой + Часть(31) + _
                       Часть(26) + Часть(27)
      End Select
' Сбрасываем значения миллиардов, так как
' переходим к предыдущим разрядам
      Миллиарды = Ложь
    End If
  End If
End If
End Function

Значение ячейки А1 в файле 1  зависит от значения ячейки В2 в файле 2 с помощью такой формулы
(=СУММПРОИЗВ((I18='\\Rezerv\D\Прайс\[Общий прайс.xls]Профнастил'!$B$206:$B$343)*'\\Rezerv\D\Прайс\[Общий прайс.xls]Профнастил'!$L$206:$L$343),
когда  кликнуть 2 раза по ячейке А1 и нажать на Enter оно обновляется на новое значение, а без ручного клацания не могу решить проблему.

Примечание:
Сервис - Параметры - Вычисления - стоит Автоматически (Но все равно не работает).
Может можно включить где то автоматические обновление всех формул на листе. Подскажите, как можно решить данную проблему.

Надо перекинуть большой кусок текста со столбца в строку, киньте пож. формулу. Спасибо

Если курс от заданого уменьшается на 2% или увеличивается на 2% тогда необходимо чтобы появлялась надпись красным "ПОМЕНЯТЬ КУРС"

Sub www()  
ActiveSheet.AutoFilterMode = 0  
Range("d4", [d106].End(xlUp)).AutoFilter 1, "<>0", xlAnd, "<>", 0
End Sub  
 
как диапазон "d4", [d106] привязать к странице Бланк заказа ?

смотрите вложение

смотрите вложение

Выбор по двум критериям - количество палет и вес,    
чего больше такая цена и определяется.  
не могу найти ответа, смотрите вложение

в файле необходимо убрать все ячейки которые пустые и те которые спрятаны через УФ с нулями в столбце количество, (пытался автоформат, записать макрос с условием больше нуля) но не получается, может что педложите какой то другой правильный вариант.    
 
Большое спасибо

Есть необходимость заполнить следующие ячейки в приложении, только функции ПСТР и НАЙТИ что то мне не поддаются.

Проблема в следующем, существуют цены на листе которые указаны в объедененной ячейке, ссылка на обьедененную ячейку дает тотлько первое значание, а все остальное пишет 0,00, как это можно обыграть?

Проблема в том что в исходной таблице мешает первое слово в наименовании, можно ли это как то обойти?

С помощью функции необходимо подставлять Цену в зависимости от двух не известных    
Модель и цвет, проблема у меня заключается в том как сделать ссылку суммпроизв если данные на каждую модель находятся на разных страницах?

Необходимо все наименования брать из листа который выбран в списке, какой функцией это лучше сделать?

у меня это проделано в диапазоне А5:А49,  
а как делал не помню, может кто то подсказать?

Ко мне каждый день приходит новый коммерческий курс на почтовую программу Outlook 2003 от одного и того же получателя, приходится в ручную перебивать его в файле ексель, можно ли как то связать эти две программы чтобы когда приходило новое письмо со словом курс, при открытии документа эксель автоматом обновлялся последний курс  
 
 
простите если глупый вопрос

Необходимо пронумеровать все заполненые ячейки по порядку  
проблема в том что в заданом диапазоне есть ячейки с формулами, а есть просто пустые и после пустых счетчик сбивается

Обыскал весь форум, ничего подходящего не нашел может у кого то есть опыт по такому вопросу:?

Как удалить все повторяющиеся ячейки в определенном диапазоне, например критерий контактные телефоны

Как связать две колонки функцией СУММПРОИЗВ если наименование продукции (первая колонка) на разных страница, а вторая возле неё

На странице размещен раскрыв. список отдельно на каждом листе есть перечень продукции. Необходимо при выборе одного элемента из списка чтобы внизу автоматически заполнялся перечнем с другого листа по этому элементу.  
 
Спасибо всем кто даже прочитал тему

Необходимо прописать через Суммпроизв единицу измерения тоесть текстовый файл с числовым не проблема. Выдает ошибку #знач может кто то подсказать что делать.    
Пример во вложении

Данный макрос расписан на текущую страницу как его изменить чтобы задать другую страницу примером Книга_2?  
 
Sub SendSheet()  
'отправка текущего листа  
   ThisWorkbook.Sheets(1).Copy  
   With ActiveWorkbook  
       .SendMail Recipients:="Romanishin@profmet.com.ua", _  
                 Subject:="Смотрите прикрепленный файл"  
       .Close SaveChanges:=False  
   End With  
End Sub

Есть хитрая таблица в прикрепленном файле    
необходимо чтобы результаты сортировало в отдельном столбце по возрастанию цифр

Какая формула лучше всего подойдет?  
 
Есть ячейка куда вводится определенная длина трубы  
 
Есть наименование товара:  
1) 1 метр  
2) 2.5 метра  
3) 4.0 метра  
 
необходимо вычислить самый оптимальный выбор длины из существующих

Для решения одной проблемы не могу решить простую формулу  
Есть формула "если" которая для меня очень сложная оказалась.  
 
еслиD4=J4 и D5=J7 тогда = 2,2 а если D4=R4 и D5=R8 тогда = 4,3 а если ничего то " "  
 
Пример смотрите вложении