como hacer que un número en una celda se multiplique y divida

Hola,
a que celda o celdas te refieres?
que te parece si pones un ejemplo?
asi se te puede dar una respuesta mas personalizada.

Un saludo,
jose

fernando wrote:

cuando introdusco en una celda un número quiero que ese número se multiplique
con otro número y se divida tambien con otro número

Yo tampoco entiendo completamente que es lo que quieres, pero sospecho
que deseas multiplicar y dividir en la misma celda una vez introducido
el numero. Claro que no das el divisro, ni el multipllicador, ni haces
refeencia a si estan en alguna celda o deben ir en la macro etc

Pero digamos que quieres introducir un numero en A1 y luego
multiplicarlo por 10 y despues dividirlo entre 2. Tienes que colocar
esto en el codigo de la hoja donde realizaras la operacion:

Private Sub worksheet_change(ByVal target As Range)

If Not target = Range("a1") Then Exit Sub
Application.EnableEvents = False
a = Range("a1").Value
b = a * 10
c = b / 2
Range("a1").Value = c
Application.EnableEvents = True
End Sub

Abraham

Hola Abraham

Debes modificar la instruccion
If Not target = Range("a1") Then Exit Sub

para que quede
If Not target.Address= Range("a1").Address Then Exit Sub

para que funcione correctamente,

Saludos,

Henry



"Abraham" escribió:

Yo tampoco entiendo completamente que es lo que quieres, pero sospecho
que deseas multiplicar y dividir en la misma celda una vez introducido
el numero. Claro que no das el divisro, ni el multipllicador, ni haces
refeencia a si estan en alguna celda o deben ir en la macro etc

Pero digamos que quieres introducir un numero en A1 y luego
multiplicarlo por 10 y despues dividirlo entre 2. Tienes que colocar
esto en el codigo de la hoja donde realizaras la operacion:

Private Sub worksheet_change(ByVal target As Range)

If Not target = Range("a1") Then Exit Sub
Application.EnableEvents = False
a = Range("a1").Value
b = a * 10
c = b / 2
Range("a1").Value = c
Application.EnableEvents = True
End Sub

Abraham