Проблема с макросом - Microsoft Office Excel

Artem_85 · 27.02.2012, 10:42

Подскажите пожалуйста почему не работает макрос

Sub Кнопка1_Щелчок()
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("536.xls").Close SaveChanges:=True
End Sub

VictorM · 27.02.2012, 11:04

Так Вы определитесь, что Вам нужно или

Код:

Sub Кнопка1_Щелчок()
Workbooks("536.xls").Close SaveChanges:=True
End Sub

В модуле кода или модуле листа
или же

Код:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("536.xls").Close SaveChanges:=True
End Sub

в модуле "Эта книга"

The_Prist · 27.02.2012, 11:04

Потому что Вы не соблюдаете синтаксис. И VBA 100% выдает Вам ошибку перед выполнением, в которой пишет "Expected End Sub"

Код:

Sub Кнопка1_Щелчок()
 Workbooks("536.xls").Close SaveChanges:=True
End Sub

Вы что хотите с помощью кода сделать?

Artem_85 · 27.02.2012, 11:12

Спасибо
хочу закрывать нужные мне файлы

VictorM · 27.02.2012, 11:25

Цитата:

хочу закрывать нужные мне файлы

В таком случае Вам нужен код

Код:

Sub Кнопка1_Щелчок()
Workbooks("536.xls").Close SaveChanges:=True
End Sub

Конструкция

Код:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' еще может быть код 
Workbooks("536.xls").Close SaveChanges:=True
End Sub

Выполняет определенные действия в процессе закрывания книги/перед тем как закрыться.
И располагается ОБЯЗАТЕЛЬНО в модуле Эта книга.

Artem_85 · 27.02.2012, 11:59

Спасибо.
А можно ли прописать какое то условие в следующем случае:
В столбце A список торговых точек, в название точек есть обозначение РЦ(это склад) и есть пометка что +6(значит есть еще 6 торговых точек).
"ТВ(РЦ)+6" можно ли что бы в строках где есть РЦ + все числовые значения сумировались?

27.02.2012, 10:42	#1
Artem_85 Пользователь Регистрация: 21.02.2012 Сообщений: 82	Проблема с макросом Подскажите пожалуйста почему не работает макрос Sub Кнопка1_Щелчок() Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("536.xls").Close SaveChanges:=True End Sub

27.02.2012, 11:04	#2
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Так Вы определитесь, что Вам нужно или Код: `Sub Кнопка1_Щелчок() Workbooks("536.xls").Close SaveChanges:=True End Sub` В модуле кода или модуле листа или же Код: `Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("536.xls").Close SaveChanges:=True End Sub` в модуле "Эта книга" "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

27.02.2012, 11:04	#3
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Потому что Вы не соблюдаете синтаксис. И VBA 100% выдает Вам ошибку перед выполнением, в которой пишет "Expected End Sub" Код: `Sub Кнопка1_Щелчок() Workbooks("536.xls").Close SaveChanges:=True End Sub` Вы что хотите с помощью кода сделать? WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблема с макросом Excel	Excelik	Помощь студентам	0	02.11.2011 11:55
Проблема с макросом в Excel	ZHDN	Microsoft Office Excel	12	05.08.2011 13:32
копирование макросом	kursant95	Microsoft Office Excel	0	28.01.2011 15:12
открытие нескольких книг одним макросом и закрытие книг другим макросом	kursant95	Microsoft Office Excel	6	27.01.2011 16:54
Проблема с макросом.	kolob	Microsoft Office Excel	3	22.12.2010 11:13

27.02.2012, 11:12	#4
Artem_85 Пользователь Регистрация: 21.02.2012 Сообщений: 82	Спасибо хочу закрывать нужные мне файлы

27.02.2012, 11:59	#6
Artem_85 Пользователь Регистрация: 21.02.2012 Сообщений: 82	Спасибо. А можно ли прописать какое то условие в следующем случае: В столбце A список торговых точек, в название точек есть обозначение РЦ(это склад) и есть пометка что +6(значит есть еще 6 торговых точек). "ТВ(РЦ)+6" можно ли что бы в строках где есть РЦ + все числовые значения сумировались?