Foros del Web » Soporte técnico » Ofimática »

Error macro Estructura de Control Select case anidada

Estas en el tema de Error macro Estructura de Control Select case anidada en el foro de Ofimática en Foros del Web. Hola de nuevo, Ya que me anterior mente me ayudaron a resolver el pequeño problema (pero grande para mi ya que soy totalmente nueva en ...
  #1 (permalink)  
Antiguo 05/12/2007, 17:12
Avatar de MOlgaI  
Fecha de Ingreso: diciembre-2007
Mensajes: 9
Antigüedad: 16 años, 5 meses
Puntos: 0
Error macro Estructura de Control Select case anidada

Hola de nuevo,

Ya que me anterior mente me ayudaron a resolver el pequeño problema (pero grande para mi ya que soy totalmente nueva en esto ) me surgió otra duda un poco clara para mi, es simple ahora solo necesito condicionar a tres celdas de mi hoja de calculo según sea el caso, pero no se si sea posible anidar una estructura de control select case en otra, mi código original es el siguiente en le cual solo declaro las variales pero aun no aplico la estructura de control para dos de ellas ya que mi duda es como hacerlo.

GRACIAS DE TODO

MI CODIGO

Sub según_sea()

'declarar variables
Dim Porcentaje As Single
Dim Valor As Integer, resultado As Integer, equivalente As Integer



'asignar valores a la celda

Porcentaje = Range("F8").Value
resultado = Range("F9").Value
equivalente = Range("F10").Value


Select Case Porcentaje


Case 0.5
Valor = 0
resultado = 0
equivalente = 0

Case 0.6
Valor = 580
resultado = 580
equivalente = 580

Case 0.7 <= 0.709
Valor = 790
resultado = 790
equivalente = 790

Case 0.8
Valor = 1030
resultado = 1030
equivalente = 1030

Case 0.9
Valor = 1300
resultado = 1300
equivalente = 1300

Case 1#
Valor = 1600
resultado = 1600
equivalente = 1600

Case 1.1
Valor = 1690
resultado = 1690
equivalente = 1690

Case 1.2
Valor = 1800
resultado = 1800
equivalente = 1800

Case 1.21 <= 1.21
Valor = 1920
resultado = 1920
equivalente = 1920

Case Else

Valor = 0
resultado = 0
equivalente = 0


End Select

'asigna el valor obtenido segun la condicion
Range("G8").Value = Valor

'asigna el valor obtenido segun la condicion
Range("G9").Value = resultado

'asigna el valor obtenido segun la condicion
Range("G10").Value = equivalente



End Sub
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 03:43.