occupiedwork (Автор тем)

Разнести данные из ячейки по разделителю

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

12.08.2020 09:31:52

Доброго времени суток, Уважаемые друзья!
Есть вопрос на который не могу найти ответ и опять иду к вам.

У меня есть данные на одном листе, в одной из ячеек есть данные через разделитель "/". Пример:
Китай/Россия/Франция
Как можно размножить все данные ниже по листу через vba, чтобы было по одному значению из перечисленного?

Заранее всем благодарен!

Перейти

Массовое удаление дублей в строках

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

31.07.2020 09:39:23

Доброго времени суток.
Уважаемые друзья, очень нужна ваша помощь, не могу ни как решить "простой" вопрос.
Есть список с данными которые получаются при выгрузки через Power Query. (Text.Combine([Количество][Дата],";"))
Схлопываю ячейки, потом вывожу все значения по в строки, вот тут и начинается проблема, это дубли.
Пример: строка1Столбец1=Иван, строка1Столбец2=55, строка1Столбец2=55, строка1Столбец2=55, строка1Столбец2=70 и таких строк может быть сотни две((
Пытался перевернуть, потом просто по столбцам удалять через "удалить дубли", но когда у тебя 800 столбцов, это жесть.
Вчера весь день штудировал форум, но ничего не получилось, все равно на выходе не хватает части значений или наоборот, недаудалены...
Заранее все спасибо кто поможет или просто направит в правильное русло!

Перейти

Вырезать отдельные слова из текста в ячейке

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

16.04.2020 12:48:36

Добрый день!

Друзья,
помогите разобраться и сократить тот ужас который я создал..
Задача заключается в том, что нужно вырезать определенные слова из текста, а именно %, объем и все, что в скобках.
Во вложении пример, зеленым отметил, то, что вышло как нужно, дальше просто беда, не могу сохранить все условия.
Может есть более простой способ.
Заранее всем спасибо!

Перейти

Данные в сводной таблице из строк в столбцы

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

31.03.2020 20:40:01

Добрый день!
Уважаемые друзья, помогите. Есть ли возможность выводить данные в сводной таблице в строки, а не в столбцы.
Значений много, до 40тыс, поэтому в ручную сводить не получается.
Пример во вложении, так же зарисовал:

Перейти

Перенос данных по имени столбца

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

08.11.2019 14:55:29

Добрый день!
Друзья, возник вопрос переноса данных их одного листа на другой.
Есть при проблемы:
1. Есть строки с данными
2. Есть столбы с данными
3. Все перемещается по документу, нет точных значений ячеек.
Во вложении пример, как это выглядит в сокращенном варианте.

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

Код

Перейти

Преобразование ссылки, созданной текстовой сцепкой, в формулу

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

02.09.2019 17:57:21

Добрый день.
Друзья, помогите. Не могу найти ничего похожего и простого.
Задача в том, что нужно задавать отдельно адрес ячейки.
К примеру пишу в ячейке А1 значение В1 и хочу, чтобы потом это значение участвовало в формуле.
Что то пипо СЦЕПИТЬ="Лист1'!&А1 и итоге получить рабочую формулу ="Лист1'!B1
(грубо говоря в ячейке указать адрес другой ячейки)

Перейти

Преобразование текста в правильное число

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

25.07.2019 18:01:25

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

0001822000001385460
0001822000001385464

Преобразовываю в числа, чтобы с ними работать и получаю:

0001822000001385460
0001822000001385460

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

Возможно есть другой способ фильтрования данных такого рода!
Помогите!!!

Перейти

Удаление лишних срок по дате

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

08.07.2019 13:43:45

Добрый день.

Помогите с решением задачи.
Есть список позиций с разными датами заведения.
Нужно удалить все дубли позиций кроме последней по дате.
К примеру две одинаковых позиции ПИВО_1 и ПИВО_1, но дата заведения разная, нужно оставить ПИВО_1 с последней датой, а старые удалить.
Не могу сообразить как проделать данный трюк. ВБА или формулой, неважно.

Перейти

Выделение цветом ячеек с ошибкой в орфографии

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

30.05.2019 13:37:06

Добрый день,
уважаемые господа.
Не смог найти похожую статью. Вопрос очень простой:
Есть файл с товарами и описанием. Нужно выделить цветом ячейки с ошибкой в орфографии описания.
Через Рецензирование → проверка ошибок, не подходит! Нужно именно выделение.
Заранее всем спасибо кто откликнется!

Изменено: occupiedwork - 30.05.2019 13:38:03

Перейти

Формула в одной ячейке по значениям из выделенных

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

23.05.2019 16:13:35

Добрый день.
Уважаемые знатоки. Есть проблема с которой не могу справится.
Задача в то, чтобы в одной ячейке считать кол-во символов по выделенным другим ячейкам.
К примеру ячейка А1 содержит супер формулу, когда выделяешь ячейку А2, то А1=длстр(А2), когда выделяешь А3, то А1=длстр(А3) и т.д.
Нет место для создания лишних столбцов или строк... Может, есть еще решения?

Перейти

Изменить и размножить формулу для форматирования на другие ячейки на других листах

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

25.04.2019 11:35:15

Добрый день.

Уважаемые про! Помогите с простым вопросом, нужно размножить условное форматирование на последующие ячейки. Не могу найти данную тему в поиске.
К примеру у меня 10 ячеек и нужно проверить в каждой длину символов и на пробел в конце, но сделать это на другом листе.
При копировании условного форматирования доллар не помогает, все равно копируется все подряд, как размножить не понятно.
=ДЛСТР(Лист1!B$2)>25 я думаю все из за ссылки на другой лист.
По данной теме не нашел ответа... Без ссылок на другие листы все работает.

Перейти

Массовое форматирование ячеек перебором. Увеличение скорости проверки.

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

12.03.2019 18:11:17

Добрый день.
Друзья, совсем не силен в написании кода.
Делаю проверку большого объема данных простым форматированием через перебор.
Реализовано ниже. Вот с оптимизацией проблемы.

Код

Sub ПроверкаНаПробелы()
'
'УДАЛЕНИЕ
'УДАЛЕНИЕ
'УДАЛЕНИЕ
 
'Удаление удаленных позиций
 
    Dim ra As Range, delra As Range, ТекстДляПоиска As String
    Application.ScreenUpdating = False    ' отключаем обновление экрана
 
    ТекстДляПоиска = "Помечен"    ' удаляем строки с таким текстом
 
    ' перебираем все строки в используемом диапазоне листа
    For Each ra In ActiveSheet.UsedRange.Rows
        ' если в строке найден искомый текст
        If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then
            ' добавляем строку в диапазон для удаления
            If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
    ' если подходящие строки найдены - удаляем их
    If Not delra Is Nothing Then delra.EntireRow.Delete
 
 
 
'ПРОВЕРКИ
'ПРОВЕРКИ
'ПРОВЕРКИ
 
'ПРОВЕРКА НА ПУСТОТУ (пункт три правил)
 
'Первый уровень
Columns("A:A").FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=0"
    Columns("A:A").FormatConditions(Columns("A:A").FormatConditions.Count).SetFirstPriority
    With Columns("A:A").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("A:A").FormatConditions(1).StopIfTrue = False
     
'Второй уровень
 
Columns("B:B").FormatConditions.Add Type:=xlExpression, Formula1:="=$B1=0"
    Columns("B:B").FormatConditions(Columns("B:B").FormatConditions.Count).SetFirstPriority
    With Columns("B:B").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("B:B").FormatConditions(1).StopIfTrue = False
     
'Наименование для печати
 
Columns("K:K").FormatConditions.Add Type:=xlExpression, Formula1:="=$K1=0"
    Columns("K:K").FormatConditions(Columns("K:K").FormatConditions.Count).SetFirstPriority
    With Columns("K:K").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("K:K").FormatConditions(1).StopIfTrue = False
     
'Коссифоикатор аналогов
 
Columns("L:L").FormatConditions.Add Type:=xlExpression, Formula1:="=$L1=0"
    Columns("L:L").FormatConditions(Columns("L:L").FormatConditions.Count).SetFirstPriority
    With Columns("L:L").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("L:L").FormatConditions(1).StopIfTrue = False
     
'Страна происхождения
        
Columns("AD:AD").FormatConditions.Add Type:=xlExpression, Formula1:="=$AD1=0"
    Columns("AD:AD").FormatConditions(Columns("AD:AD").FormatConditions.Count).SetFirstPriority
    With Columns("AD:AD").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("AD:AD").FormatConditions(1).StopIfTrue = False
     
'ВТМ
 
Columns("AE:AE").FormatConditions.Add Type:=xlExpression, Formula1:="=$AE1=0"
    Columns("AE:AE").FormatConditions(Columns("AE:AE").FormatConditions.Count).SetFirstPriority
    With Columns("AE:AE").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("AE:AE").FormatConditions(1).StopIfTrue = False
     
'Производитель
     
Columns("AG:AG").FormatConditions.Add Type:=xlExpression, Formula1:="=$AG1=0"
    Columns("AG:AG").FormatConditions(Columns("AG:AG").FormatConditions.Count).SetFirstPriority
    With Columns("AG:AG").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("AG:AG").FormatConditions(1).StopIfTrue = False
 
'Марка
     
Columns("AH:AH").FormatConditions.Add Type:=xlExpression, Formula1:="=$AH1=0"
    Columns("AH:AH").FormatConditions(Columns("AH:AH").FormatConditions.Count).SetFirstPriority
    With Columns("AH:AH").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("AH:AH").FormatConditions(1).StopIfTrue = False
     
'Вид упаковки
     
Columns("U:U").FormatConditions.Add Type:=xlExpression, Formula1:="=$U1=0"
    Columns("U:U").FormatConditions(Columns("U:U").FormatConditions.Count).SetFirstPriority
    With Columns("U:U").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("U:U").FormatConditions(1).StopIfTrue = False
     
'Темпиратура мин
     
Columns("V:V").FormatConditions.Add Type:=xlExpression, Formula1:="=$V1=0"
    Columns("V:V").FormatConditions(Columns("V:V").FormatConditions.Count).SetFirstPriority
    With Columns("V:V").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("V:V").FormatConditions(1).StopIfTrue = False
     
'Темпиратура макс
     
Columns("W:W").FormatConditions.Add Type:=xlExpression, Formula1:="=$W1=0"
    Columns("W:W").FormatConditions(Columns("W:W").FormatConditions.Count).SetFirstPriority
    With Columns("W:W").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("W:W").FormatConditions(1).StopIfTrue = False
     
'Срок годности
     
Columns("W:W").FormatConditions.Add Type:=xlExpression, Formula1:="=$W1=0"
    Columns("W:W").FormatConditions(Columns("W:W").FormatConditions.Count).SetFirstPriority
    With Columns("W:W").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("W:W").FormatConditions(1).StopIfTrue = False
     
'Срок годности процент остатка
     
Columns("Z:Z").FormatConditions.Add Type:=xlExpression, Formula1:="=$Z1=0"
    Columns("Z:Z").FormatConditions(Columns("Z:Z").FormatConditions.Count).SetFirstPriority
    With Columns("Z:Z").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("Z:Z").FormatConditions(1).StopIfTrue = False
     
 
'ПроверкаНаПробелы Макрос
 
'Двойной пробел
'Рабочее наимнование, наименование для печати, Классификатор аналогов
 
    Columns("J:L").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="  ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
 
'Двойной пробел
'Страна происхождения, ВТМ, Производитель
 
    Columns("AD:AJ").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="  ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
   
'Один пробел
'Артикул
 
    Columns("I:I").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:=" ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
'Один пробел
'Код
    Columns("G:G").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:=" ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
     
     
'Один пробел
'Код БРЛ
    Columns("M:M").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:=" ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
     
'АЛКОГОЛЬ
'АЛКОГОЛЬ
'АЛКОГОЛЬ
 
Dim i As Integer
Dim x As String
Dim x2 As String
Dim x3 As String
Dim x4 As String
Dim x42 As String
Dim x5 As String
For i = 2 To Cells(1, 1).End(xlDown).Row 'проверка со второй строки по последнюю в файле
x = "A" & i
x2 = "K" & i
x4 = """АЛКОГОЛЬ"""
x42 = """ПИВО"""
x5 = """*%*"""
x3 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");СЧЁТЕСЛИ(" & x2 & ";" & x5 & "))"
Application.StatusBar = "Выполнено:" & x3: DoEvents
    Range(x2).FormatConditions.Add Type:=xlExpression, Formula1:=x3
    Range(x2).FormatConditions(Range(x2).FormatConditions.Count).SetFirstPriority
    With Range(x2).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(x2).FormatConditions(1).StopIfTrue = False
 
 
'проверка на пустоту у пива и алкоголя (артикул)
Dim y1 As String
Dim y2 As String
y2 = "I" & i
y1 = "=И(" & x & "=" & x4 & ";ЕПУСТО(" & y2 & "))"
Application.StatusBar = "Выполнено:" & x3: DoEvents
    Range(y2).FormatConditions.Add Type:=xlExpression, Formula1:=y1
    Range(y2).FormatConditions(Range(y2).FormatConditions.Count).SetFirstPriority
    With Range(y2).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y2).FormatConditions(1).StopIfTrue = False
     
'проверка на пустоту у пива и алкоголя (крепость)
Dim y11 As String
Dim y21 As String
y21 = "AR" & i
y11 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y21 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y21).FormatConditions.Add Type:=xlExpression, Formula1:=y11
    Range(y21).FormatConditions(Range(y21).FormatConditions.Count).SetFirstPriority
    With Range(y21).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y21).FormatConditions(1).StopIfTrue = False
     
