FormataColunas.txt

Sub formata_colunas()
'
'
'
'
'
    Range("A3").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Select
    
    coluna_vazia = ActiveCell.Column
    Columns(coluna_vazia).NumberFormat = "@"
    ActiveCell.Offset(-1, -1).Select
    
    ActiveCell = "Soma de Duração Média"
    soma_duracao_media = ActiveCell.Column
    Columns(soma_duracao_media).NumberFormat = "[h]:mm:ss;@"
    ActiveCell.Offset(0, -1).Select
    
    ActiveCell = "Contagem Total Média"
    contagem_total_media = ActiveCell.Column
    Columns(contagem_total_media).NumberFormat = "0"
    ActiveCell.Offset(0, -1).Select
    
    ActiveCell = "Soma de Duração Total"
    soma_duracao_total = ActiveCell.Column
    Columns(soma_duracao_total).NumberFormat = "[h]:mm:ss;@"
    ActiveCell.Offset(0, -1).Select
    
    ActiveCell = "Contagem Total"
    contagem_total = ActiveCell.Column
    Columns(contagem_total).NumberFormat = "General"
    
    Cells.Select
    Selection.EntireColumn.AutoFit
    
End Sub