Macro que se ejecute solo en determinada columna
Hola amigos
tengo excel 2002 y esta macro :
Sheets("SubCont").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("B5:J309").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Presen").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
La celda activa en que debe ser ejecutada la macro la selecciono yo,(es aleatoria pero siempre en la columnna B de la hoja "Presen").
A veces por error, distracción, cansancio y por similitud de datos, la ejecuto en otra columna y como en las macros no tengo función "deshacer" es todo un problema.
Pregunto que puedo agregar al código para que si no estoy en la columna "B" de la hoja "SubCont" no se ejecute?
Agradecido,
Tito Pose
1 Respuesta
Te mando mi solución. La siguiente macro solo se ejecutará si estás posicionado en cualquier celda de la columna B
Sub soloB() If Not Intersect(ActiveCell, Columns(2)) Is Nothing Then MsgBox "se ejecuta" '..................... '................... '.................. '.................... End If End Sub
recuerda finalizar y puntuar la consulta
