If then else macro en Excel
Estimado Experto:
Necesito vuestra ayuda con el siguiente macro y es que funciona sólo para una celda, pero yo necesito que funcione para un rango seleccionado de celdas.
Agradezco por anticipado vuestra valiosa ayuda.
Function Variacion()
x = Range("G9").Value
If x <= -3.1 Then
Range("H9").Value = "B.N"
Else
If x < 0.5 And x < -3.1 Then
Range("H9").Value = "E.B"
Else
If x >= -0.5 And x <= 0.5 Then
Range("H9").Value = "E"
Else
If x >= 0.5 And x < 3.1 Then
Range("H9").Value = "E.A"
Else
If x >= 3.1 Then
Range("H9").Value = "A.N"
Else
Range("H9").Value = ""
End If
End If
End If
End If
End If
End Function
Muchas gracias.
Necesito vuestra ayuda con el siguiente macro y es que funciona sólo para una celda, pero yo necesito que funcione para un rango seleccionado de celdas.
Agradezco por anticipado vuestra valiosa ayuda.
Function Variacion()
x = Range("G9").Value
If x <= -3.1 Then
Range("H9").Value = "B.N"
Else
If x < 0.5 And x < -3.1 Then
Range("H9").Value = "E.B"
Else
If x >= -0.5 And x <= 0.5 Then
Range("H9").Value = "E"
Else
If x >= 0.5 And x < 3.1 Then
Range("H9").Value = "E.A"
Else
If x >= 3.1 Then
Range("H9").Value = "A.N"
Else
Range("H9").Value = ""
End If
End If
End If
End If
End If
End Function
Muchas gracias.
1 Respuesta
Respuesta de Carlos soloffice
1