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.


Nenhum comentário:

Postar um comentário

diHITT - Notícias