Notifications
Clear all

Macro copiar linha livre na selecao

5 Posts
3 Usuários
0 Reactions
948 Visualizações
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Ola podem me ajudar ?

Onde esta o erro aqui ?

Na Plan1 quero que copie a celula C4 para a Plan2 C8. Sendo que A7:E7 esta tudo preenchido.

Entao quero que ao rodar a macro fique em Plan2 coluna C o seguinte, conforme se rodar a mesma vai indo pra baixo,

Quero que use somente esta selecao de c8 a c21

Loja 1
Loja 2
Loja 3 ... ( ate a C21 )

Sub Macro8()

Dim Ws1 As Worksheet
Dim Ws2 As Worksheet

Dim Dest As Range

Set Ws1 = Sheets("Plan1") 'Referencia a guia Resumo como Ws1

Set Ws2 = Sheets("Plan2") 'Referencia a guia Plan1 como Ws2

Set Dest = Ws2.Range("C8").Range("C21").End(xlUp).Offset(1, -1) 'Encontra a ultima linha da guia comissão (definida como Dest)

Ws1.Range("C4").Copy 'Copia o intervalo C4 da guia Resumo
Dest.PasteSpecial xlPasteValues 'Cola valores na guia Comissão
Application.CutCopyMode = False

End Sub
 
Postado : 27/11/2015 5:20 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Respondido em:
http://gurudoexcel.com/forum/viewtopic. ... 5383#p5383

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/11/2015 6:19 am
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

boa tarde, algue poderia me ajudar ?

em anexo a planilha

 
Postado : 28/11/2015 1:13 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Olhei a planilha e nao entendi.

Informe mais dados

De como vc tem a planilha e como vc deseja... assim fica facil ajudar.

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 : 28/11/2015 3:35 pm
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Olá MPrudencio.

Grato por sua ajuda.

Mando em anexo a Tabela e com tudo la explicado. Acho que entenderá o que quero.

Aguardo a sua ajuda.

Andre

 
Postado : 28/11/2015 8:16 pm