Macros

Hola Martin,

Podrias exponer el macro problematico?

Saludos,
KL



"Martin Cordero." wrote in message
news:

Hola A Todos.

Tengo un problema al ejecutar macros, pues grabe unas macros muy sencillas
para que dieran formato a unas tablas todo trabajaba bien hasta que
conectamos la pc en red y entonces las macros se ejecutan de una forma muy
lenta y eso si tengo suerte, por que casi siempre se quedan detenidadas.

Quisiera saber si alguien puede ayudarme con esto.

Este es una de ellos
_____________________________________________________________________
Cells.Select
With Selection
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=-1
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[1])"
Selection.Copy
Columns("A:A").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[1])"
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-8
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Replace What:="Partida 1:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "=MID(RC[1],1,92)"
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft

"KL" escribió:

Hola Martin,

Podrias exponer el macro problematico?

Saludos,
KL



"Martin Cordero." wrote in message
news:
> Hola A Todos.
>
> Tengo un problema al ejecutar macros, pues grabe unas macros muy sencillas
> para que dieran formato a unas tablas todo trabajaba bien hasta que
> conectamos la pc en red y entonces las macros se ejecutan de una forma muy
> lenta y eso si tengo suerte, por que casi siempre se quedan detenidadas.
>
> Quisiera saber si alguien puede ayudarme con esto.