Имеется книга не могу вывести суммированный отчёт по производству по выдам продукции за смену так как начало смены с 08:00:00 а производства работает 24 часа. проблема в том что оборудования формирует отчёт по времени и даты. в 24 часовом производстве у меня за 1 смену выдает 2 даты. Как мне решит проблему, попробовал с помощью макроса не получилось, сводная таблица суммирует по дате не могу суммировать с 8 до 8 часа так как отчёт ежедневно дополняется помогите найти решения

Здравствуйте помогите при решении проблемы с преобразованием ссылки из One Drive https://1drv.ms/x/c/ получается в таком в виде, но хотел получить её в другом формате https://onedrive.live.com/download?resid но никак не получается

Здравствуйте как мне изменить код на ВЭБ версию? хотел использовать файл удаленно но код выдает ошибку так как данные хранятся в другом компьютере а на него нет общего доступа в книге имеется пользовательская форма на ней есть выбор рисунков а рисунки хранятся в папке можно ли изменить пут к папке не через D: а через HTTP или другим методом?

Здравствуйте не могу найти причину ошибки
Private Sub refresh_Click()
   Dim ws As Worksheet
   Dim headersRange As Range
   Dim valuesRange As Range
   Dim headersData As Range
   Dim valuesData As Range
   Dim headerCell As Range
   Dim valueCell As Range
   Dim rowIndex As Long
   Dim columnIndex As Long
   
   ' Set the worksheet and ranges
   Set ws = ThisWorkbook.Worksheets("Calc")
   Set headersRange = ws.Range("H6:N6")
   Set valuesRange = ws.Range("H7:N7")
   
   ' Clear the listbox
   LstSum.Clear
   
   ' Get the headers data
   Set headersData = headersRange.Resize(1, headersRange.Columns.Count)
   
   ' Add headers to the listbox
   columnIndex = 0
   For Each headerCell In headersData
       LstSum.ColumnCount = headersData.Columns.Count
      LstSum.List(0, columnIndex) = headerCell.Value
       columnIndex = columnIndex + 1
   Next headerCell
   
   ' Get the values data
   Set valuesData = valuesRange.Resize(1, valuesRange.Columns.Count)
   
   ' Add values to the listbox
   For rowIndex = 1 To valuesData.Rows.Count
       For columnIndex = 1 To valuesData.Columns.Count
           Set valueCell = valuesData.Cells(rowIndex, columnIndex)
           LstSum.List(rowIndex, columnIndex - 1) = valueCell.Value
           LstSum.List(rowIndex, columnIndex - 1) = Format(valueCell.Value, "#,##0.00")
       Next columnIndex
   Next rowIndex
End Sub
ошибка на красном отмечена

Здравствуйте имеется userForm в нем есть автоматическое фильтр данных в combobox (cmbProducts) при выборе данных из (cmbProducts) нужно отфильтровать в listbox2 данные из листа "Data". Записал код но она дает ошибку в For I=2 так как не могу записать Private Sub UserForm_Initialize() чтобы она работала. помогите с доработкой

Private Sub CmbProducts_Change()
Me.ListBox2.Clear
For i = 2 To Application.WorksheetFunction.CountA(Data.Range("D:D"))
If Data.Cells(i, "H").Value = Me.CmbProducts.Value Then
Me.ListBox2.AddItem Data.Cells(i, "D").Value
End If
Next i
End Sub
Private Sub OptionButton1_Click()
   Call refillingProducts("Ткацкий")
End Sub
Private Sub OptionButton2_Click()
   Call refillingProducts("Трикотаж")
End Sub
Sub refillingProducts(ByVal strClassSelected As String)

   Dim rgcellchecked As Range
   Dim listobjProduct As ListObject
   
   Set listobjProduct = ThisWorkbook.Worksheets("Lists").ListObjects("Product")

   'Сперва очистка Drop-Down-Листа от предыдущих продуктов
   Me.CmbProducts.Clear
   
   'Затем заполнение новыми продуктами
   For Each rgcellchecked In listobjProduct.ListColumns("КОД").DataBodyRange
       If rgcellchecked.Value = strClassSelected Then
           Me.CmbProducts.AddItem Intersect(rgcellchecked.EntireRow, listobjProduct.ListColumns("Наименование").DataBodyRange)
       End If
   Next rgcellchecked
