MAS SOBRE VALORES ÚNICOS....

ESTE PROGRAMA PUEDE AYUDAR A REDUCIR CODIGO CUANDO NECESITAMOS CARGAR EN UN ARRAY LOS VALORES UNICOS DE UNA COLUMNA CON DATOS.

Sub LOADUNICOARRAY()

'COLUMNA "A" CON DATOS REPETIDOS. COPIAMOS LOS UNICOS EN LA "C" Worksheets("HOJA2").Range("A:A").AdvancedFilter _ Action:=xlFilterCopy, CopyToRange:=Worksheets("HOJA2").Range("C1"), Unique:=True

'CARGAMOS EN UN ARRAY LOS UNICOS CUSTNO =Application.Transpose(Sheets("HOJA2").Range("C1:C40").Value)

'PROBAMOS QUE FUNCIONA. For I = 0 To UBound(CUSTNO) Debug.Print CUSTNO(I) Next

End Sub

#VBAEXCEL