[SOLUCIONADO] macro para actualizar precio alto

plambreton · #1 (**permalink**) 24/08/2013, 08:58

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
__________________
Pepe L

naugthall · #2 (**permalink**) 25/08/2013, 03:33

Y no sería más fácil poner la fórmula 'MAX(J#1,Z#1)' en la columna L en ese caso siempre tendrás en ese campo el precio más alto.

Si lo que quieres es que se te guarde el precio más alto de los dos y se quede la columna J limpia, entonces o ejecutas la macro con tu botón, o lo programas en VBA sin macro, por ejemplo creandote un formulario para introducir los datos.

plambreton · #3 (**permalink**) 26/08/2013, 10:22

Cita:

Iniciado por naugthall

Y no sería más fácil poner la fórmula 'MAX(J#1,Z#1)' en la columna L en ese caso siempre tendrás en ese campo el precio más alto.

Si lo que quieres es que se te guarde el precio más alto de los dos y se quede la columna J limpia, entonces o ejecutas la macro con tu botón, o lo programas en VBA sin macro, por ejemplo creandote un formulario para introducir los datos.

El problema de dejar la formula en la columna J, es que si mas adelante actualizo el precio por uno mas alto, pero no mas alto que el anterior, me lo va a modificar sin ser este el mas alto registrado historicamente, es por eso que utilizo la macro, pero mi problema es que no se como crear el codigo para que funcione en automatico cada vez que modifiques un precio

Gracias

Rick001 · #4 (**permalink**) 06/09/2013, 15:59

saludos:

prueba este codigo en la hoja.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 10 Then 'donde 10 es el numero de columna

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

suerte

plambreton · #5 (**permalink**) 07/09/2013, 10:15

Gracias por tu apoyo, sabes que ya lo probe y cuando doy enter despues de agregar el precio en la columna 10, me aparece una ventana de excel con el siguiente error:
Error de compilacion
Nombre ambiguo detectado:
Worksheet_Change

no se si sea por que en esa misma hoja tengo la siguiente macro para que al poner este mismo precio actualice la fecha de actualizacion del precio

Private Sub Worksheet_Change(ByVal Target As Range)
tiempo = Date
Set isect = Application.Intersect(Target, Range("j2:j10000"))
If Not isect Is Nothing Then
If isect.Value <> "" Then
isect.Offset(0, 1).Value = tiempo
End If
Set isect = Application.Intersect(Target, Range("j2: j10000 "))
If Not isect Is Nothing Then
If isect.Value = "" Then
isect.Offset(0, 1).Value = ""
End If
End If
End If
End Sub

Gracias por tu apoyo

Cita:

Iniciado por Rick001

saludos:

prueba este codigo en la hoja.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 10 Then 'donde 10 es el numero de columna

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

suerte

Rick001 · #6 (**permalink**) 10/09/2013, 09:27

no estarás llamando a 2 procesos (Private Sub Worksheet_Change(ByVal Target As Range)) en la misma hoja?

ya probé tu código y si pone la fecha actual en "K"

Salu2

plambreton · #7 (**permalink**) 10/09/2013, 11:13

Cita:

Iniciado por Rick001

no estarás llamando a 2 procesos (Private Sub Worksheet_Change(ByVal Target As Range)) en la misma hoja?

ya probé tu código y si pone la fecha actual en "K"

Salu2

Tienes toda la razon, ya probe cada uno de los procesos por separado en la hoja y si funcionan (aunque en el que me diste tuve que agregar un End If antes de End Sub por que me marcaba un error), pero al querer usar los dos no puedo, conoces alguna manera en la cual pueda correr ambos al mismo tiempo en la misma hoja?

Gracias por la ayuda

Rick001 · #8 (**permalink**) 10/09/2013, 11:54

Private Sub Worksheet_Change(ByVal Target As Range)
tiempo = Date
Set isect = Application.Intersect(Target, Range("j2:j10000"))
If Not isect Is Nothing Then
If isect.Value <> "" Then
isect.Offset(0, 1).Value = tiempo
End If
Set isect = Application.Intersect(Target, Range("j2: j10000 "))
If Not isect Is Nothing Then
If isect.Value = "" Then
isect.Offset(0, 1).Value = ""
End If
End If
End If

If Target.Column = 10 Then
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 If
End Sub

//espero que con esto quede.
salu2

plambreton · #9 (**permalink**) 11/09/2013, 16:34

Cita:

Iniciado por Rick001

Private Sub Worksheet_Change(ByVal Target As Range)
tiempo = Date
Set isect = Application.Intersect(Target, Range("j2:j10000"))
If Not isect Is Nothing Then
If isect.Value <> "" Then
isect.Offset(0, 1).Value = tiempo
End If
Set isect = Application.Intersect(Target, Range("j2: j10000 "))
If Not isect Is Nothing Then
If isect.Value = "" Then
isect.Offset(0, 1).Value = ""
End If
End If
End If

If Target.Column = 10 Then
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 If
End Sub

//espero que con esto quede.
salu2

Ya quedo! muchas gracias por tu ayuda!!!!