'проверка на пустоту у пива и алкоголя (вид продукции)
Dim y12 As String
Dim y22 As String
y22 = "AQ" & i
y12 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y22 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y22).FormatConditions.Add Type:=xlExpression, Formula1:=y12
    Range(y22).FormatConditions(Range(y22).FormatConditions.Count).SetFirstPriority
    With Range(y22).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y22).FormatConditions(1).StopIfTrue = False
     
'проверка на пустоту у пива и алкоголя (происхождение)
Dim y13 As String
Dim y23 As String
y23 = "AS" & i
y13 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y23 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y23).FormatConditions.Add Type:=xlExpression, Formula1:=y13
    Range(y23).FormatConditions(Range(y23).FormatConditions.Count).SetFirstPriority
    With Range(y23).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y23).FormatConditions(1).StopIfTrue = False
     
'проверка на пустоту у пива и алкоголя (производитель импортер)
Dim y14 As String
Dim y24 As String
y24 = "AU" & i
y14 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y24 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y24).FormatConditions.Add Type:=xlExpression, Formula1:=y14
    Range(y24).FormatConditions(Range(y24).FormatConditions.Count).SetFirstPriority
    With Range(y24).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y24).FormatConditions(1).StopIfTrue = False
   
'проверка на пустоту у пива и алкоголя (группа финансового учета)
Dim y15 As String
Dim y25 As String
y25 = "AZ" & i
y15 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y25 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y25).FormatConditions.Add Type:=xlExpression, Formula1:=y15
    Range(y25).FormatConditions(Range(y25).FormatConditions.Count).SetFirstPriority
    With Range(y25).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y25).FormatConditions(1).StopIfTrue = False
   
