Добрый день! Прошу помочь вставить в существующий макрос (сделанный Manyasha, за что ей большое спасибо!), макрос для поиска символа "?" (либо при поиске использовать "?0,0", если не получится "голый" знак вопроса "?"(без кавычек)), далее, если этот символ найден, выдать сообщение "допустим_переделывай_отчет" и остановить выполнение остальной части макроса (т.е. макрос поиска должен выполняться первым). Соответственно, если символ не найден, то остальную часть макроса выполнить. Прикладываю исходный макрос и файл отчета, который нужно забраковать макросом.
Добрый день! Прошу помочь вставить в существующий макрос (сделанный Manyasha, за что ей большое спасибо!), макрос для поиска символа "?" (либо при поиске использовать "?0,0", если не получится "голый" знак вопроса "?"(без кавычек)), далее, если этот символ найден, выдать сообщение "допустим_переделывай_отчет" и остановить выполнение остальной части макроса (т.е. макрос поиска должен выполняться первым). Соответственно, если символ не найден, то остальную часть макроса выполнить. Прикладываю исходный макрос и файл отчета, который нужно забраковать макросом.skobelev
Sub csv_to_txt() Dim pathTxt$, temp$, nameTxt$ Dim rarName$, appWinRar$, str$ Dim lr&, lc&, i&, j&
Dim r As Range Set r = ActiveSheet.UsedRange.Find("~?", LookIn:=xlValues, lookat:=xlPart) If Not r Is Nothing Then MsgBox "допустим_переделывай_отчет", 48: Exit Sub
'дальше ваш код '.......
[/vba]
Здравствуйте попробуйте 3 строки добавить: [vba]
Код
Sub csv_to_txt() Dim pathTxt$, temp$, nameTxt$ Dim rarName$, appWinRar$, str$ Dim lr&, lc&, i&, j&
Dim r As Range Set r = ActiveSheet.UsedRange.Find("~?", LookIn:=xlValues, lookat:=xlPart) If Not r Is Nothing Then MsgBox "допустим_переделывай_отчет", 48: Exit Sub
48 - числовое представление константы vbExclamation такой желтый треугольник с восклицательным знаком появляется в окне сообщения MsgBox треульгольник )
48 - числовое представление константы vbExclamation такой желтый треугольник с восклицательным знаком появляется в окне сообщения MsgBox треульгольник )nilem