Как я могу скопировать запись ячейки в следующую пустую строку в VBA?

Question

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

Это код, который я запускаю, и он возвращает ошибку времени выполнения «1004» Диапазон объекта Global Global fail.

Sub LogPosition()
Dim rngStart As Range
Set rngStart = ActiveCell
Sheets("Charts").Select
ActiveSheet.Range("D5").Select
Selection.Copy
Range("D5" & Rows.Count).End(xlUp).Offset(1, 
0).PasteSpecial xlPasteValues
rngStart.Select
End Sub

Answer 1

Измените свою строку Range("D5" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues на Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues.

Но не нужно ничего выбирать, чтобы получить тот же результат. Эта строка заменит весь ваш код:

Range("D" & Rows.Count).End(xlUp).Offset(1, 0).value = ActiveSheet.Range("D5").value

И следующая строка вставит значение «D5» в другой лист:

Sheets("Charts").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).value = ActiveSheet.Range("D5").value