none
Copiar dados variáveis RRS feed

  • Pergunta

  • Boa noite,

    Eu gostaria de criar, se possível. uma programação que copie os dados de uma tabela de acordo com o tamanho da mesma, somente copie dados que estejam preenchidos nas células.

    Exemplo:

    Eu tenho uma tabela que tem da célula A8 até A30. Há casos que eu precisarei preencher manualmente por exemplo da célula A8 até A12, por exemplo, ou seja, ele deve copiar somente essa faixa. Há casos que eu posso preencher da célula A8 até a A22, ou seja, ele deve copiar somente dessa faixa. Isto é, só deve copiar as células que estiverem preenchidas de A8 até alguma que esteja no limite, que é A30.

    Segue a programação que eu tenho:

    ------------------------------------------------------------------------------------------------------------------------------

    Sub copiar_dados()
    '
    ' copiar_dados Macro
    '

    '
        ActiveWindow.SmallScroll Down:=6
        Range("A1:B30").Select
        Range("B30").Activate
        Selection.Copy
    End Sub

    ------------------------------------------------------------------------------------------------------------------------------

    Obrigado.

    domingo, 29 de janeiro de 2017 21:59

Todas as Respostas

  • Olá Diego, 

    Para descobrir a última célula preenchida utilizamos o comando abaixo:

    intLastRow = Range("A1").End(xlDown).Row


    Depois, para selecionar o intervalo utilizamos:

    range("A1:A" & intLastRow).Select


    André Santo | basevba.wordpress.com

    • Sugerido como Resposta André Santo terça-feira, 31 de janeiro de 2017 12:43
    terça-feira, 31 de janeiro de 2017 12:43