Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro Copiar e Cola...
 
Notifications
Clear all

Macro Copiar e Colar

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
1,098 Visualizações
RSS
 Rilton
(@rilton)
Posts: 232
Estimable Member
Topic starter
 

Boa tarde!!!

Seguinte, gravei uma macro que copia e cola os valores das celulas na mesma coluna de varias planilhas diferentes. Porém eu queria personalizar a planilha e não estou conseguindo acertar o codigo VBA. Por exemplo, na planilha principal irá conter uma celula onde especificarei qual coluna será copiada de cada planilha, ou seja, se eu especificar na Celula A1 o seguintes texto = D5:E8 a macro irá copiar e colar os valores de cada planilha referente ao intervalo estabelecido.

Estou enviando em anexo um modelo para tentar esclarecer melhor meu raciocínio

Grato,

 
Postado : 11/02/2014 9:18 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!

Você pretende copiar uma determinada coluna de todas as guias para uma única guia?

Os dados serão colados um embaixo do outro?

Já tentou usar a pesquisa do fórum!
viewtopic.php?f=21&t=9119
https://www.google.com.br/search?q=copi ... ndo.com.br

Att

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

 
Postado : 11/02/2014 10:35 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Seria isso?

Sub COPIAR()
'
' COPIAR Macro
'

Dim rng  As String

rng = Sheets("Principal").Range("H9")

    Sheets("Plan2").Select
    Range(rng).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Plan3").Select
    Range(rng).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Plan4").Select
    Range(rng).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Plan5").Select
    Range(rng).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Principal").Select
    Range("A1").Select
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 11/02/2014 10:37 am
 Rilton
(@rilton)
Posts: 232
Estimable Member
Topic starter
 

Perfeito gtsalikis!!!

Muito Obrigado.

 
Postado : 11/02/2014 11:04 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

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

 
Postado : 11/02/2014 11:55 am
Forum Jump:
  Tópico Anterior
Próximo Tópico