VBA - Макрос копирования данных кнопкой на другой лист в пустую ячейку

[FecherS]

Добрый день.

Читал форум и видел похожие темы , но неразобрался. Помогите пожалуйста.

Суть.
Есть расчётная таблица на листе "AD01" в диапозоне A4:J9 при нажатии на кнопку "Button1_Peredat" (кнопка находится на том же листе "AD01") данные из области ячеек копируются в лист "Заказ-детали" в следующую пустую строку(в столбец 3).

У меня выходит копирование данных в тот же лист... но это не то.

Работаю в Excel 2016 / 2010

Пример моего кода:

Private Sub Button1_Peredat_Click()
     Range("A4:J9").Copy
     Dim NextRow As Long
     With Worksheets("Заказ-детали")
         NextRow = Cells(Rows.Count, 3).End(xlUp).Row + 1            'определение следующей пустой строки
         Range("C" & NextRow).PasteSpecial Paste:=xlPasteValues    'Вставка скопированного
     End With
End Sub

[Hugo121]

With Worksheets("Заказ-детали") никак не используете!
Когда начнёте использовать - возможно получится. Полезно использовать и при определении Rows.Count

[IgorGO]

если на другом листе много пустых ячеек в которую из них копировать?

[FecherS]

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

With Worksheets("Заказ-детали") никак не используете!
Когда начнёте использовать - возможно получится. Полезно использовать и при определении Rows.Count

Смысл я понял, а можете объяснить на моем примере ?? Где я должен использовать, в какое место должен вставить координаты вставки??

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

если на другом листе много пустых ячеек в которую из них копировать?

Вставить нужно в следующую пустую ячейку после занятых третьего столбика на листе "Заказ-детали" (третий столбик, это колонка "С") и я указываю её координаты: Range("C" & NextRow)

[yuresku]

Приложите файл пример

[Aleksandr H.]

With Worksheets("Заказ-детали")
         NextRow = .Cells(.Rows.Count, 3).End(xlUp).Row + 1            'определение следующей пустой строки
         .Range("C" & NextRow).PasteSpecial Paste:=xlPasteValues    'Вставка скопированного
     End With

[FecherS]

Всем спасибо!!
Спасибо, что наталкнули на решение. Пришлось повозится чтобы понять куда вставлять координаты позиционирования.
Вот работающий код :

Private Sub Button1_Peredat_Click()
'  работает копирование данных в след свободную на листе "Заказ-детали"
    Range("A4:J9").Copy
    Dim NextRow As Long
    With Worksheets("Заказ-детали")
        Sheets("Заказ-детали").Select  ' Переносит экран в зону копирования
        NextRow = Sheets("Заказ-детали").Cells(Rows.Count, 3).End(xlUp).Row + 1            'Определение следующей пустой строки
        Sheets("Заказ-детали").Range("C" & NextRow).PasteSpecial Paste:=xlPasteValues      'Вставить диапазон,
    End With

End Sub

Aleksandr H. - спасибо за решение. глядая на ваше решения понял как происходит обращения в VBA. Глубокий Вам поклон.

[Hugo121]

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

глядая на ваше решения понял как происходит обращения в VBA

- что-то не видно.
Я вот потому и не давал точный пример кода, думаю что мой подход должен заставить подумать, самому найти примеры такого обращения, понять... А если нет, то и точный код не поможет...