'проверка на пустоту у пива и алкоголя (объем)
Dim y16 As String
Dim y26 As String
y26 = "O" & i
y16 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y26 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y26).FormatConditions.Add Type:=xlExpression, Formula1:=y16
    Range(y26).FormatConditions(Range(y26).FormatConditions.Count).SetFirstPriority
    With Range(y26).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y26).FormatConditions(1).StopIfTrue = False
     
'проверка на пустоту у без алкогольных (объем)
Dim yx16 As String
Dim yx26 As String
yx26 = "O" & i
x444 = """НАПИТКИ БЕЗАЛКОГОЛЬНЫЕ"""
x4442 = """БЕЗАЛКОГОЛЬНОЕ ПИВО"""
yx16 = "=И(ИЛИ(" & x & "=" & x444 & ";" & x & "=" & x4442 & ");ЕПУСТО(" & yx26 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yx26).FormatConditions.Add Type:=xlExpression, Formula1:=yx16
    Range(yx26).FormatConditions(Range(yx26).FormatConditions.Count).SetFirstPriority
    With Range(yx26).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yx26).FormatConditions(1).StopIfTrue = False
      
'проверка на весс нетто заполнен у алкоголя
Dim y17 As String
Dim y27 As String
y27 = "N" & i
y17 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");(" & y27 & ">0))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y27).FormatConditions.Add Type:=xlExpression, Formula1:=y17
    Range(y27).FormatConditions(Range(y27).FormatConditions.Count).SetFirstPriority
    With Range(y27).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y27).FormatConditions(1).StopIfTrue = False
     
'проверка на весс нетто заполнен у не алкоголя
Dim y317 As String
Dim y327 As String
Dim y328(1 To 4) As String
y328(1) = """СИГАРЕТЫ"""
y328(2) = """НОН-ФУД"""
y328(3) = """ПРОДУКТЫ"""
y328(4) = """ТМЦ"""
y327 = "N" & i
y317 = "=И(ИЛИ(" & x & "=" & y328(1) & ";" & x & "=" & y328(2) & ";" & x & "=" & y328(3) & ";" & x & "=" & y328(4) & ");ЕПУСТО(" & y327 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y327).FormatConditions.Add Type:=xlExpression, Formula1:=y317
    Range(y327).FormatConditions(Range(y327).FormatConditions.Count).SetFirstPriority
    With Range(y327).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y327).FormatConditions(1).StopIfTrue = False
 
'проверка рабочего наименования и наименования для печати
Dim y2317 As String
Dim y2327 As String
Dim y2328(1 To 4) As String
y2328(1) = """СИГАРЕТЫ"""
y2328(2) = """НОН-ФУД"""
y2328(3) = """ПРОДУКТЫ"""
y2328(4) = """ТМЦ"""
y2327 = "J" & i
y23271 = "K" & i
y2317 = "=И(ИЛИ(" & x & "=" & y2328(2) & ";" & x & "=" & y2328(3) & ";" & x & "=" & y2328(4) & ");НЕ(СОВПАД(" & y2327 & ";" & y23271 & ")))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y2327).FormatConditions.Add Type:=xlExpression, Formula1:=y2317
    Range(y2327).FormatConditions(Range(y2327).FormatConditions.Count).SetFirstPriority
    With Range(y2327).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y2327).FormatConditions(1).StopIfTrue = False
 
 
'проверка на импорт
Dim y18 As String
Dim y28 As String
Dim y281 As String
Dim y282 As String
y28 = "AD" & i
y282 = "AS" & i
y18 = "=И(ИЛИ(" & x & "=""ПИВО"";" & x & "=""АЛКОГОЛЬ"");" & y28 & "=""РОССИЯ"";" & y282 & "=""ИМПОРТ"")"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y282).FormatConditions.Add Type:=xlExpression, Formula1:=y18
    Range(y282).FormatConditions(Range(y282).FormatConditions.Count).SetFirstPriority
    With Range(y282).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y282).FormatConditions(1).StopIfTrue = False
     
     
'проверка на импорт
Dim y19 As String
Dim y29 As String
Dim y291 As String
Dim y292 As String
y29 = "AD" & i
y292 = "AS" & i
y19 = "=И(ИЛИ(" & x & "=""ПИВО"";" & x & "=""АЛКОГОЛЬ"");" & y29 & "<>""РОССИЯ"";" & y292 & "=""РОССИЯ"")"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y29).FormatConditions.Add Type:=xlExpression, Formula1:=y19
    Range(y29).FormatConditions(Range(y29).FormatConditions.Count).SetFirstPriority
    With Range(y29).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y29).FormatConditions(1).StopIfTrue = False
    
    
'проверка на вид упаковки
Dim y30 As String
Dim y31 As String
y31 = "U" & i
y30 = "=ЕПУСТО(" & y31 & ")"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y31).FormatConditions.Add Type:=xlExpression, Formula1:=y30
    Range(y31).FormatConditions(Range(y31).FormatConditions.Count).SetFirstPriority
    With Range(y31).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y31).FormatConditions(1).StopIfTrue = False
     
     
'СИГАРЕТЫ
'СИГАРЕТЫ
'СИГАРЕТЫ
 
'проверка на весс нетто заполнен у не алкоголя
Dim y417 As String
Dim y427 As String
Dim y428(1 To 4) As String
y428(1) = """СИГАРЕТЫ"""
y427 = "Q" & i
y417 = "=И(" & x & "=(" & y428(1) & ");ЕПУСТО(" & y427 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y427).FormatConditions.Add Type:=xlExpression, Formula1:=y417
    Range(y427).FormatConditions(Range(y427).FormatConditions.Count).SetFirstPriority
    With Range(y427).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y427).FormatConditions(1).StopIfTrue = False
 
'проверка на строчные буквы в сигаретах
Dim y517 As String
Dim y527 As String
Dim y528(1 To 4) As String
y528(1) = """СИГАРЕТЫ"""
y527 = "K" & i
y517 = "=И(" & x & "=(" & y528(1) & ");НЕ(СОВПАД(" & y527 & ";ПРОПИСН(" & y527 & "))))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y527).FormatConditions.Add Type:=xlExpression, Formula1:=y517
    Range(y527).FormatConditions(Range(y527).FormatConditions.Count).SetFirstPriority
    With Range(y527).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y527).FormatConditions(1).StopIfTrue = False
     
'проверка на строчные буквы в сигаретах
Dim y5172 As String
Dim y5272 As String
Dim y5282(1 To 4) As String
y5282(1) = """СИГАРЕТЫ"""
y5272 = "U" & i
y5172 = "=И(" & x & "=(" & y5282(1) & ");НЕ(СОВПАД(" & y5272 & ";(""ПАЧКА""))))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y5272).FormatConditions.Add Type:=xlExpression, Formula1:=y5172
    Range(y5272).FormatConditions(Range(y5272).FormatConditions.Count).SetFirstPriority
    With Range(y5272).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y5272).FormatConditions(1).StopIfTrue = False
     
