Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Согласится с предложением заменить данные. Макрос., Как сделать чтобы автоматически отвечал "Ок"."Здесь уже есть данные. Вы хотите заменить их?"
 
#1
23.04.2018 19:01:54
Здравствуйте!
Макрос выполняет подстановку данных в ячейки и каждый раз нужно нажимать Ок. Какую строчку нужно добавить, чтобы всегда автоматически заменял данные?
Да, мне тяжко нажимать Ок)
Изменено: ser987 - 23.04.2018 19:02:49
 
 
 
#2
23.04.2018 19:06:44
Думаю что вторую строчку
 
 
 
#3
23.04.2018 19:07:11
go to L1 или if

а может и напротив нужну удалить MSGBOX
По вопросам из тем форума, личку не читаю.
 
 
 
#4
23.04.2018 19:08:55
skiv17, нее, вторая как правило Dim :-)
По вопросам из тем форума, личку не читаю.
 
 
 
#5
23.04.2018 19:16:53
Код
Cells.Replace What:=" - ", Replacement:="*", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.TextToColumns Destination:=Range("F8758"), DataType:=xlDelimited _
        , TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="*", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("B8764").Select
Вот такой код
 
 
 
#6
23.04.2018 19:19:29
Код
application.displayallerts=false
....
application.displayallerts=true
 
 
 
#7
23.04.2018 19:32:09
Anchoret, сперва не заработало, оказалось одна "L" лишняя. Спасибо!
 
 
 
Страницы: 1
Наверх