Страницы: 1
RSS
[ Закрыто ] Задача - Макрос, Привязать код к изменению ячейки на конкретном листе
 
Уважаемые товарищи! Все что смог с помощью интернета написать этот 1 макрос-ОН в центральной части колонтитула Excel, вставляет надпись"Заключение №1000"(с ячейки "J11") при открытии файла, как и положено этим макросом, ПРОБЛЕМА в том что это происходит при открытии любого листа, а нужно именно в Листе "ЛИСТ 3" и я пытаюсь сделать так что бы он активировался, когда я в J11 меняю число-например с 1000 на 1001, мгновенно, для этого я написал следующий код, который не сработал, в чем ошибки что сделать, что бы преобразить 1 макрос в макрос, который будет активироваться в Листе 3 и при этом при изменении ячейки J11, запись которой и должна отражаться в колонтитуле.  Заранее спасибо спецам !
1 макрос

Private Sub Workbook_Open()
' Put your code here
With ActiveSheet.PageSetup
.CenterFooter = "&""Times New Roman,жирный""&8Заключение" & [J11]
End With
End Sub

2 макрос

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "ЛИСТ 3" And Target.Address = "$J$11" Then
MsgBox ".CenterFooter = "&""Times New Roman,жирный""&8Заключение" & [J11]"
End If
End Sub
 
у вас название темы не отражает суть- Закроют.
 
Задачи - в ветку платных заказов
Страницы: 1
Наверх