Erro Subindice Fuera de intervalo.

[cristian_fg]

Estimados colegas...
tengo el siguiente problema:


'ASIGNO UN VALOR
paso5_d2 = Format(paso5_d2, "##,##0.00")

Dim paso5_5_d2() As String

'SEPARO DECIMAL DEL ENTERO

If Val(paso5_d2) - Int(Val(paso5_d2)) <> 0 Then

paso5_5_d2 = Split(paso5_d2, ".")

Else
paso5_5_d2(1) = "0"
End If

hasta aca funciona el tema es que recorro mediante un bucle y si pasa que el primer valor extraído es un entero me da un error de fuera de intervalo, ahora si el el segundo en adelante entero no hay probelma...

Alguien sabe porque ???

Desde ya muchas gracias !!!!!

[erbuson]

Hola, supongo que es porque paso5_5_d2() no está realmente dimensionado al no haberse ejecutado el Split, sin embargo si lo ha hecho en el caso de que el primero sea decimal.

Si quieres continuar con esta rutina, creo que deberias hacer algo así

If Val(paso5_d2) - Int(Val(paso5_d2)) <> 0 Then
paso5_5_d2 = Split(paso5_d2, ".")
Else
paso5_5_d2 = Split(paso5_d2 & ".0", ".")
End If

Aunque tambien funcionaría y sería mas simple utilizar siempre la segunda opcion

paso5_5_d2 = Split(paso5_d2 & ".0", ".") y siempre utilizar los indices 0 y 1

Supongamos el valor 15 harias Split de "15" & ".0" por tanto tienes 0 y 1

Si el valor fuese 15.2 harias Split de "15.2" & ".0" tienes 0, 1, 2 pero utiliza 0 y 1

Espero entiendas la idea.

Saludos