Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar intervalo II
 
Notifications
Clear all

Copiar intervalo II

 
2024 - VBA & Macros
Post Recente por dimorais 10 anos atrás
9 Posts
2 Usuários
0 Reactions
1,465 Visualizações
RSS
 dimorais
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Boa tarde
Na biblio tem muitos tópicos sobre. Bom se não estivessem corrompidos. Preciso copiar de um intervalo fixo, na mesma sheet, para um intervalo linhas abaixo, ou seja, pego o intervalo (fixo) H1:P10 e colo no intervalo H13:P23, outra vez o fixo, H1:P10 e colo em H25:P35 e assim sucessivamente. :D

 
Postado : 23/10/2014 11:37 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se usar a pesquisa, encontrará muita coisa próxima disso...

Sub teste()
Range("H1:P10").Copy Range("H" & Rows.Count).End(3)(2)
End Sub

Att

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

 
Postado : 23/10/2014 12:07 pm
 dimorais
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Correto, mas como disse: tá tudo corrompido. Solução simples mas eficiente. :D

 
Postado : 23/10/2014 1:39 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu fico feliz que resolveu, obrigado pelo retorno!!

Att

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

 
Postado : 23/10/2014 1:55 pm
 dimorais
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Só mais uma "isca" de conhecimento do nobre colega: Como fazer para a copia iniciar de uma determinada linha. Ex. linha 450

 
Postado : 23/10/2014 2:04 pm
 dimorais
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

No post anterior, o alexvba resolveu a questão a contento, porém, percebi que faltava (falha minha :oops: ) duas coisinhas a mais:
1º Como fazer para a copia iniciar de uma determinada linha. Ex. linha 450
2º Como fazer para copiar somente os valores.
Grato :D

Sub teste()
Range("H1:P10").Copy Range("H" & Rows.Count).End(3)(2)
End Sub

 
Postado : 23/10/2014 2:35 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite,

Veja se atende:

Sub ColarEspecial()
    'Copiar a partir da linha 450
    [H450:P500].Copy
    
    'Colar Especial Valores
    [X500].PasteSpecial xlPasteValues
End Sub

Abraço

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

 
Postado : 23/10/2014 4:57 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

dimorais

Eu fundi os teus 2 tópicos, pois é proibido criar mais de um tópico sobre a mesma dúvida.

Patropi - Moderador

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

 
Postado : 23/10/2014 5:44 pm
 dimorais
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Patropi, grato pela junção. JValq, precisava unir as qualidades da 1ª macro com a 2ª, vide plan. :D

Intervalos.rar
 
Postado : 24/10/2014 4:07 am
Forum Jump:
  Tópico Anterior
Próximo Tópico