'Э-ЖИДКОСТИ
'Э-ЖИДКОСТИ
'Э-ЖИДКОСТИ
 
'проверка на ОКПД в ТМЦ
Dim yy As String
Dim y717 As String
Dim y727 As String
Dim y728(1 To 4) As String
yy = "C" & i
y728(1) = """Э-ЖИДКОСТИ"""
y727 = "Q" & i
y717 = "=И(" & yy & "=(" & y728(1) & ");ЕПУСТО(" & y727 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y727).FormatConditions.Add Type:=xlExpression, Formula1:=y717
    Range(y727).FormatConditions(Range(y727).FormatConditions.Count).SetFirstPriority
    With Range(y727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y727).FormatConditions(1).StopIfTrue = False
 
 
'РАЗЛИВНОЕ ПИВО
'РАЗЛИВНОЕ ПИВО
'РАЗЛИВНОЕ ПИВО
 
'проверка на ОКПД в ТМЦ
Dim yyy As String
Dim y817 As String
Dim y827 As String
Dim y828(1 To 4) As String
yyy = "B" & i
y828(1) = """РАЗЛИВНОЕ ПИВО"""
y828(2) = """ЯЙЦА"""
y827 = "BF" & i
y817 = "=И(ИЛИ(" & yyy & "=(" & y828(2) & ");" & yyy & "=(" & y828(1) & "));ЕПУСТО(" & y827 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y827).FormatConditions.Add Type:=xlExpression, Formula1:=y817
    Range(y827).FormatConditions(Range(y827).FormatConditions.Count).SetFirstPriority
    With Range(y827).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y827).FormatConditions(1).StopIfTrue = False
 
 
'НЕ ТМЦ
'НЕ ТМЦ
'НЕ ТМЦ
 
'проверка на нецелочисленные продажи (розница)
Dim y617 As String
Dim y627 As String
Dim y6271 As String
Dim y628(1 To 4) As String
y628(1) = """ТМЦ"""
y627 = "AX" & i
y6271 = "AY" & i
y617 = "=И(" & x & "<>(" & y628(1) & ");ИЛИ(ЕПУСТО(" & y627 & ");ЕПУСТО(" & y6271 & ")))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y627).FormatConditions.Add Type:=xlExpression, Formula1:=y617
    Range(y627).FormatConditions(Range(y627).FormatConditions.Count).SetFirstPriority
    With Range(y627).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y627).FormatConditions(1).StopIfTrue = False
 
'проверка на нецелочисленные продажи (опт)
Dim y2617 As String
Dim y2627 As String
Dim y26271 As String
Dim y2628(1 To 4) As String
y2628(1) = """ТМЦ"""
y2627 = "AX" & i
y26271 = "AY" & i
y2617 = "=И(" & x & "<>(" & y2628(1) & ");ИЛИ(ЕПУСТО(" & y26271 & ");ЕПУСТО(" & y2627 & ")))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y26271).FormatConditions.Add Type:=xlExpression, Formula1:=y2617
    Range(y26271).FormatConditions(Range(y26271).FormatConditions.Count).SetFirstPriority
    With Range(y26271).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y26271).FormatConditions(1).StopIfTrue = False
     
'САХАР
'САХАР
'САХАР
 
'проверка вин
 
Dim yyy2 As String
Dim y2817 As String
Dim y2827 As String
Dim y2828(1 To 4) As String
yyy2 = "B" & i
y2828(1) = """ВИНА, ВИННЫЕ НАПИТКИ"""
y2828(2) = """ИГРИСТЫЕ ВИНА, НАПИТКИ И ШАМПАНСКОЕ"""
y2827 = "AB" & i
y2817 = "=И(ИЛИ(" & yyy2 & "=(" & y2828(2) & ");" & yyy2 & "=(" & y2828(1) & "));ЕПУСТО(" & y2827 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y2827).FormatConditions.Add Type:=xlExpression, Formula1:=y2817
    Range(y2827).FormatConditions(Range(y2827).FormatConditions.Count).SetFirstPriority
    With Range(y2827).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y2827).FormatConditions(1).StopIfTrue = False
 
'проверка у сидора
 
Dim yy3 As String
Dim y22717 As String
Dim y22727 As String
Dim y22728(1 To 4) As String
yy3 = "J" & i
y22728(1) = """Сидор"""
y22727 = "AB" & i
y22717 = "=ЕСЛИОШИБКА(ПОИСК(" & y22728(1) & ";" & yy3 & ");0)>0"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y22727).FormatConditions.Add Type:=xlExpression, Formula1:=y22717
    Range(y22727).FormatConditions(Range(y22727).FormatConditions.Count).SetFirstPriority
    With Range(y22727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y22727).FormatConditions(1).StopIfTrue = False
 
'проверка у вермуты
 
Dim yy4 As String
Dim y322717 As String
Dim y322727 As String
Dim y322728(1 To 4) As String
yy4 = "C" & i
y322728(1) = """ВЕРМУТЫ"""
y322727 = "AB" & i
y322717 = "=И(" & yy4 & "=(" & y322728(1) & ");ЕПУСТО(" & y322727 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y322727).FormatConditions.Add Type:=xlExpression, Formula1:=y322717
    Range(y322727).FormatConditions(Range(y322727).FormatConditions.Count).SetFirstPriority
    With Range(y322727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y322727).FormatConditions(1).StopIfTrue = False
     
'ЦВЕТ
'ЦВЕТ
'ЦВЕТ
 
'проверка у сидора
 
Dim yyx3 As String
Dim yx22717 As String
Dim yx22727 As String
Dim yx22728(1 To 4) As String
yy3 = "J" & i
yx22728(1) = """Сидор"""
yx22727 = "AC" & i
yx22717 = "=ЕСЛИОШИБКА(ПОИСК(" & yx22728(1) & ";" & yyx3 & ");0)>0"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yx22727).FormatConditions.Add Type:=xlExpression, Formula1:=yx22717
    Range(yx22727).FormatConditions(Range(yx22727).FormatConditions.Count).SetFirstPriority
    With Range(yx22727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yx22727).FormatConditions(1).StopIfTrue = False
 
'проверка у вермуты
 
Dim yyx4 As String
Dim yx322717 As String
Dim yx322727 As String
Dim yx322728(1 To 4) As String
yyx4 = "C" & i
yx322728(1) = """ВЕРМУТЫ"""
yx322727 = "AC" & i
yx322717 = "=И(" & yyx4 & "=(" & yx322728(1) & ");ЕПУСТО(" & yx322727 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yx322727).FormatConditions.Add Type:=xlExpression, Formula1:=yx322717
    Range(yx322727).FormatConditions(Range(yx322727).FormatConditions.Count).SetFirstPriority
    With Range(yx322727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yx322727).FormatConditions(1).StopIfTrue = False
 
'проверка ВЕРмутов и рома
 
Dim yyw4 As String
Dim yw322717 As String
Dim yw322727 As String
Dim yw322728(1 To 4) As String
yyw4 = "C" & i
yw322728(1) = """ВЕРМУТЫ"""
yw322728(2) = """РОМ, РОМОВЫЕ НАПИТКИ"""
yw322727 = "AC" & i
yw322717 = "=И(ИЛИ(" & yyw4 & "=(" & yw322728(1) & ");" & yyw4 & "=(" & yw322728(2) & "));ЕПУСТО(" & yw322727 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yw322727).FormatConditions.Add Type:=xlExpression, Formula1:=yw322717
    Range(yw322727).FormatConditions(Range(yw322727).FormatConditions.Count).SetFirstPriority
    With Range(yw322727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yw322727).FormatConditions(1).StopIfTrue = False
     
'проверка ПИВО
 
Dim yyxw4 As String
Dim yxw317 As String
Dim yxw327 As String
Dim yxw328(1 To 4) As String
yyxw4 = "A" & i
yxw328(1) = """ПИВО"""
yxw327 = "AC" & i
yxw317 = "=И(" & yyxw4 & "=(" & yxw328(1) & ");ЕПУСТО(" & yxw327 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yxw327).FormatConditions.Add Type:=xlExpression, Formula1:=yxw317
    Range(yxw327).FormatConditions(Range(yxw327).FormatConditions.Count).SetFirstPriority
    With Range(yxw327).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yxw327).FormatConditions(1).StopIfTrue = False
     
 
   
     
     
'убери руки ирод!
Next i
Application.StatusBar = False
 
End Sub

Перейти

[ Закрыто] Нужна помощь в оптимизации кода

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

12.03.2019 15:40:36

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

Код

Sub ПроверкаНаПробелы()
'
'УДАЛЕНИЕ
'УДАЛЕНИЕ
'УДАЛЕНИЕ

'Удаление удаленных позиций

    Dim ra As Range, delra As Range, ТекстДляПоиска As String
    Application.ScreenUpdating = False    ' отключаем обновление экрана

    ТекстДляПоиска = "Помечен"    ' удаляем строки с таким текстом

    ' перебираем все строки в используемом диапазоне листа
    For Each ra In ActiveSheet.UsedRange.Rows
        ' если в строке найден искомый текст
        If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then
            ' добавляем строку в диапазон для удаления
            If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
    ' если подходящие строки найдены - удаляем их
    If Not delra Is Nothing Then delra.EntireRow.Delete



'ПРОВЕРКИ
'ПРОВЕРКИ
'ПРОВЕРКИ

'ПРОВЕРКА НА ПУСТОТУ (пункт три правил)

'Первый уровень
Columns("A:A").FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=0"
    Columns("A:A").FormatConditions(Columns("A:A").FormatConditions.Count).SetFirstPriority
    With Columns("A:A").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("A:A").FormatConditions(1).StopIfTrue = False
    
'Второй уровень

Columns("B:B").FormatConditions.Add Type:=xlExpression, Formula1:="=$B1=0"
    Columns("B:B").FormatConditions(Columns("B:B").FormatConditions.Count).SetFirstPriority
    With Columns("B:B").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("B:B").FormatConditions(1).StopIfTrue = False
    
'Наименование для печати

Columns("K:K").FormatConditions.Add Type:=xlExpression, Formula1:="=$K1=0"
    Columns("K:K").FormatConditions(Columns("K:K").FormatConditions.Count).SetFirstPriority
    With Columns("K:K").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("K:K").FormatConditions(1).StopIfTrue = False
    
'Коссифоикатор аналогов

Columns("L:L").FormatConditions.Add Type:=xlExpression, Formula1:="=$L1=0"
    Columns("L:L").FormatConditions(Columns("L:L").FormatConditions.Count).SetFirstPriority
    With Columns("L:L").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("L:L").FormatConditions(1).StopIfTrue = False
    
'Страна происхождения
       
Columns("AD:AD").FormatConditions.Add Type:=xlExpression, Formula1:="=$AD1=0"
    Columns("AD:AD").FormatConditions(Columns("AD:AD").FormatConditions.Count).SetFirstPriority
    With Columns("AD:AD").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("AD:AD").FormatConditions(1).StopIfTrue = False
    
'ВТМ

Columns("AE:AE").FormatConditions.Add Type:=xlExpression, Formula1:="=$AE1=0"
    Columns("AE:AE").FormatConditions(Columns("AE:AE").FormatConditions.Count).SetFirstPriority
    With Columns("AE:AE").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("AE:AE").FormatConditions(1).StopIfTrue = False
    
'Производитель
    
Columns("AG:AG").FormatConditions.Add Type:=xlExpression, Formula1:="=$AG1=0"
    Columns("AG:AG").FormatConditions(Columns("AG:AG").FormatConditions.Count).SetFirstPriority
    With Columns("AG:AG").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("AG:AG").FormatConditions(1).StopIfTrue = False

'Марка
    
Columns("AH:AH").FormatConditions.Add Type:=xlExpression, Formula1:="=$AH1=0"
    Columns("AH:AH").FormatConditions(Columns("AH:AH").FormatConditions.Count).SetFirstPriority
    With Columns("AH:AH").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("AH:AH").FormatConditions(1).StopIfTrue = False
    
'Вид упаковки
    
Columns("U:U").FormatConditions.Add Type:=xlExpression, Formula1:="=$U1=0"
    Columns("U:U").FormatConditions(Columns("U:U").FormatConditions.Count).SetFirstPriority
    With Columns("U:U").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("U:U").FormatConditions(1).StopIfTrue = False
    
'Темпиратура мин
    
Columns("V:V").FormatConditions.Add Type:=xlExpression, Formula1:="=$V1=0"
    Columns("V:V").FormatConditions(Columns("V:V").FormatConditions.Count).SetFirstPriority
    With Columns("V:V").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("V:V").FormatConditions(1).StopIfTrue = False
    
'Темпиратура макс
    
Columns("W:W").FormatConditions.Add Type:=xlExpression, Formula1:="=$W1=0"
    Columns("W:W").FormatConditions(Columns("W:W").FormatConditions.Count).SetFirstPriority
    With Columns("W:W").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("W:W").FormatConditions(1).StopIfTrue = False
    
'Срок годности
    
Columns("W:W").FormatConditions.Add Type:=xlExpression, Formula1:="=$W1=0"
    Columns("W:W").FormatConditions(Columns("W:W").FormatConditions.Count).SetFirstPriority
    With Columns("W:W").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("W:W").FormatConditions(1).StopIfTrue = False
    
'Срок годности процент остатка
    
Columns("Z:Z").FormatConditions.Add Type:=xlExpression, Formula1:="=$Z1=0"
    Columns("Z:Z").FormatConditions(Columns("Z:Z").FormatConditions.Count).SetFirstPriority
    With Columns("Z:Z").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Columns("Z:Z").FormatConditions(1).StopIfTrue = False
    

'ПроверкаНаПробелы Макрос

'Двойной пробел
'Рабочее наимнование, наименование для печати, Классификатор аналогов

    Columns("J:L").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="  ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

'Двойной пробел
'Страна происхождения, ВТМ, Производитель

    Columns("AD:AJ").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="  ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
  
'Один пробел
'Артикул

    Columns("I:I").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:=" ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
   
'Один пробел
'Код
    Columns("G:G").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:=" ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
    
'Один пробел
'Код БРЛ
    Columns("M:M").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:=" ", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
'АЛКОГОЛЬ
'АЛКОГОЛЬ
'АЛКОГОЛЬ

