Guru do Excel e Power BI

Boa tarde pessoal,

Fiz essa macro (em anexo) e está servindo bem, porém acho que daria pra melhorar um pouco o código.

sugestões?

desde já, obrigado!

Talvez possa diminuir o tem de execução da macro adicionando no inicio Application.Calculation = xlCalculationManual no final Application.Calculation = xlCalculationAutomatic

Sub TesteVelocidade()
Dim Tempo As Double
Tempo = Now()

'SUA MACRO

MsgBox Now() - Tempo
End Sub

Experimente:
Coloque a lista dos feriados em R1:R7.

@osvaldomp ficou incrivelmente mais rápido, ótimo mesmo, muito obrigado!

osvaldomp escreveu:Experimente:

Código: Selecionar todos

Sub PontaOuForaPonta()
 Dim LR As Long
 Application.ScreenUpdating = False
 With ActiveSheet
  .AutoFilterMode = False
  LR = .Cells(Rows.Count, 1).End(3).Row
  .Range("J5:K" & LR) = ""
  .Range("K5:K" & LR).FormulaLocal = "=DIATRABALHO(B5-1;1;R$1:R$7)=B5"
  .Range("A4:K4").AutoFilter 3, ">=18", xlAnd, "<21"
  .Range("A4:K4").AutoFilter 11, "VERDADEIRO"
  .Range("J5:J" & LR) = "Ponta"
  .AutoFilterMode = False
  .Range("J5:J" & LR).SpecialCells(xlBlanks).Value = "Fora Ponta"
  .[K:K] = ""
 End With
End Sub

Coloque a lista dos feriados em R1:R7.