End Sub
Private Sub UserForm_Initialize()

End Sub

Здравствуйте имеется Юзер панель с выбором значений но при выборе значений формат нужен в числовом формате в моём случае оно не пишет в ячейку в числовом формате.

Private Sub grammaj_AfterUpdate()
strstate = Me.grammaj
strstate = Me.ListBox2
End Sub
Private Sub cmdOK_Click()
   Range("кальк!E6") = grammaj
   Range("кальк!E8") = ListBox2
End Sub
Private Sub UserForm_Initialize()
 Dim rng As Range
 For Each rng In Range("Мощность!ac3:ac10")
   Me.grammaj.AddItem rng.Value
   Next rng
 Dim rng2 As Range
 For Each rng2 In Range("Мощностьad3:ad10")
   Me.ListBox2.AddItem rng2.Value
 Next rng2
End Sub

Здравствуйте нужно помощь. Имеется файл с дизайнами (Рисунками) для расчёта стоимости нужно выбрать одного из нескольких дизайнов. Пробовал через элементов управления но не смог при выборе вставить имя выбранного дизайна на определенную ячейку для дальнейшего использования в формулах.
пожалуйста уважаемые знатоки помогите при решении. файл примера прикрепляю.
Спасибо за ранееПример.xlsx (24.62 КБ)

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

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

Добрый день форумчани можно ли с помощи макроса запретить ввод вручную данных в определенных ячейках? Макрос должен сопоставить введенные данные и запретить ввод некорректных данных и показать сообщения в окне что данные не верны или другое текстовое сообщения. Заранее спасибо за поддержку

Здравствуйте дорогие знатоки

Нужна Ваша помощь в записи макроса.

Имеется файл с Дашбордом, нужно скрыть вспомогательные листы (кроме дашборда) при нажатии на фигурку с названием листа нужно выполнить
переход на этот лист и при нажатии формы обратно на  дашборд (отображённом листе) этот вспомогательный
лист должен опять скрывается (стать veryhidden)

Помогите с формулой

Здравствуйте нужно формула по поиску из диапазона и вставки данных из него, то-есть имеется данные по № заказа и № партии, нужно формула для определения какие заказы размещены в одной партии?

Здравствуйте!
Нужно помощь по созданию процесса по заданному критерию. Имеется лист с общими данными из него нужно создать процесс по заданному критерию (формула макрос не имеет значение) при изменении данных в ячейке С5 в лист2 (данные нужно собрать из лист4 или PROTSES) на ячейку D5:D26 (№ процесса) и Е5:Е26 (наименование процесса). В примере использовано только 1 формула но при изменении С5 оно перестанет работать так как она связано только одному коду. Нужно автоматизация процесса
Спасибо

Здравствуйте,
Мне нужно ваша помощ по созданию формулы по автомотическому суммированию данных по несколькими условиями.
есть таблица с данными по отгрузки товара по регионам. Есть еще 2 таблицы которые берут данные из таблицы №1 и нужно формула для автоматического выборк и суммирование данных.

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

Заране спосибо

Люди добрые нужно формула для определении одного значении из определенных столбцов.(см приложение)в одном ячейке имееться код. и в внизу этого кода имееться несколько строк. мне нужно составит сводную информацию.

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

Здравствуйте!  
в прикопленном файле у меня стоит формула, но дело в том что я не могу совершать объедение две формулы на одном ячейке, задача такая.  
в столбце Е3 стоить формула =ЕСЛИ(C3="";"";ЕСЛИ(C3=0;C3-D3;C3-D3)) но рядом в столбце F3 стоить цифра 70. как можно сделать так чтобы формула в столбце Е5 сработала тогда когда столбец F3="" в случае столбец F3>0 формула прекращала свою действию или она заменялось на слово ОК.    
 
Заранее спосибо с уважением Акмаль