пробовал с этим методом она работает с выгрузкой из других книг через вкладку данные и получить из интернета. а мне нужно использовать это на VBA. В предложенном варианте VBA не может найти книгу.

в вкладке "Формулы" нажмите "Диспетчер имен" и вставьте =ВЫЧИСЛИТЬ(ПОДСТАВИТЬ(Лист2!A1;"/";"+")) в строку формул а имя формулы задайте по желанию

Здравствуйте как мне изменить код на ВЭБ версию? хотел использовать файл удаленно но код выдает ошибку так как данные хранятся в другом компьютере а на него нет общего доступа в книге имеется пользовательская форма на ней есть выбор рисунков а рисунки хранятся в папке можно ли изменить пут к папке не через 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
ошибка на красном отмечена

Добрый день решил вопрос по другому
Private Sub cmbproducts_Change()
   
   cmbwidth.Clear
   cmbgr.Clear
   
   
   Dim selectedProduct As String
   selectedProduct = CmbProducts.Value
   

   Dim uniqueWidths As Object
   Set uniqueWidths = CreateObject("Scripting.Dictionary")
   
   Dim uniqueWeights As Object
   Set uniqueWeights = CreateObject("Scripting.Dictionary")
   
 
   Dim dataSheet As Worksheet
   Set dataSheet = ThisWorkbook.Sheets("Data")
   
   Dim lastRow As Long
   lastRow = dataSheet.Cells(dataSheet.Rows.Count, "E").End(xlUp).Row
   
   Dim widthRange As Range
   Set widthRange = dataSheet.Range("E2:I" & lastRow)
   
   Dim widthCell As Range
   For Each widthCell In widthRange
       If widthCell.Offset(0, -4).Value = selectedProduct Then
           If Not uniqueWidths.exists(widthCell.Value) Then
               uniqueWidths.Add widthCell.Value, widthCell.Value
               cmbwidth.AddItem widthCell.Value
           End If
       End If
   Next widthCell
   
   Dim weightRange As Range
   Set weightRange = dataSheet.Range("E2:I" & lastRow)
   
   Dim weightCell As Range
   For Each weightCell In weightRange
       If weightCell.Offset(0, -3).Value = selectedProduct Then
           If Not uniqueWeights.exists(weightCell.Value) Then
               uniqueWeights.Add weightCell.Value, weightCell.Value
               cmbgr.AddItem weightCell.Value
           End If
       End If
   Next weightCell
End Sub

Sheets("Data").Cells(Sheets("Data").Rows.Count, "D").End(xlUp).Row
Отображает все содержимые данные из ячеек но там имеются повторяющиеся значении, было бы красиво если при отображении данных в Listbox2 показались только уникальные данные

можно ли отфильтровать уникальные значения в Sheets("Data").Cells(Sheets("Data").Rows.Count, "D").End(xlUp).Row
?

Спасибо огромное за помощь

Private Sub ComboBox1_Change()
Me.ListBox1.Clear
For i = 2 To Application.WorksheetFunction.CountA(Лист1.Range("A:A"))
If Лист1.Cells(i, "B").Value = Me.ComboBox1.Value Then
Me.ListBox1.AddItem Лист1.Cells(i, "A").Value
End If
Next i
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array("Meva", "Ichimlik", "Poliz")
End Sub

здесь она работает и филтрует в listbox данные из combobox

Здравствуйте имеется 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 после перехода в другой лист нужно скрыть ее.

Огромное спасибо всем но мне нужен макрос через проверку данных её можно изменить но макрос можно с паролем запретить

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

Огромное Спасибо

Добрый день Msi2102 Спасибо за отклик и помощь, сможете ответить как мне включить в макрос другие листы в закрепленном вами примере макрос работает только 1м листом а как добавить другие?

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

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

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

Спасибо огромное работает правильно

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

=ИНДЕКС(B2:B5;ПОСЛЕД(СЧЁТЕСЛИ(C2:C5;B10))) заработало спасибо огромное

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

Огромное спасибо заработало формула Суперр

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