Simplificar Codigo Case... End Case.

[kristianoDL]

Hola expertos podrian ayudarme a simplificar el codigo de mi formulario, esta dentro de un boton.
tengo dierentes condicionales, pero con un mismo resultado. podria ayudarme

e intentado con OR y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jfmart]

Hola.

Prueba con este código (siempre es mejorable):

Select Case InStr("D5D6K8K6J5D9C5G8G9H2H3H1H4", Cells(i + 1, 7).Value)
  Case 1 To 13
    Cells(i + 1, 8).Value = "$ " &...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí