Я начал использовать макросы совсем недавно, так что я даже ниже уровня новичка. У меня проблема, с которой я борюсь уже несколько дней ..
здесь I go:
В основном я сделал код для копирования 2 динамических c диапазонов (столбцы B и K, из сводной таблицы на листе «Список FIFO») и вставьте их под последней строкой с данными в лист «FIFO tracker» в столбцы B и C. Я обрабатываю их как 2 операции копирования / вставки в своем коде.
В столбце A листа «FIFO tracker» я хочу добавить дату (только сегодняшнюю дату, я запускаю файл ежедневно) и заполнить эту дату до последней строки с помощью данные, которые я скопировал ранее. К сожалению, эта строка моего кода ничего не делает.
Теперь при запуске макроса 2 диапазона копируются, но вторая операция вставки вставляет данные под последней строкой первой операции вставки. Их следует наклеить рядом друг с другом.
Надеюсь, кто-нибудь может указать мне, в чем мои ошибки? вся помощь очень ценится ...!
Sub Test_FIFO_Tracker()
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim LastRow As Long
Set copySheet = Worksheets("FIFO list")
Set pasteSheet = Worksheets("FIFO tracker")
LastRow = copySheet.Cells(Rows.Count, 2).End(xlUp).Row
'this operation goes well. It copies the portion of the column data of copySheet that I need to be pasted in pasteSheet
copySheet.Range("B12:B" & LastRow).Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, columnOffset:=1).PasteSpecial xlPasteValuesAndNumberFormats
'here it pastes the portion of the column I need from copySheet, but it pastes it underneath the last line of the previous paste operation. it should paste it next to it, not underneath
copySheet.Range("K12:K" & LastRow).Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, columnOffset:=2).PasteSpecial xlPasteValuesAndNumberFormats
'this operation doesn't do anything. Object required error. Here the date of today should be pasted and downfilled until the last row with data of column B or C (these always will have the same amount of data)
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Format(Date, "DD-MM-YYYY").FillDown
End Sub