Excel копирование на несколько листов - PullRequest
0 голосов
/ 23 января 2020

У меня есть главный рабочий лист и несколько дубликатов (в основном они имеют одинаковый макет, но разные даты для каждого листа) Я пытаюсь разрешить пользователю вводить что-то на мастер, а затем открыть поле ввода и позволить пользователю выберите несколько листов (вкладок) и скопируйте эти данные на выбранные вкладки.

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

Dim rng As Range
Dim tabs As Range

Sheets("MONTH").Select

Set rng = Application.InputBox(Prompt:="Select the cell(s) to copy", Type:=8)

Range(rng.Address).Select
Selection.Copy

Set tabs = Application.InputBox(Prompt:="Select the Tabs to copy", Type:=8)

For Each tabs In ActiveWindow.SelectedSheets
     MsgBox tabs.Name
Next tabs

'Sheets("d31").Activate
Worksheets(tabs).Select

Range(rng.Address).Select
ActiveSheet.Paste

Application.CutCopyMode = False
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...