Dim i As Integer
Dim x As String
Dim x2 As String
Dim x3 As String
Dim x4 As String
Dim x42 As String
Dim x5 As String
For i = 2 To Cells(1, 1).End(xlDown).Row 'проверка со второй строки по последнюю в файле
x = "A" & i
x2 = "K" & i
x4 = """АЛКОГОЛЬ"""
x42 = """ПИВО"""
x5 = """*%*"""
x3 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");СЧЁТЕСЛИ(" & x2 & ";" & x5 & "))"
Application.StatusBar = "Выполнено:" & x3: DoEvents
    Range(x2).FormatConditions.Add Type:=xlExpression, Formula1:=x3
    Range(x2).FormatConditions(Range(x2).FormatConditions.Count).SetFirstPriority
    With Range(x2).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(x2).FormatConditions(1).StopIfTrue = False


'проверка на пустоту у пива и алкоголя (артикул)
Dim y1 As String
Dim y2 As String
y2 = "I" & i
y1 = "=И(" & x & "=" & x4 & ";ЕПУСТО(" & y2 & "))"
Application.StatusBar = "Выполнено:" & x3: DoEvents
    Range(y2).FormatConditions.Add Type:=xlExpression, Formula1:=y1
    Range(y2).FormatConditions(Range(y2).FormatConditions.Count).SetFirstPriority
    With Range(y2).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y2).FormatConditions(1).StopIfTrue = False
    
'проверка на пустоту у пива и алкоголя (крепость)
Dim y11 As String
Dim y21 As String
y21 = "AR" & i
y11 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y21 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y21).FormatConditions.Add Type:=xlExpression, Formula1:=y11
    Range(y21).FormatConditions(Range(y21).FormatConditions.Count).SetFirstPriority
    With Range(y21).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y21).FormatConditions(1).StopIfTrue = False
    
'проверка на пустоту у пива и алкоголя (вид продукции)
Dim y12 As String
Dim y22 As String
y22 = "AQ" & i
y12 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y22 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y22).FormatConditions.Add Type:=xlExpression, Formula1:=y12
    Range(y22).FormatConditions(Range(y22).FormatConditions.Count).SetFirstPriority
    With Range(y22).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y22).FormatConditions(1).StopIfTrue = False
    
'проверка на пустоту у пива и алкоголя (происхождение)
Dim y13 As String
Dim y23 As String
y23 = "AS" & i
y13 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y23 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y23).FormatConditions.Add Type:=xlExpression, Formula1:=y13
    Range(y23).FormatConditions(Range(y23).FormatConditions.Count).SetFirstPriority
    With Range(y23).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y23).FormatConditions(1).StopIfTrue = False
    
'проверка на пустоту у пива и алкоголя (производитель импортер)
Dim y14 As String
Dim y24 As String
y24 = "AU" & i
y14 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y24 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y24).FormatConditions.Add Type:=xlExpression, Formula1:=y14
    Range(y24).FormatConditions(Range(y24).FormatConditions.Count).SetFirstPriority
    With Range(y24).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y24).FormatConditions(1).StopIfTrue = False
  
'проверка на пустоту у пива и алкоголя (группа финансового учета)
Dim y15 As String
Dim y25 As String
y25 = "AZ" & i
y15 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y25 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y25).FormatConditions.Add Type:=xlExpression, Formula1:=y15
    Range(y25).FormatConditions(Range(y25).FormatConditions.Count).SetFirstPriority
    With Range(y25).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y25).FormatConditions(1).StopIfTrue = False
  
'проверка на пустоту у пива и алкоголя (объем)
Dim y16 As String
Dim y26 As String
y26 = "O" & i
y16 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");ЕПУСТО(" & y26 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y26).FormatConditions.Add Type:=xlExpression, Formula1:=y16
    Range(y26).FormatConditions(Range(y26).FormatConditions.Count).SetFirstPriority
    With Range(y26).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y26).FormatConditions(1).StopIfTrue = False
    
'проверка на пустоту у без алкогольных (объем)
Dim yx16 As String
Dim yx26 As String
yx26 = "O" & i
x444 = """НАПИТКИ БЕЗАЛКОГОЛЬНЫЕ"""
x4442 = """БЕЗАЛКОГОЛЬНОЕ ПИВО"""
yx16 = "=И(ИЛИ(" & x & "=" & x444 & ";" & x & "=" & x4442 & ");ЕПУСТО(" & yx26 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yx26).FormatConditions.Add Type:=xlExpression, Formula1:=yx16
    Range(yx26).FormatConditions(Range(yx26).FormatConditions.Count).SetFirstPriority
    With Range(yx26).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yx26).FormatConditions(1).StopIfTrue = False
     
'проверка на весс нетто заполнен у алкоголя
Dim y17 As String
Dim y27 As String
y27 = "N" & i
y17 = "=И(ИЛИ(" & x & "=" & x4 & ";" & x & "=" & x42 & ");(" & y27 & ">0))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y27).FormatConditions.Add Type:=xlExpression, Formula1:=y17
    Range(y27).FormatConditions(Range(y27).FormatConditions.Count).SetFirstPriority
    With Range(y27).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y27).FormatConditions(1).StopIfTrue = False
    
'проверка на весс нетто заполнен у не алкоголя
Dim y317 As String
Dim y327 As String
Dim y328(1 To 4) As String
y328(1) = """СИГАРЕТЫ"""
y328(2) = """НОН-ФУД"""
y328(3) = """ПРОДУКТЫ"""
y328(4) = """ТМЦ"""
y327 = "N" & i
y317 = "=И(ИЛИ(" & x & "=" & y328(1) & ";" & x & "=" & y328(2) & ";" & x & "=" & y328(3) & ";" & x & "=" & y328(4) & ");ЕПУСТО(" & y327 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y327).FormatConditions.Add Type:=xlExpression, Formula1:=y317
    Range(y327).FormatConditions(Range(y327).FormatConditions.Count).SetFirstPriority
    With Range(y327).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y327).FormatConditions(1).StopIfTrue = False

'проверка рабочего наименования и наименования для печати
Dim y2317 As String
Dim y2327 As String
Dim y2328(1 To 4) As String
y2328(1) = """СИГАРЕТЫ"""
y2328(2) = """НОН-ФУД"""
y2328(3) = """ПРОДУКТЫ"""
y2328(4) = """ТМЦ"""
y2327 = "J" & i
y23271 = "K" & i
y2317 = "=И(ИЛИ(" & x & "=" & y2328(2) & ";" & x & "=" & y2328(3) & ";" & x & "=" & y2328(4) & ");НЕ(СОВПАД(" & y2327 & ";" & y23271 & ")))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y2327).FormatConditions.Add Type:=xlExpression, Formula1:=y2317
    Range(y2327).FormatConditions(Range(y2327).FormatConditions.Count).SetFirstPriority
    With Range(y2327).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y2327).FormatConditions(1).StopIfTrue = False


'проверка на импорт
Dim y18 As String
Dim y28 As String
Dim y281 As String
Dim y282 As String
y28 = "AD" & i
y282 = "AS" & i
y18 = "=И(ИЛИ(" & x & "=""ПИВО"";" & x & "=""АЛКОГОЛЬ"");" & y28 & "=""РОССИЯ"";" & y282 & "=""ИМПОРТ"")"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y282).FormatConditions.Add Type:=xlExpression, Formula1:=y18
    Range(y282).FormatConditions(Range(y282).FormatConditions.Count).SetFirstPriority
    With Range(y282).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y282).FormatConditions(1).StopIfTrue = False
    
    
