Incluir Formulas como si fuera un Formato Condicional

01/11/2008 - 15:26 por Jose Luis Prieto | Informe spam
Buenas a todos,

No se si lo que estoy preguntando es una tonteria o no pero me sería muy
útil vuestra ayuda.

Lo que necesitaría sería, dejar definido para un grupo de celdas que, una
vez que se rellena esa misma celda, se haga una operación sobre si misma.
Lo explico de Otra forma; cuando yo incluya en una celda un Número que se
por ejemplo, la facturación, automaticamente en esa misma celda, me haga la
operación y me quite el IVA...

Es posible???

Saludos y gracias por adelantado
 

Leer las respuestas

#1 Héctor Miguel
02/11/2008 - 02:06 | Informe spam
hola, Jose Luis !

... dejar definido para un grupo de celdas que... cuando yo incluya en una celda un Numero
... automaticamente en esa misma celda, me haga la operacion y me quite el IVA...



si suponemos que "el grupo de celdas" es el rango C2:C15 de la "hoja1" -???-

- haz un clic-secundario sobre la etiqueta con el nombre de esa hoja y selecciona "ver codigo"
- copia/pega (o escribe) lo siguiente:

Private Const Celdas As String = "c2:c15"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range(Celdas)) Is Nothing Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim IVA As Single: IVA = [10%]
If Not Intersect(Target, Range(Celdas)) Is Nothing Then
Application.EnableEvents = False
ActiveCell.Value = Application.Round(ActiveCell.Value / (1 + IVA), 2)
Application.EnableEvents = True
End If
End Sub

- de ser necesario, modifica la constante (Celdas) para que adaptarla a tu rango real
y tambien la variable IVA (el valor asignado) segun sea el caso

saludos,
hector.

Preguntas similares