U GOLDMAN, muchisimas gracias.
:
Me he reido bastante con:
'No hay resultados, despida al programador
Esto por lo que veo funciona perfectamente.
me has refrescado la memoria con:
analisisarray =
Array(2,3,3,3,2,2,2,5,2,5,2)
estaba teniendo problemas con
analisisarray=("2,3,3,3,2,2,2,5,2,5,2")
En la parte:
---------------------------------------------------------------------------
Function AnalizaArreglo(arr)
Dim strUnidades
for j = 0 to uBound(arr)
if j = 0 then
strUnidades = arr(j) & ","
end if
on error resume next
if arr(j) <> arr(j+1) then
strUnidades = strUnidades & arr(j+1) & ","
end if
next
---------------------------------------------------------------------------
¿Podria ser?:
---------------------------------------------------------------------------
Function AnalizaArreglo(arr)
Dim strUnidades
for j = 0 to
uBound(arr)-1 if j = 0 then
strUnidades = arr(j) & ","
else
if arr(j) <> arr(j+1) then
strUnidades = strUnidades & arr(j+1) & ","
end if
end if
next
---------------------------------------------------------------------------
Lo digo por evitar on error resume next.
Aunque seguro que si tu lo tienes puesto asi es por algo que a mi se me escapa.