'проверка на импорт
Dim y19 As String
Dim y29 As String
Dim y291 As String
Dim y292 As String
y29 = "AD" & i
y292 = "AS" & i
y19 = "=И(ИЛИ(" & x & "=""ПИВО"";" & x & "=""АЛКОГОЛЬ"");" & y29 & "<>""РОССИЯ"";" & y292 & "=""РОССИЯ"")"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y29).FormatConditions.Add Type:=xlExpression, Formula1:=y19
    Range(y29).FormatConditions(Range(y29).FormatConditions.Count).SetFirstPriority
    With Range(y29).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y29).FormatConditions(1).StopIfTrue = False
   
   
'проверка на вид упаковки
Dim y30 As String
Dim y31 As String
y31 = "U" & i
y30 = "=ЕПУСТО(" & y31 & ")"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y31).FormatConditions.Add Type:=xlExpression, Formula1:=y30
    Range(y31).FormatConditions(Range(y31).FormatConditions.Count).SetFirstPriority
    With Range(y31).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y31).FormatConditions(1).StopIfTrue = False
    
    
'СИГАРЕТЫ
'СИГАРЕТЫ
'СИГАРЕТЫ

'проверка на весс нетто заполнен у не алкоголя
Dim y417 As String
Dim y427 As String
Dim y428(1 To 4) As String
y428(1) = """СИГАРЕТЫ"""
y427 = "Q" & i
y417 = "=И(" & x & "=(" & y428(1) & ");ЕПУСТО(" & y427 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y427).FormatConditions.Add Type:=xlExpression, Formula1:=y417
    Range(y427).FormatConditions(Range(y427).FormatConditions.Count).SetFirstPriority
    With Range(y427).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y427).FormatConditions(1).StopIfTrue = False

'проверка на строчные буквы в сигаретах
Dim y517 As String
Dim y527 As String
Dim y528(1 To 4) As String
y528(1) = """СИГАРЕТЫ"""
y527 = "K" & i
y517 = "=И(" & x & "=(" & y528(1) & ");НЕ(СОВПАД(" & y527 & ";ПРОПИСН(" & y527 & "))))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y527).FormatConditions.Add Type:=xlExpression, Formula1:=y517
    Range(y527).FormatConditions(Range(y527).FormatConditions.Count).SetFirstPriority
    With Range(y527).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y527).FormatConditions(1).StopIfTrue = False
    
'проверка на строчные буквы в сигаретах
Dim y5172 As String
Dim y5272 As String
Dim y5282(1 To 4) As String
y5282(1) = """СИГАРЕТЫ"""
y5272 = "U" & i
y5172 = "=И(" & x & "=(" & y5282(1) & ");НЕ(СОВПАД(" & y5272 & ";(""ПАЧКА""))))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y5272).FormatConditions.Add Type:=xlExpression, Formula1:=y5172
    Range(y5272).FormatConditions(Range(y5272).FormatConditions.Count).SetFirstPriority
    With Range(y5272).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y5272).FormatConditions(1).StopIfTrue = False
    
'Э-ЖИДКОСТИ
'Э-ЖИДКОСТИ
'Э-ЖИДКОСТИ

'проверка на ОКПД в ТМЦ
Dim yy As String
Dim y717 As String
Dim y727 As String
Dim y728(1 To 4) As String
yy = "C" & i
y728(1) = """Э-ЖИДКОСТИ"""
y727 = "Q" & i
y717 = "=И(" & yy & "=(" & y728(1) & ");ЕПУСТО(" & y727 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y727).FormatConditions.Add Type:=xlExpression, Formula1:=y717
    Range(y727).FormatConditions(Range(y727).FormatConditions.Count).SetFirstPriority
    With Range(y727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y727).FormatConditions(1).StopIfTrue = False


'РАЗЛИВНОЕ ПИВО
'РАЗЛИВНОЕ ПИВО
'РАЗЛИВНОЕ ПИВО

'проверка на ОКПД в ТМЦ
Dim yyy As String
Dim y817 As String
Dim y827 As String
Dim y828(1 To 4) As String
yyy = "B" & i
y828(1) = """РАЗЛИВНОЕ ПИВО"""
y828(2) = """ЯЙЦА"""
y827 = "BF" & i
y817 = "=И(ИЛИ(" & yyy & "=(" & y828(2) & ");" & yyy & "=(" & y828(1) & "));ЕПУСТО(" & y827 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y827).FormatConditions.Add Type:=xlExpression, Formula1:=y817
    Range(y827).FormatConditions(Range(y827).FormatConditions.Count).SetFirstPriority
    With Range(y827).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y827).FormatConditions(1).StopIfTrue = False


'НЕ ТМЦ
'НЕ ТМЦ
'НЕ ТМЦ

'проверка на нецелочисленные продажи (розница)
Dim y617 As String
Dim y627 As String
Dim y6271 As String
Dim y628(1 To 4) As String
y628(1) = """ТМЦ"""
y627 = "AX" & i
y6271 = "AY" & i
y617 = "=И(" & x & "<>(" & y628(1) & ");ИЛИ(ЕПУСТО(" & y627 & ");ЕПУСТО(" & y6271 & ")))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y627).FormatConditions.Add Type:=xlExpression, Formula1:=y617
    Range(y627).FormatConditions(Range(y627).FormatConditions.Count).SetFirstPriority
    With Range(y627).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y627).FormatConditions(1).StopIfTrue = False

'проверка на нецелочисленные продажи (опт)
Dim y2617 As String
Dim y2627 As String
Dim y26271 As String
Dim y2628(1 To 4) As String
y2628(1) = """ТМЦ"""
y2627 = "AX" & i
y26271 = "AY" & i
y2617 = "=И(" & x & "<>(" & y2628(1) & ");ИЛИ(ЕПУСТО(" & y26271 & ");ЕПУСТО(" & y2627 & ")))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y26271).FormatConditions.Add Type:=xlExpression, Formula1:=y2617
    Range(y26271).FormatConditions(Range(y26271).FormatConditions.Count).SetFirstPriority
    With Range(y26271).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y26271).FormatConditions(1).StopIfTrue = False
    
'САХАР
'САХАР
'САХАР

'проверка вин

Dim yyy2 As String
Dim y2817 As String
Dim y2827 As String
Dim y2828(1 To 4) As String
yyy2 = "B" & i
y2828(1) = """ВИНА, ВИННЫЕ НАПИТКИ"""
y2828(2) = """ИГРИСТЫЕ ВИНА, НАПИТКИ И ШАМПАНСКОЕ"""
y2827 = "AB" & i
y2817 = "=И(ИЛИ(" & yyy2 & "=(" & y2828(2) & ");" & yyy2 & "=(" & y2828(1) & "));ЕПУСТО(" & y2827 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y2827).FormatConditions.Add Type:=xlExpression, Formula1:=y2817
    Range(y2827).FormatConditions(Range(y2827).FormatConditions.Count).SetFirstPriority
    With Range(y2827).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y2827).FormatConditions(1).StopIfTrue = False

'проверка у сидора

Dim yy3 As String
Dim y22717 As String
Dim y22727 As String
Dim y22728(1 To 4) As String
yy3 = "J" & i
y22728(1) = """Сидор"""
y22727 = "AB" & i
y22717 = "=ЕСЛИОШИБКА(ПОИСК(" & y22728(1) & ";" & yy3 & ");0)>0"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y22727).FormatConditions.Add Type:=xlExpression, Formula1:=y22717
    Range(y22727).FormatConditions(Range(y22727).FormatConditions.Count).SetFirstPriority
    With Range(y22727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y22727).FormatConditions(1).StopIfTrue = False

