Доработать код поиска наименования

@artofnewman · Регистрация: 22.07.2018

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Помогите доработать код для каждого отдельного варианта.
Если в столбце L начиная с L3
1) 0.1x80 L=65 (x,y,L)

если х>100 Участок №1
если у>200 Участок №2

2) 130x185x330 (x,y,z)

если х>100 Участок №1
если у>200 Участок №2
если z>300 Участок №2

Visual Basic

For Each x In Range("L3:L" & Cells(Rows.Count, "L").End(xlUp).Row)
        s = Split(x, "D")
        If UBound(s) > 0 Then x.Offset(, 1) = IIf(Val(Split(s(1), "L")(0)) >= 250, "Участок №1", "Участок №7")
        Next

@Казанский · 08.03.2019, 21:41

artofnewman, и что должно получиться в первом варианте, где x<100 и y<200?
Нужен файл-пример с разными исходными данными и что должно получиться.

@artofnewman · 08.03.2019, 23:23 **[ТС]**

Здравствуйте!
Вот код к файлу.
На листе Виды заготовок огромный список.

Visual Basic

Sub Распределение_Заготовок()
 
For Each x In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        s = Split(x, ChrW(9604))
        If UBound(s) > 0 Then x.Offset(, 1) = IIf(Val(Split(s(1), "L")(0)) >= 200, "№1", "№7") & " участок"
        Next
 
For Each x In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        s = Split(x, "D")
        If UBound(s) > 0 Then x.Offset(, 1) = IIf(Val(Split(s(1), "L")(0)) >= 250, "№1", "№7") & " участок"
        Next
 
End Sub

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	08.03.2019, 21:41	2
	artofnewman, и что должно получиться в первом варианте, где x<100 и y<200? Нужен файл-пример с разными исходными данными и что должно получиться. 0

	08.03.2019, 23:23