Resumir codigo

[fernandotipo]

Hola se puede poner este codigo en una sola instruccion

gracias

Private Sub cant2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 Call calcula_importe

End Sub


Private Sub precio2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Call calcula_importe

End Sub


Private Sub cant3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 Call calcula_importe

End Sub


Private Sub precio3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Call calcula_importe

End Sub


Private Sub cant4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 Call calcula_importe

End Sub


Private Sub precio4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Call calcula_importe

End Sub


Private Sub cant5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 Call calcula_importe

End Sub


Private Sub precio5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Call calcula_importe

End Sub


Private Sub cant6_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 Call calcula_importe

End Sub


Private Sub precio6_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Call calcula_importe

End Sub[/CODE]