Вставка данных с заменой.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Вставка данных с заменой. (Макросы/Sub)

Railord

Дата: Четверг, 17.07.2014, 13:25 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день форумчане!

Только начинаю осваивать VBA - сайт кстати здорово в этом помогает. Вопрос будет конечно детский - но сам не догнал((( Надеюсь на помощь...
Что нужно дописать в коде, чтобы после вставки он не выдавал табличку с вопросом:"Хочу ли я заменить содержимое...", а чтобы заменял сразу без таблички? Иными словами каким кодом делать вставку с заменой в вба?
[vba]

Код

If Sheets("Заказы").Range("A4") = "VIP" Then
Sheets("Заказы").Range("A4:D21").Copy
Sheets("SaveBox").Activate
Range("A4").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste

[/vba]

Nil novi sub luna, так что - век живи, век учись!)

Сообщение отредактировал Railord - Четверг, 17.07.2014, 16:07

Ответить

_Boroda_

Дата: Четверг, 17.07.2014, 13:36 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16957

Репутация: 6631 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Перед кодом после Sub вставьте строку[vba]

Код

Application.DisplayAlerts=False

[/vba]
а внизу, перед End Sab [vba]

Код

Application.DisplayAlerts=True

[/vba]
В следующий раз прикладывайте файл с примером

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Railord

Дата: Четверг, 17.07.2014, 15:37 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Сработало. Благодарю.
Ок, в следующий раз будет с файлом.

Я правильно понимаю, что строчка после Sub отключает выскакивающие таблички? А строчка перед End Sub вновь включает их?

И ещё оффтоп, но будет важно в дальнейшем. Как в сообщении на форуме разместить большой код таким образом, чтобы он занимал мало места - с помощью полосы прокрутки, как это сделать?

Nil novi sub luna, так что - век живи, век учись!)

Ответить

Pelena

Дата: Четверг, 17.07.2014, 16:01 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19572

Репутация: 4646 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата Railord, 17.07.2014 в 15:37, в сообщении № 3

большой код таким образом, чтобы он занимал мало места

Для оформления кода используйте теги (кнопка #)
Свой первый пост можете тоже исправить

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Вставка данных с заменой. (Макросы/Sub)

Страница 1 из 1
1