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

Здравствуйте, прошу помочь. мне нужно скрыть строки которые равны или больше нуля. чтобы числа меньше нуля остались на листе. Может кто то выручить с формулой для vba?

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

марка вот L-AUGER артикул вот 10758 )) вот в скобках  (L-AUGER 10758) марка идет первая, потом артикул. первая в сторону написания текста, но я понял ваше замечание

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

Марка всегда первая к счастью ))

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

 это просто слов нет, ад не то слово   .... огромное спасибо! как вы в этом хаосе не ошиблись??? за сегодня вы дважды помогли мне, очень вам признателен!  

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

смотрю на вашу формулу и прям прошивка подгорает в мозгу в хорошем смысле    как вы все это запоминаете то??  

большое спасибо!  

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

мне необходимо как то реализовать вот такую последовательность:

1) В выпадающем списке ячейки B3 выбираем марку автомобиля.

2) В ячейке D3 выбираем серию и год автомобиля.

3) В ячейке F3 выбираем необходимую группу запчастей

в итоге необходимо чтобы данные со страниц Volvo, DAF, Scania, Man, Renault, Mercedes, Iveco заполняли таблицу наименований, артикула и КА_номера исходя из марки серии и группы которая была выбрана

буду благодарен вашей помощи.    

спасибо за пример, да картофелей может быть больше.. как то я сразу не подумал об этом..  

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

пример таблицы прикрепил

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

2к в 2000
2кк в 20000
2ккк в 200000
350м в 350000000
7,65м в 7650000
(комбинаций много)

пользуюсь вот этим примером VBA

Option Explicit

Function AmDays(r As Range) As Double
Dim aSpl
Dim dSum As Double, k As Double
Dim j As Long
  aSpl = Split(r.Value, " ")
   
  For j = 1 To UBound(aSpl)
      k = 0
       
      Select Case Left$(aSpl(j), 1)
      Case "г": k = 365
      Case "л": k = 365
      Case "н": k = 7
      Case "д": k = 1
      Case "ч": k = 1 / 24
      Case "с": k = 1 / 86400
      Case "м"
          If Left$(aSpl(j), 2) = "ме" Then _
                      k = 30 Else: k = 1 / 1440
      End Select
       
      If k > 0 Then dSum = dSum + aSpl(j - 1) * k
  Next j
   
  AmDays = dSum
End Functio


ссылка на прошлую тему преобразований  

помогли с формулой VBA и очен признателен, вот прос еще, как я могу добавить в нее еще преобразователи

2к в 2000
2кк в 20000
2ккк в 200000
350м в 350000000
7,65м в 7650000
(комбинаций много)

пользуюсь вот этим примером VBA

Option Explicit

Function AmDays(r As Range) As Double
Dim aSpl
Dim dSum As Double, k As Double
Dim j As Long
   aSpl = Split(r.Value, " ")
   
   For j = 1 To UBound(aSpl)
       k = 0
       
       Select Case Left$(aSpl(j), 1)
       Case "г": k = 365
       Case "л": k = 365
       Case "н": k = 7
       Case "д": k = 1
       Case "ч": k = 1 / 24
       Case "с": k = 1 / 86400
       Case "м"
           If Left$(aSpl(j), 2) = "ме" Then _
                       k = 30 Else: k = 1 / 1440
       End Select
       
       If k > 0 Then dSum = dSum + aSpl(j - 1) * k
   Next j
   
   AmDays = dSum
End Function

перезагрузил excel и макрос заработал)), а все же первый пример с 485 недель почему не работает?

не знаю почему но в каждом варианте одна из ячеек не хочет работать. vikttur в вашем примере не работает 12 лет. а в первом примере я ни как не смог 485 недель заставить работать. Вариант с макросом супер! правда как его исправить?

большое спасибо, буду пробовать! ))

нет других идей?

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

необходимо перевести текст типа :

Скрытый текст
пример 1: 1 минута и 40 секунд пример 2: 55 минут пример 3: 4 часа пример 4: 7 часов и 30 минут пример 5: 1 день и 3 часа пример 6: 11 недель и 1 день пример 7: 8лет и 10мес

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