Selecionar somente as celulas preenchidas e mover para outra

2024 - VBA & Macros

Post Recente por Mnemonic 8 anos atrás

3 Posts

2 Usuários

0 Reactions

713 Visualizações

RSS

Mnemonic

(@mnemonic)

Posts: 4

New Member

Topic starter

Gostaria de modificar a macro que estou utilizando para que ao invés de selecionar um intervalo pré determinado A3:E3 ela selecione até a ultima coluna preenchida.
no exemplo a baixo eu gostaria de copiar/mover os valores de joao até carlos incluindo o endereço para uma outra planilha na ultima linha disponivel.

nome endereco
joao aaaa
jose bbbb
carlos cccc

o codigo que estou utilizando para copiar um intervalo especificado para a ultima linha em branco de uma nova planilha


Sub Botão1_Clique()

Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("t1")
Set pasteSheet = Worksheets("t2")
copySheet.Range("A3:E3").Copy


pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Postado : 10/01/2017 12:57 pm

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Tente assim


Sub Botão1_Clique()

Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim Linha As Long ' Declarando ultima linha
 

Set copySheet = Worksheets("t1")
Set pasteSheet = Worksheets("t2")

Linha = copySheet.Range("A" & Rows.Count).End(xlUp).Row ' Identificando a ultima linha

copySheet.Range("A3:E" & Linha).Copy 'Selecionando o intervalo ate a ultima linha


pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 10/01/2017 6:27 pm