Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/08/2013, 08:00
plambreton
 
Fecha de Ingreso: agosto-2013
Ubicación: Mexico
Mensajes: 12
Antigüedad: 10 años, 8 meses
Puntos: 0
macro para actualizar precio alto

Generé un boton que llamo "actualiza precio", y lo que quiero que haga la macro es que sin necesidad de presionar el boton, al momento de actualizar el precio actualice el precio mas alto. El ejemplo es el siguiente:

en la columna J, tengo el espacio del precio para actualizar, en la columna L es donde la macro pone el precio mas alto (es igual a la columna Z), en la columna M, tengo la formula MAX(NUM1,NUM2), donde selecciona el precio mas alto de ambos, y lo que hace mi macro es que copia todos los numeros de la columna M y los pega en la columna Z, para que en automatico se actualice el precio as alto en la columna L, lo que no puedo hacer es que sin necesidad de presionar el boton de actualizar, cada vez que yo actualice el precio, haga este calculo y ajuste el precio mas alto. Las columnas M y Z las tengo ocultas y la macro las muestra para correr la macro y las vuelve a ocultar al final

La Macro actual es la siguiente:

Sub actprecioalto()
'
' actprecioalto Macro
'

'
Columns("L:N").Select
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll ToRight:=13
Columns("Y:AA").Select
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll ToRight:=-11
Columns("M:M").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=7
Range("Z1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-15
Columns("M:M").Select
Selection.EntireColumn.Hidden = True
Range("J2").Select
End Sub


Saludos y Gracias por la ayuda