Property or method not supported?

[TimmiT]

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.

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

 

[Jonmo1]

Try

xlBook.xlSheet.Range("i" & nums & ":j" & numss).Copy

 

[TimmiT]

xlBook.xlSheet.Range("i" & nums & ":j" & numss).Copy

Gives me the same error.

 

[Norie]

Remove xlBook from here, it's not needed.

xlBook.xlSheet.Range("i" & nums, "j" & numss).Copy 
xlBook.xlSheet.Range("i3").PasteSpecial xlPasteValues

You might also want to change this:

Set xlBook = ThisWorkbook 
Set xlSheet = Sheets("List")

To this:

Set xlBook = ThisWorkbook 
Set xlSheet = xlBook.Sheets("List")

 

[TimmiT]

Thanks Norie. That seems to get things copied, but I get an error on the paste.

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 = xlBook.Sheets("List")
lastlog = UserForm1.ComboBox109.Value 'Log number

nums = 10 * (lastlog) + 10
numss = nums + 8
xlSheet.Range("i" & nums & ":j" & numss).Copy
xlSheet.Range("i3").PasteSpecial xlPasteValues

End Sub

It tells me not enough memory, then says method 'pasetespecial' of object 'range' failed