Ir para conteúdo
Fórum Script Brasil

andre luis kasburg

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre andre luis kasburg

andre luis kasburg's Achievements

0

Reputação

  1. Bom dia! o que posso fazer para esta vba ficar mais rápida, otimizar ela. Não tenho experiencia em programação sou iniciante Sub Atualizar_cargas() ' ' Atualizar_cargas Macro Dim Tempo As Double Tempo = Now() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Sheets("Dados_Cargas").Select ActiveSheet.Range("$a$1:$d$10000").AutoFilter Field:=1, Criteria1:="<>" Columns("A:d").Select Selection.Copy Sheets("Cargas_Filtradas").Select Cells(1, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Cells(1, 1).Select Sheets("Dados_Cargas").Select Application.CutCopyMode = False ActiveSheet.ShowAllData Cells(1, 1).Select Sheets("Painel").Select Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True MsgBox Now() - Tempo End Sub
×
×
  • Criar Novo...