Помогите с листами

[djkon2007]

Всем привет . Вопрос, есть книга со множеством листов возможно сделать кнопку при нажатии на которую каждый лист сохранялся бы в отдельную книгу(файл) с названием этого листа в определенную директорию. Или я много хочу

[viter.alex]

Приблизительно так с диалогом выбора папки для сохранения. Может гуру поправят

Sub SaveSheetsToFiles()
  Dim oSheet As Worksheet, sPath As String
  With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Title = "Куда сохранять?"
    If .Show <> 0 Then
      sPath = .SelectedItems(1) & "\"
    Else: MsgBox "Папка не выбрана.": Exit Sub
    End If
  End With
  Application.DisplayAlerts = False
  For Each oSheet In ThisWorkbook.Sheets
    With oSheet
      .SaveAs sPath & .Name & ".xls"
    End With
  Next
  Application.DisplayAlerts = True
End Sub

[djkon2007]

Спасибо , работает только чтото я неправильно сделл когда создовал макрос, я открываю книгу и нажимая на кнопку выполнения макроса он сохраняет 3 пустые листа книги в которой я его создавал, а как сделать чтобы зайдя в любую книгу сохранялись именно листы этой книги. Не пинайте сильно я чайник в этом деле

[viter.alex]

В макросе ведь написано, что это он работает с той книгой, в которой находится (ThisWorkbook). Замени на ActiveWorkbook, тогда будет сохранять листы из активной книги.

[djkon2007]

Огромное Спасибо

[djkon2007]

но он сохранят столько файлов сколько и листов но там в каждом файле вся книга

[djkon2007]

помогите плиз

[Fintroll]

доброй ночи.
помогите пожалуйста люди добрые:
в книге 1500 листов
первый лист - список людей.
остальные листы - индивидуальные карточки каждого из списка.
скажите пожалуйста как через макрос сделать так чтобы
эксель проверял номер листа и создавал ссылку на ячейку в 1 листе номер которой= номеру столбца.
напр
лист 10
ячейка на 10 листе - А1
значение ячейки=значению ячейки А10 на 1 листе.
и если я копирую сожержимое 10 листа допустим в 14 лист,
надо чтоб эксель автоматически изменял значение ячейки на А14(на 1 листе).
помогите если нетрудно

[EducatedFool]

2 Fintroll

Прикрепите пример файла.
Лучше было создать новую тему.

[Fintroll]

Сообщение от EducatedFool

2 Fintroll

Прикрепите пример файла.
Лучше было создать новую тему.

вот пример файла

Книга2.zip