Copying multiple specific cells to specific ranges in new workbook

Обновить

April 2019

Просмотры

35 раз

1

Я обычно не просят о помощи, но я хотел бы разобраться в этом, и это сводит меня с ума.

У меня есть книги Excel с 2 листами (Лист1 и Лист2). Данные в Лист1, что мне нужно.

В Лист1 У меня есть несколько столбцов и строк с разными данными; Мне нужно создать макрос, который позволяет копировать certains клетки (все из одной строки, хотя) в новую книгу на основе модели (давайте назовем его «model.xlst»), но в некоторых клетках.

а именно: мне нужно скопировать из строки 5, значения из ячеек, соответствующих A5, C5 и H5. Затем мне нужно вставить эти данные в новую книгу. Скажем, например:

  • A5 из Лист1 переходит в В3 в новом учебном пособии
  • C5 из Лист1 переходит в F8 в новом учебном пособии
  • H5 из Лист1 переходит в H6 в новом учебном пособии

Кроме того, я должен был бы повторить этот процесс для других строк, так что я бы включить диалоговое окно для выбора ячейки, я хочу, чтобы начать с. (Это мне удалось, по крайней мере!)

Я пробовал много сценариев для достижения этого процесса, но я не получаю до точки здесь. Если кто-нибудь может дать мне старт я ценю вашу помощь.

Спасибо,

Giacomo


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

Sub CopyToLog()
Dim SlctRange As Range, CopyRange As Range
Dim strTemplate As String: strTemplate = "MODELLO_LOGSHEET.xlsx"
Dim wb As Workbook
xTitleId = "SlctRange"
Set SlctRange = Application.Selection
Set SlctRange = Application.InputBox("Range to be selected :", xTitleId, SlctRange.Address, Type:=8)
Set wb = Workbooks.Add(strTemplate)
Set NewBook = Workbooks.Add    

0 ответы