Comentario en la clase
Ejemplo 2: If...Then...ElseIf...Else
Para agregarle el formato de procentaje en codigo.
Seria:
Range("C12").Value = Format(DESCUENTO, "0%").
Una pregunta....
¿Afecta el codigo, si se escribe en MAYUSCULA?, automaticamente el editor camba a minuscula algunas partes del codigo.
Sub If_VARIACIONES()
Dim CANTIDAD As Integer
Dim DESCUENTO As Double
CANTIDAD = Range("A11").Value
If CANTIDAD < 10 Then
DESCUENTO = 0
ElseIf CANTIDAD < 20 Then
DESCUENTO = 0.1
Else
DESCUENTO = 0.2
Range("C12").Value = Format(DESCUENTO, "0%")
End If
End Sub
Seria:
Range("C12").Value = Format(DESCUENTO, "0%").
Una pregunta....
¿Afecta el codigo, si se escribe en MAYUSCULA?, automaticamente el editor camba a minuscula algunas partes del codigo.
Sub If_VARIACIONES()
Dim CANTIDAD As Integer
Dim DESCUENTO As Double
CANTIDAD = Range("A11").Value
If CANTIDAD < 10 Then
DESCUENTO = 0
ElseIf CANTIDAD < 20 Then
DESCUENTO = 0.1
Else
DESCUENTO = 0.2
Range("C12").Value = Format(DESCUENTO, "0%")
End If
End Sub