Ayuda en vba

=J15/1,15

Hola a todos

Me gustaría que me ayudaran porfis, bueno la ideas es

esta, en una columna de un rango de j15:j40

cuando uno introduzca una cantidad X las desgloce por el

15% p.e. si yo pongo 300 en cualquier celda

del rango j15:j40 me aparezca 260.87 .

Gracias por todo

Un saludo,
Daniel.


.

Ok.. y mediante código ? como seria por favor =)

Me cansao pensando tanto

Prueba pegando el siguiente código en el módulo de la hoja (click derecho sobre su etiqueta->Ver código):


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J15:J40]) Is Nothing Then Exit Sub
Range("K" & Target.Row).Formula = "=" & Target.Address & "/1.15"
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

"Daniel Sánchez López" escribió en el mensaje news:

Ok.. y mediante código ? como seria por favor =)


>Me cansao pensando tanto

Hola Fernando !!!

Un gusto saludarte...bien mira me sale el siguiente mensaje

Error de compilación:

Se ha detectado un nombre ambiguo: Worksheet_Change

alguna sugerencia

Saludos
Daniel

Hola de Nuevo ya esta bien el que digo que mandaste es perfecto. :-))

Nadamas un favor mas para que el resultado se refleje en la misma celda como seria

Mil gracias.

Un saludo
Daniel



Daniel Sánchez López escribió en el mensaje de noticias

Hola Fernando !!!

Un gusto saludarte...bien mira me sale el siguiente mensaje

Error de compilación:

Se ha detectado un nombre ambiguo: Worksheet_Change

alguna sugerencia

Saludos
Daniel