Formatar Células

2024 - VBA & Macros

Post Recente por Miguel 70 10 anos atrás

3 Posts

2 Usuários

0 Reactions

801 Visualizações

RSS

Miguel 70

(@miguel-70)

Posts: 207

Estimable Member

Topic starter

Ola!
Como acrescentar mais 20 Células abaixo nesta macro?

Sub Formatar_Coluna()'ate aqui tudo certo.
Range("A9:A" & Range("A" & Cells.Rows.Count).End(xlUp).Row).NumberFormat = "h:mm;@"
End Sub

Obrigado

Postado : 23/04/2015 8:44 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Miguel 70,

Boa Tarde!

Assim:

Sub Formatar_Coluna()'ate aqui tudo certo.
Dim UltimaLinha As Long
UltimaLinha = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 20
Range("A9:A" & UltimaLinha).NumberFormat = "h:mm;@"
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 23/04/2015 9:22 am