Foro Excel

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 pero no es el mismo resultado.

este es el codigo que tengo en estos momentos:

Código: Seleccionar todo

  Case Is = Cells(i + 1, 7).Value = "D5": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "D6": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "K8": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "K6": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "J5": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "D9": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "C5": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
Case Is = Cells(i + 1, 7).Value = "G8": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "G9": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "H2": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "H3": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "H1": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación
    Case Is = Cells(i + 1, 7).Value = "H4": Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " & denominación


como pueden ver, es una condicional de que si encuentra el numero de Cedula (D5, D6, H1, etc...) hace una multiplicacion, lo que es similar es la multiplicacion que realiza (0.75, 0.9)

Agradeceria su ayuda de corazon.

Hola.

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

Código: Seleccionar todo

Select Case InStr("D5D6K8K6J5D9C5G8G9H2H3H1H4", Cells(i + 1, 7).Value)
  Case 1 To 13
    Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.75, "#,##0.00")
    Cells(i + 1, 9).Value = " " & denominación
  Case 15 To 25
    Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.9, "#,##0.00")
    Cells(i + 1, 9).Value = " " & denominación
End Select

Saludos cordiales.