Erika López noblecilla

Andy Machin respondió: Prueba esta macro: Sub Calcular() Dim nValor As Integer Dim rCell As Range, rRng As Range Set rRng = Range("B4:B11") For Each rCell In rRng.Cells Select Case rCell.Value Case Is = 0 If rCell.Offset(0, 1).Value <> "" Then rCell.Offset(0, 2).Value =...

Andy Machin respondió: Si estrictamente quieres escribir el símbolo % en el textbox. Puedes usar el siguiente código: Yo no te recomiendo hacerlo así porque puede ser un estorbo para otras validaciones numéricas que quieras hacer en el futuro. Private Sub...