Доброго времени суток.
В очередной раз обращаюсь к Вам за помощью.
  Требуется макрос для копирования или сохранения одного из листов активной книги в папку указанную в ячейке B7 под именем указанным в ячейке B6
данный макрос будет привязан к нескольким кнопкам, каждая из которых будет сохранять определенный лист активной книги. ( кнопка1 - лист 1, кнопка2-лист2 и т.д.). На просторах интернета удалось найти и доработать следующий макрос:
 Но с ним возникла проблема, он выполняет поставленную задачу только с литом1 (файл прилагаю). При попытке его изменить и проделать тоже с листом 2 и т.д. - выдает ошибку.
 При переносе макроса в окончательный файл перестает работать даже с листом 1
Подскажите, в чем проблема?
Заранее спасибо

Добрый день.
Требуется Ваша помощь.
Сам далек от VBA поэтому обращаюсь к Вам.
Есть желание оптимизировать процесс печати.
Требуется
1. Макрос "печати" условно на Листе1 "В5" - печатает одну страницу в двух экземплярах с Листа2 в прилагаемом файле лист "ТЛ"
2. Макрос "печати" на листе 1 "В6"- печатает страницы указанные в определенной ячейке "С4" на Листе1  с листа3 в одном экземпляре

Добрый день. Требуется Ваша помощь
имеется офис 360
В работе использую excel. Есть желание оптимизировать некоторые операции. Сам далек от VBA.
Требуется:
1. Автоматический запуск макроса при открытии книги
2. Последовательный переход в определенную ячейку после ввода данных и нажатия "ENTER" (в прилагаемом файле это А1,В2,С3 и обратно к А1)
3. После ввода данных и нажатия "ENTER" в последнюю ячейку курсор возвращается к первой ячейке

Все что смог найти более менее подходящее в сети это (Данный макрос срабатывает только при нажатии alt + enter):
в модуль листа 1
Private Sub Worksheet_Activate()
OnKey "~", "JmpNext"
End Sub

Private Sub Worksheet_Deactivate()
OnKey "~"
End Sub

В модуль книги
Sub JmpNext()
rnges = Array("$A$1", "$B$2", "$C$3")
j = -1
For i = 0 To UBound(rnges)
If rnges(i) = ActiveCell.Address Then
 j = i + 1
 Exit For
End If
Next i
If j > UBound(rnges) Then
j = 0
End If
If j > -1 Then
Range(rnges(j)).Select
Else
a = ActiveCell.Cells.Row
b = ActiveCell.Cells.Column
Cells(a + 1, b).Select
End If
End Sub