Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Calcular Iva

11/02/2008 - 16:20 por Pepito | Informe spam
Ayuda Hacer una pregunta
Tengo el siguiente codigo que me calcula el Iva,
me gustaria de ayudaran a modificarlo para que funcionara solo en la
columna A

Sub calcularIva()

On Error GoTo control

Dim Neto As Double
Dim Iva As Double

Neto = activecell.Value
Iva = Format(Iva, "###,###.00")
Iva = activecell.Value * 0.15
activecell.NumberFormat = "#,##0.00"
activecell.Offset(0, 1).NumberFormat = "#,##0.00"

activecell.Offset(0, 1).Value = Iva

control:
End Sub
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
12/02/2008 - 00:15 | Informe spam
hola, jose !

Tengo el siguiente codigo que me calcula el Iva,
me gustaria de ayudaran a modificarlo para que funcionara solo en la columna A



(p.e.)
Sub CalcularIVA()
With ActiveCell
If .Column > 1 Then Exit Sub
.Offset(, 1) = Val(.Value) * 0.15
.Offset(, 1).NumberFormat = "#,##0.00")
End With
End Sub

saludos,
hector.

__ el codigo expuesto __
Sub calcularIva()
On Error GoTo control
Dim Neto As Double
Dim Iva As Double
Neto = activecell.Value
Iva = Format(Iva, "###,###.00")
Iva = activecell.Value * 0.15
activecell.NumberFormat = "#,##0.00"
activecell.Offset(0, 1).NumberFormat = "#,##0.00"
activecell.Offset(0, 1).Value = Iva
control:
End Sub

Preguntas similares

 

Busqueda sugerida :