Excel error 1004 "Unable to get .... property of WorksheetFunction class"

[Persl]

Good day

I try to get an unique list to use it on dropdown list but the below code give me an error

Sub CopyUniqueValues()
    Dim lastRow As Long
    Dim uniqueValues As Variant
    Dim i As Long
    Sheets("histor").Select
    ' Find the last row in column C of histor
    lastRow = Sheets("histor").Cells(Rows.Count, "k").End(xlUp).Row
    
    ' Get the unique values from column C of Sheet1
    uniqueValues = WorksheetFunction.Unique(Sheets("histor").Range("k1:k100"))
    
    ' Paste the unique values into cell D4 of Sheet2
    For i = 1 To UBound(uniqueValues)
        Sheets("DAILY OPS REPORT8").Range("IB4").Offset(i - 1, 0).Value = uniqueValues(i, 1)
    Next i
End Sub

 

[bebo021999]

Which line was highlighted, in debug code window?
This line of code
For
Sheets("DAILY OPS REPORT8").Range("IB4").Offset(i - 1, 0).Value = ...
Next
this cell value is always last "i" of uniqueValue array , not a list (from 1 to i)

 

[Persl]

uniqueValues = WorksheetFunction.Unique(Sheets("histor").Range("k1:k100"))

this code

 

[Persl]

I try it as below with same issue

    ' Get the unique values from column K of histor
    uniqueValues = WorksheetFunction.Unique(Sheets("histor").Range("K4:K" & lastRow))

 

[bebo021999]

Unique function is in 365, is it array function? (I am not using 365)
I suppose that VBA code does not allow this:
single variant varriable = array function
Using dictionary instead, I guess.

 

[Persl]

Unique function is in 365, is it array function? (I am not using 365)
I suppose that VBA code does not allow this:
single variant varriable = array function
Using dictionary instead, I guess.

Iam using office16 not 365 for time bening

 

[Fluff]

Iam using office16 not 365 for time bening

Then that is why you get an error, as 2016 does not have the Unique function.