Copiar dados variáveis

Question

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.

Answer 1

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