Visual Basic para Aplicaciones - Ayuda con Condicionales en Excel

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con Condicionales en Excel

Publicado por Javier (2 intervenciones) el 09/09/2015 07:49:31
Estoy desarrollando un codigo para estructuras, el tema de concretos reforzados a refuerzos minimo

El codigo consiste en Tengo una celda de forma listado en la celda Cells(24, 4) tengo una pestana en la cual puedo escoger varias opciones de unidades a evaluar

es decir digamos que voy a insertar en la siguiente columna Cells(24, 5) un valor cualquier pero entonces en Cells(24, 4) coloco las unidades con las que trabajara esa celda

Grafico
ZVlH6xd
Grafico 1. Formato de celdas para elaborar lo anterior dicho

Entonce el codigo del condicional lo tengo de esta manera

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub BotonCalcular_Click()
 
Dim phi_s As Integer
phi_s = Cells(34, 4) 'Factor de modificacion para la long desarrollo
If Cells(24, 3) = "Db(in)" And Cells(24, 4) >= 0.875 Then
phi_s = 1
ElseIf Cells(24, 3) = "Db(in)" And Cells(24, 4) < 0.875 Then
phi_s = 0.8
ElseIf Cells(24, 3) = "Db(cm)" And Cells(24, 4) >= 2.223 Then
phi_s = 1
ElseIf Cells(24, 3) = "Db(cm)" And Cells(24, 4) < 2.223 Then
phi_s = 0.8
ElseIf Cells(24, 3) = "Db(mm)" And Cells(24, 4) >= "22,23" Then
phi_s = 1
ElseIf Cells(24, 3) = "Db(mm)" And Cells(24, 4) < "22,23" Then
phi_s = 0.8
Else
Cells(34, 4) = phi_s
End If
Cells(34, 4) = phi_s
End Sub

El resultado al darle clic al boton de todas la maneras colocando numero grandes en mi Db siempre me vota el mismo resultado en Phi_s osea el valor 1 pero no se que pasa que no me colcoa el 0,8 si cumple la otra condicion

Ayuda por favor de antemano que sera el error del condicional. o si hay otras maneras de nombrar condicional entre condicionales.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 12
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Ayuda con Condicionales en Excel

Publicado por GMG (12 intervenciones) el 09/09/2015 12:15:25
Hola Javier;

Sin entrar en los condicionales, creo que el problema lo tienes al declarar la variable como Integer.

Prueba a cambiar la instrucción:
Dim phi_s As Integer

por
Dim phi_s As Double

Luego ya comprueba si los condicionales son correctos.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con Condicionales en Excel

Publicado por Javi (2 intervenciones) el 09/09/2015 13:43:23
Muchas gracias por responder si funciona ahora si :D
amigo puedo contar contigo para otros errores si puedes claro, tienes wassath?
escribeme por correo porfa
[email protected]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar