G
Guest
I sometimes get an error with this code. The error says:
"Run-time error '1004':
THe command could not be completed by using the range specified. Select a
single cell within the range and try the command again."
The object is not empty, and it has a valid range. What does this error
mean, and why does it not happen every time?
Code:
Dim typeCol As Integer, typeRng As Range
' Reset these values to fit the correct columns
typeCol = 8
lastRow = Cells(65536, 1).End(xlUp).Row
' Define Ranges
Set typeRng = Range(Cells(2, typeCol), Cells(lastRow, typeCol))
' Create unique list of used types
typeRng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"I2"), Unique:=True
Range("I2").Select
Thanks,
Pflugs
"Run-time error '1004':
THe command could not be completed by using the range specified. Select a
single cell within the range and try the command again."
The object is not empty, and it has a valid range. What does this error
mean, and why does it not happen every time?
Code:
Dim typeCol As Integer, typeRng As Range
' Reset these values to fit the correct columns
typeCol = 8
lastRow = Cells(65536, 1).End(xlUp).Row
' Define Ranges
Set typeRng = Range(Cells(2, typeCol), Cells(lastRow, typeCol))
' Create unique list of used types
typeRng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"I2"), Unique:=True
Range("I2").Select
Thanks,
Pflugs