LIMPAR MACRO GRAVAD...
 
Notifications
Clear all

LIMPAR MACRO GRAVADA


JSCOPA10
Posts: 225
Moderator
Topic starter
(@jscopa10)
Estimable Member
Entrou: 2 anos atrás

O recurso gravador de Macro é ótimo, mas o código fica uma sujeira!! ... Alguém pode fazer uma limpeza nele, por favor?? ... Obrigado!!!

 

Sub ajustar()
'
' ajustar Macro
'
' este código seleciona A2:K30, insere quebra de linhas, ajusta a altura da linha, e centraliza verticalmente os textos

'
    Range("A2:K30").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Rows("2:30").Select
    Rows("2:30").EntireRow.AutoFit
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A2").Select
End Sub

 

Responder
2 Respostas
2 Respostas
EdsonBR
Moderator
(@edsonbr)
Entrou: 6 anos atrás

Prominent Member
Posts: 853

@jscopa10, seria isso?

Sub Ajustar()
  With Range("A2:K30")
    .WrapText = True
    .VerticalAlignment = xlCenter
    .EntireRow.AutoFit
  End With
End Sub
Responder
JSCOPA10
Moderator
(@jscopa10)
Entrou: 2 anos atrás

Estimable Member
Posts: 225

@edsonbr, SHOW!!! ... Quanta diferença!!! ... Valeu Edsonbr!!!!!!!!!!!!!!!!!! .... RESOLVIDO!!!

Responder