Well, I am having a heck of a time getting this macro to run right. This gets called several times, and I had had issues with the variable and cell references being qualified. I moved this to its own module, made it option explicit, and tried to dim all the variables, and qualify all the references.
Currently, the it is telling me "Object doesnt support this property or method.", and debugs to the copy line.
Currently, the it is telling me "Object doesnt support this property or method.", and debugs to the copy line.
Code:
Option Explicit
Sub Lc()
Dim lastlog As Integer
Dim nums As Integer
Dim numss As Integer
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlBook = ThisWorkbook
Set xlSheet = Sheets("List")
lastlog = UserForm1.ComboBox109.Value 'Log number
nums = 10 * (lastlog) + 10
numss = nums + 8
xlBook.xlSheet.Range("i" & nums, "j" & numss).Copy
xlBook.xlSheet.Range("i3").PasteSpecial xlPasteValues
'Sheets("List").Range(Sheets("List").Cells(nums, "i"), Sheets("List").Cells(numss, "j")).Copy
'Sheets("List").Cells(3, 9).PasteSpecial xlPasteValues
End Sub