none
Melhorar performance desse macro RRS feed

  • Pergunta

  • Pessoal, gostaria de como posso melhor a performance deste trecho do meu macro.

    Esta demorando demais realizar este processo e as vezes até trava o Excel kk

    Eu faço este processo mais um monte de vez, para cada coluna que precisar. 

    Sei que este código deve estar horrível mas não conheço nada de VBA.

    Sheets("Integrador").Activate
    While Cells(linhaGuia, colunaIntegradorTipo).Value <> ""
        
        If (Cells(linhaGuia, colunaIntegradorTipo).Value = "Sku") Then
            Sheets("Vtex").Range(SkuEan & linhaGuia).Copy
            'Ativa a planilha de destino
            Sheets("Integrador").Activate
            'Seleciona o intervalo de destino
            Range("D" & linhaGuia).Select
            'Cola os dados no destino
            ActiveSheet.Paste
        Else
            Sheets("Vtex").Range("Y" & linhaGuia).Copy
            'Ativa a planilha de destino
            Sheets("Integrador").Activate
            'Seleciona o intervalo de destino
            Range("D" & linhaGuia).Select
            'Cola os dados no destino
            ActiveSheet.Paste
        End If
        
        Application.CutCopyMode = False
        linhaGuia = linhaGuia + 1
        
    Wend


    sexta-feira, 22 de abril de 2016 13:59

Respostas