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

testuser, Спасибо большое!

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

Sub кнопка()
' кнопка Макрос
   ActiveWindow.SmallScroll Down:=-3
   Range("N4:N35").Select
   Selection.Copy
   ActiveWindow.SmallScroll Down:=-6
   Range("O4").Select
   ActiveSheet.Paste
   Range("R12").Select
   Application.CutCopyMode = False
   ActiveWorkbook.Save
End Sub

Msi2102, Если в этом конкретном случае. В столбце "N" -черный цвет шрифта, есть формулы, которые подтягивают выполненный план за смену. Начиная со столбца "О"-красный цвет шрифта, другие формулы, которые распределяют план по сменам. Нужно, чтобы при нажатии кнопки формула с черным шрифтом  переносилась в соседний столбец. Из N в О, из О в Р и т.д.

Похоже я в черном списке. Уже на вторую просьбу за сутки никто не отвечает  

Добрый день. Прошу помощи! Нужна кнопка (макрос), чтобы можно было при нажатии переместить формулы из одного столбца в другой. Начиная с ячейки N4 Один клик-смещение на один соседний столбец.  

Объединить две формулы

Andr85, Спасибо большое

Добрый день. При заполнении календаря использую формулу с двумя условиями ПОИКПОЗ, но она работает только с первой датой, далее выдает ошибку. Помогите найти причину.

Всем, предложившим варианты, огромная благодарность!!!

Добрый день.Прошу помощи!!! Нужно в массиве в таблице 1 найти артикул из таблицы 2 и подставить значение из Столбца "А" в столбец "G"

Jack Famous, Спасибо большое, работает как нужно.

МатросНаЗебре, Спасибо за макрос, только он убирает запятую и число увеличивается.  

Здравствуйте! Помогите, пожалуйста, макросом убрать нули после запятой. В столбцах C,D,E  попадаются числа с нуля после запятой, которые невозможно преобразовать в числовой формат.  

Msi2102, Варианты просто огонь!!! Спасибо огромное за помощь!!!  

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

 БМВ, МатросНаЗебре - Спасибо Вам огромное за помощь. Все работает!

Добрый день. Прошу помощи в следующем вопросе. С помощью формулы определить приоритеты выполнения заказа, в зависимости от даты ближайшего выполнения. Если даты повторяются, тогда ставить приоритет по номеру заказа . Пример в файле (красным-как должно быть)

,Спасибо большое . Все работает как нужно  

, Спасибо огромное. Только данные нужны уникальные (не должны повторятся одинаковые № заказов)

Добрый день. Помогите, пожалуйста исправить макрос в соответствии с моими таблицами.  Нужно, чтобы в листе"Календарь" начиная с ячейки BU15 при выборе статуса в ячейке BN15 формировались уникальные значения с Листа"Исх_данные". Макрос нашла на форуме, пробовала подстроить под свои данные, но что-то из этого у меня ничего не вышло.

Sub NumberZakaz()
Dim i As Long
Dim n As Long
Dim iLastRow As Long
Dim dic As Object
Dim FoundCell As Range
Dim FAdr As String
With Worksheets("Исх_данные")
    iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
   Set FoundCell = Columns(2).Find("Введите номер заказа:", , xlValues, xlWhole)
    If Not FoundCell Is Nothing Then
      FAdr = FoundCell.Address
     Do
      n = 1
      Set dic = CreateObject("scripting.dictionary"): dic.comparemode = 1
      For i = 2 To iLastRow
       If Not dic.exists(.Cells(i, "A").Value) And .Cells(i, "Q") = FoundCell.Offset(1) Then
         dic.Add .Cells(i, "A").Value, n
         n = n + 1
       End If
      Next
      FoundCell.Offset(2, 1).Resize(dic.Count) = Application.Transpose(dic.keys)

       Set FoundCell = Columns(2).FindNext(FoundCell)
     Loop While FoundCell.Address <> FAdr
    End If
End With
    iLastRow = Cells(Rows.Count, "BN").End(xlUp).Row
  For i = iLastRow To 2 Step -1
     If IsEmpty(Cells(i, "BU")) Then
      Rows(i).Delete
    End If
  Next
End Sub

, Спасибо, формула отличная

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

Добрый день. Помогите, пожалуйста, заполнить таблицу. Из листа "исх. данные" нужно заполнить таблицу в соответствии со значением из  выпадающего списка, который находится в ячейке "М3 "  лист "Производство" .  Пример заполнения в файле: лист "Производство" .Нужно, чтобы  данные из определенных столбцов, которые соответствуют номеру заказа (ячейка М3), были перемещены в лист Производство.

,Спасибо огромнейшее, теперь все ок.  

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

, Вот с образцом (полное заполнение в столбце G)

, спасибо большое за вариант, начало правильное. А можно данные по каждой из выбранной продукции заполнить по колонкам, начиная со столбца G?

Добрый день, я все еще надеюсь на помощь  

Добрый день. Помогите, пожалуйста, исправить ошибку в Условном форматировании или Макросе, чтобы гистограмма работала в процентном формате. В данный момент она работает корректно только в Общем.