Recentemente fiz uma macro, onde ao clicar em um botão de formatação de planilhas, irá formatar todas as planilhas do meu arquivo excel. E consegui, porém gostaria de fazer uma alteração bem útil, como podem ver defini o "ultima_linha", onde o excel encontra a última linha com dados e aplica a formatação. Mas como poderia fazer nesse codigo, que também faça o mesmo para colunas? de modo que eu não precise definir OBS: "A3:H"?, gostaria que ele encontrasse a última coluna com dados e aplicasse a formatação, do mesmo jeito que o "ultima_linha" faz. Alguém poderia me ajudar??
Sub formatar()
total_planilhas = Sheets.Count
'INDICE QUE PASSA POR CADA UMA DAS PLANILHAS TRABALHADA
For num_planilha = 2 To total_planilhas 'Para numero da planilha trabalhada do momento, começa com valor 1 e vai até o total de planilhas
'Descobrir a última linha da planilha
ultima_linha = Sheets(num_planilha).UsedRange.Rows.Count 'Vai contar quantas linhas na faixa utilizada, da sheets numero de planilha
'Tamanho da fonte
Sheets(num_planilha).Range("A1:H" & ultima_linha).Font.Size = 14 'Mexe no tamanho da fonte
'Formatar Cabeçalho
Sheets(num_planilha).Range("A3:H3").Interior.Color = RGB(91, 155, 213) 'Cor do cabeçalho
Sheets(num_planilha).Range("A3:H3").Font.Color = vbWhite
Sheets(num_planilha).Range("A3:H3").Font.Bold = True
'Formatar células de ARE SIS
'Sheets(num_planilha).Range("A25:H25").Interior.Color = RGB(91, 155, 213) 'Cor do cabeçalho
'Sheets(num_planilha).Range("A35:H35").Interior.Color = RGB(91, 155, 213) 'Cor do cabeçalho
'Sheets(num_planilha).Range("A40:H40").Interior.Color = RGB(91, 155, 213) 'Cor do cabeçalho
'Sheets(num_planilha).Range("A52:H52").Interior.Color = RGB(91, 155, 213) 'Cor do cabeçalho
'Sheets(num_planilha).Range("A68:H68").Interior.Color = RGB(91, 155, 213) 'Cor do cabeçalho
'Sheets(num_planilha).Range("A74:H74").Interior.Color = RGB(91, 155, 213) 'Cor do cabeçalho
'Sheets(num_planilha).Range("A84:H84").Interior.Color = RGB(91, 155, 213) 'Cor do cabeçalho
'Bordas
Sheets(num_planilha).Range("A3:H" & ultima_linha).Borders.LineStyle = 1
'Remover Linhas de Grade
Sheets(num_planilha).Activate
ActiveWindow.DisplayGridlines = False 'JanelaAtiva, Mostra linhas de grade
'Congelar Paineis
Sheets(num_planilha).Range("A4").Activate
ActiveWindow.FreezePanes = True
'Adiciona AutoFiltro
Sheets(num_planilha).Range("A3:H" & ultima_linha).AutoFilter
'Auto-Ajuste da largura das colunas
Sheets(num_planilha).Columns("A:H").AutoFit 'NÃO SERÁ PRECISO POIS JÁ ESTÁ APLICADO NA MACRO DE INFO
Next
End Sub
Desde já agradeço