Tema: macros
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 22/08/2013, 16:27
plambreton
 
Fecha de Ingreso: agosto-2013
Ubicación: Mexico
Mensajes: 12
Antigüedad: 10 años, 8 meses
Puntos: 0
Respuesta: macros

Ahi les va la informacion que he logrado realizar, para mi caso #2

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 quiero 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

Este es el codigo que tengo, para ver si alguien me ubica como hacer que la macro actue sobre todos los cambios en la tabla dentro de la hoja

Saludos y Gracias

El caso 1 lo expongo mas tarde

Gracias de Nuevo