06/09/2013, 15:59
|
 | | | Fecha de Ingreso: septiembre-2013
Mensajes: 4
Antigüedad: 11 años, 6 meses Puntos: 0 | |
| Respuesta: macro para actualizar precio alto
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 |