'проверка у вермуты

Dim yy4 As String
Dim y322717 As String
Dim y322727 As String
Dim y322728(1 To 4) As String
yy4 = "C" & i
y322728(1) = """ВЕРМУТЫ"""
y322727 = "AB" & i
y322717 = "=И(" & yy4 & "=(" & y322728(1) & ");ЕПУСТО(" & y322727 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(y322727).FormatConditions.Add Type:=xlExpression, Formula1:=y322717
    Range(y322727).FormatConditions(Range(y322727).FormatConditions.Count).SetFirstPriority
    With Range(y322727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(y322727).FormatConditions(1).StopIfTrue = False
    
'ЦВЕТ
'ЦВЕТ
'ЦВЕТ

'проверка у сидора

Dim yyx3 As String
Dim yx22717 As String
Dim yx22727 As String
Dim yx22728(1 To 4) As String
yy3 = "J" & i
yx22728(1) = """Сидор"""
yx22727 = "AC" & i
yx22717 = "=ЕСЛИОШИБКА(ПОИСК(" & yx22728(1) & ";" & yyx3 & ");0)>0"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yx22727).FormatConditions.Add Type:=xlExpression, Formula1:=yx22717
    Range(yx22727).FormatConditions(Range(yx22727).FormatConditions.Count).SetFirstPriority
    With Range(yx22727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yx22727).FormatConditions(1).StopIfTrue = False

'проверка у вермуты

Dim yyx4 As String
Dim yx322717 As String
Dim yx322727 As String
Dim yx322728(1 To 4) As String
yyx4 = "C" & i
yx322728(1) = """ВЕРМУТЫ"""
yx322727 = "AC" & i
yx322717 = "=И(" & yyx4 & "=(" & yx322728(1) & ");ЕПУСТО(" & yx322727 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yx322727).FormatConditions.Add Type:=xlExpression, Formula1:=yx322717
    Range(yx322727).FormatConditions(Range(yx322727).FormatConditions.Count).SetFirstPriority
    With Range(yx322727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yx322727).FormatConditions(1).StopIfTrue = False

'проверка ВЕРмутов и рома

Dim yyw4 As String
Dim yw322717 As String
Dim yw322727 As String
Dim yw322728(1 To 4) As String
yyw4 = "C" & i
yw322728(1) = """ВЕРМУТЫ"""
yw322728(2) = """РОМ, РОМОВЫЕ НАПИТКИ"""
yw322727 = "AC" & i
yw322717 = "=И(ИЛИ(" & yyw4 & "=(" & yw322728(1) & ");" & yyw4 & "=(" & yw322728(2) & "));ЕПУСТО(" & yw322727 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yw322727).FormatConditions.Add Type:=xlExpression, Formula1:=yw322717
    Range(yw322727).FormatConditions(Range(yw322727).FormatConditions.Count).SetFirstPriority
    With Range(yw322727).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yw322727).FormatConditions(1).StopIfTrue = False
    
'проверка ПИВО

Dim yyxw4 As String
Dim yxw317 As String
Dim yxw327 As String
Dim yxw328(1 To 4) As String
yyxw4 = "A" & i
yxw328(1) = """ПИВО"""
yxw327 = "AC" & i
yxw317 = "=И(" & yyxw4 & "=(" & yxw328(1) & ");ЕПУСТО(" & yxw327 & "))"
Application.StatusBar = "Выполнено:" & y3: DoEvents
    Range(yxw327).FormatConditions.Add Type:=xlExpression, Formula1:=yxw317
    Range(yxw327).FormatConditions(Range(yxw327).FormatConditions.Count).SetFirstPriority
    With Range(yxw327).FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13421823
        .TintAndShade = 0
    End With
    Range(yxw327).FormatConditions(1).StopIfTrue = False
    

  
    
    
'убери руки ирод!
Next i
Application.StatusBar = False

End Sub

Перейти

Массовая выгрузка названий по ИНН

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

12.02.2019 13:39:36

Добрый день!
Помогите, не могу найти ничего похожего.

Задача простая, нужно по ИНН подтягивать названия, но массово.
По одной позиции можно на https://egrul.nalog.ru/index.html
В вот массовой выгрузки нигде не нашел, может кто встречал...

Пример:
ИНН: 0276100884 Название: АО "БАШСПИРТ"
И по такому подобию, ничего более не нужно.

Перейти

Перенос строк по условиям на новый лист, Ошибки в файле

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

30.01.2019 11:15:22

Добрый день!

Уважаемые друзья, не получатся решить простую задачу.
Имеется файл с кучей данных, нужно их проверить:
1. Пустые строки
2. Недопустимые символы
И создать новый лист "Ошибки" с строки в которых есть ошибки с кратким описаем ошибки.

Пробовал делать не прибегая в vba, компьютер не выдерживает нагрузки, очень много строк...
Файлик с примером приложил. Заранее всем спасибо!

Перейти

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

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

28.12.2018 17:21:20

Добрый день!

Друзья, нужна помощь в очень сложном вопросе. Задача заключается в следующем:
1. Чтобы в ячейке с выбором была "фантомная подсказка", как будто ячейка заполнена.
К примеру список с выбором стран: Россия, США, Франция и тп. До выбора написано, "выбор из списка"
2. Проверить чтобы если другие ячейки не заполнены, то "выбор из списка" красного цвета.

Например: А2, В2, С2
А1 - товар
В1 - постащик
С1 - строна производства (список с выбором)

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

Перейти

Скрытие ячеек при выборе определенных значений из выпадающего списка

Пользователь

Сообщений: 54 Регистрация: 27.12.2018

27.12.2018 16:45:01

Скрываю ненужные ячейки при выборе определенного значения в выпадающем списке.
Но стокнулся с тем, что Select case не работает на автозапуск, только if.
Сделал вот такой ужас↓ Помогите упростить и добавить еще ячеек до А50.

Помогите упростить:

Код

Sub Макрос1()
Dim x, y As String
x = "П1"
y = "П3"
If Range("A5").Value = x Or _
Range("A6").Value = x Or _
Range("A7").Value = x Or _
Range("A8").Value = x Or _
Range("A9").Value = x Or _
Range("A10").Value = x Or _
Range("A11").Value = x Or _
Range("A12").Value = x Or _
Range("A13").Value = x Or _
Range("A14").Value = x Or _
Range("A15").Value = x Or _
Range("A16").Value = x Or _
Range("A5").Value = y Or _
Range("A6").Value = y Or _
Range("A7").Value = y Or _
Range("A8").Value = y Or _
Range("A9").Value = y Or _
Range("A10").Value = y Or _
Range("A11").Value = y Or _
Range("A12").Value = y Or _
Range("A13").Value = y Or _
Range("A14").Value = y Or _
Range("A15").Value = y Or _
Range("A16").Value = y Then

Columns("B:C").Hidden = False
Else: Columns("B:C").Hidden = True
End If

End Sub

Запускаю макрос:

Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range: Set rng = [A5:A50] If Not Intersect(rng, Target) Is Nothing Then Макрос1 End Sub

Изменено: occupiedwork - 27.12.2018 17:38:32

Перейти

Наверх