Posts by huvanile

Re: Looping through Areas performance issue

hi, have you considered turning off printer communication? my macros tended to run slower when my computer's default printer was set to anything but a "soft" printer (like a .pdf writer or xps writer), but since i started disabling printer communication my macros run quicker regardless of which printer was set to default. i think it has to do with Excel checking with the print driver each time certain code was being executed, but I'm not sure. Regardless, I'm now in the habit of disabling print communication at the start of each macro.

to turn off:

if Val(Application.Version) <= 14 Then Application.PrintCommunication = False

to turn back on:

if Val(Application.Version) <= 14 Then Application.PrintCommunication = True

Re: Help Organising Data

hi arvon, what specifically is your question?

Re: Generate a list of unique values

This worked for me:

'returns an array of unique values within a specified range
Private Function uniqueValues(InputRange As Range)
    Dim cell As Range
    Dim tempList As Variant: tempList = ""
    For Each cell In InputRange
        If cell.Value <> "" Then
            If InStr(1, tempList, cell.Value) = 0 Then
                If tempList = "" Then tempList = Trim(CStr(cell.Value)) Else tempList = tempList & "|" & Trim(CStr(cell.Value))
            End If
        End If
    Next cell
    uniqueValues = Split(tempList, "|")
End Function