Números repetidos

Resultados.ClearContents
Borra los resultado no repetidos pero muestra como repetidos los que estan
dentro de "hojasumar"

Raul,

> Sustituyendo:
>> Set Resultados = Worksheets("HojaSumar").Range("A2:C10000")
>>
>> con:
>>
>> With Worksheets("HojaSumar").UsedRange
>> Set Resultados = .Offset(1, 0).Resize(.Rows.Count - 1)
>> End With
> me da error en:
> Resultados.Resize(k, 3).Sort key1:=Resultados.Cells(1, 2),
> order1:=xlDescending, header:=xlNo

Tienes razon, habria q cambiar mas cosas en el codigo por lo cual q casi es
mejor dejarlo tal cual.

> Por otra parte:
> Resultados.ClearContents
> Borra los resultado no repetidos pero muestra como repetidos los que estan
> dentro de "hojasumar"

No he podido detectar nada parecido a lo q dices. ?Como sabes q lo hace?
?Puedes copiar aqui el codigo final q usas o incluso enviarme tu hoja?

> Otra pregunta fuera de esto:
> Existe algun compilador de libros de excel, para que me genere un .exe y
> lo
> pueda usar una pesona sin necesidad de tener el excel instalado?

Nunca lo he hecho, pero seguramente hay alguna forma. Yo q tu lo posteaba
como un tema aparte.

Saludos,
KL