VBA Excel - Como selecionar um range de tamanho variável para cópia.

Ocorre incontáveis vezes, a necessidade de copiarmos um determinado Range (Sendo este em alguma ocasiões, o resultado da atualização de uma Pivot Table (Tabela Dinâmica)) para outro local, como fazê-lo?

    ' Marcar e copia o range de Dados atualizado.

    Range ("B6:E" & LastLine()).Select          ' Seleciona a área com dados.

    Selection.Copy                                       ' Copia a área com dados.

    Range ("G6").Select                                ' Seleciona o local para onde os dados serão copiados.

    ' Cola os dados selecionados.

    Selection.PasteSpecial _

    Paste:=xlPasteValues, _

    Operation:=xlNone, _

    SkipBlanks:=False, _

    Transpose:=False

Para determinarmos qual a última linha com dados, usamos aqui uma antiga e familiar funcionalidade deste Blog. Replico-a abaixo:

Function LastLine() As Variant

    ' Demonstra a última linha com conteúdo.

    Let LastLine = Worksheets ("[NOME DA TAB]").Cells(Worksheets("[NOME DA TAB]").Rows.Count, 5).End(xlUp).Row - 1

    

End Function

Tags: Bernardes, VBA, Office, Excel, Range, select, copy, Pivot Table, PT, Tabela Dinâmica

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com