| | Copiar dados de diferentes celulas |  |
|
|
| Autor | Mensagem |
|---|
Jaime Rib.Preto
Mensagens : 10
Data de inscrição : 18/04/2012
| | Assunto: Copiar dados de diferentes celulas Qua Abr 18, 2012 6:43 pm | |
| Pessoall...
Como eu copio(via macro) dados de celulas diferentes para outra aba da planilha, na primeira linha vazia?
Preciso copiar os valores das celulas F6 e H6 de uma aba de controle diario para outra aba que seria digamos o resumo mensal. Importante, os valores a serem copiados são resultados de fórmulas, ou seja, somente os valores interessam, não a formula.
Na planilha destino, copiar para a 1ª linha vazia...
Alguem pode ajudar?
Grato | |
|
| | |
leandro3s
Mensagens : 7
Data de inscrição : 09/04/2012
| | Assunto: Re: Copiar dados de diferentes celulas Qua Abr 18, 2012 10:22 pm | |
| O valor copiado de F6 e H6 será colado na guia resumo mensal um do lado do outro?
Tem como postar a planilha aqui: www.fileupyours.com/ e mandar o link pra gente ver? | |
|
| | |
Jaime Rib.Preto
Mensagens : 10
Data de inscrição : 18/04/2012
| | Assunto: Re: Copiar dados de diferentes celulas Qua Abr 18, 2012 10:30 pm | |
| Tanto faz, pode ser um do lado do outro ou separados, como na guia original...
Grato | |
|
| | |
leandro3s
Mensagens : 7
Data de inscrição : 09/04/2012
| | Assunto: Re: Copiar dados de diferentes celulas Qua Abr 18, 2012 10:42 pm | |
| Cara, eu só gravei a macro. Veja se é isso mesmo Ficou assim: - Código:
-
Sub CopiarValores()
'
' CopiarValores Macro
'
'
Sheets("controle diário").Select
Range("F6").Select
Selection.Copy
Range("F6,H6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("resumo mensal").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Sheets("controle diário").Select
Application.CutCopyMode = False
Range("F6").Select
End Sub
É só apertar alt + f11, criar um módulo pelo menu inserir, colar este código e depois botar a macro pra rodar. Obs: aonde estiver o nome ("controle diário") e ("resumo mensal") vc deve trocar pelo nome da sua planilha permanecendo as aspas onde "controle diário" deve ser o nome da planilha onde está localizado os dados nas células F6 e H6 e "resumo mensal" é o nome da planilha que deverá ser copiada os valores. | |
|
| | |
Jaime Rib.Preto
Mensagens : 10
Data de inscrição : 18/04/2012
| | Assunto: Re: Copiar dados de diferentes celulas Qua Abr 18, 2012 10:51 pm | |
| Legal... vou testar e depois dou retorno.
Valeu!
| |
|
| | |
Jaime Rib.Preto
Mensagens : 10
Data de inscrição : 18/04/2012
| | Assunto: Re: Copiar dados de diferentes celulas Qui Abr 19, 2012 2:56 pm | |
| Quase deu certo...
Ele esta copiando, mas em cima do que esta gravado.
Gostaria que copiasse para a primeira linha vazia...
VAleu! | |
|
| | |
leandro3s
Mensagens : 7
Data de inscrição : 09/04/2012
| | Assunto: Re: Copiar dados de diferentes celulas Qui Abr 19, 2012 6:01 pm | |
| Tenta este: - Código:
-
Sub copiarvalores()
Sheets("controle diário").Select
Range("F6,H6").Select
Range("H6").Activate
Selection.Copy
Sheets("resumo mensal").Select
'seleciona A1 da plan "resumo mensal"
Range("A1").Select
'aperta ctrl+seta pra baixo pra localizar ultima celula digitada
Selection.End(xlDown).Select
'desce uma linha
ActiveCell.Offset(1, 0).Select
'cola os valores copiados
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6").Select
Sheets("controle diário").Select
Range("F6").Select
Application.CutCopyMode = False
End Sub Obs: Esta linha do código 'Range("A1").Select' está identificando a coluna A como se fosse a primeira coluna com informações na plan Resumo Mensal, caso na sua planilha não seja a coluna A a primeira coluna com dados, é só modificar o valor de A1 para a coluna correta... B1, C1, D1 etc... | |
|
| | |
Jaime Rib.Preto
Mensagens : 10
Data de inscrição : 18/04/2012
| | Assunto: Re: Copiar dados de diferentes celulas Ter Abr 24, 2012 6:24 pm | |
| Olha amigo... eu fucei de todo jeito no codigo e nao consegui adaptar...
Do jeito que ficou, já me ajudou demais... valeu mesmo!
{}´s
Jaime
| |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Copiar dados de diferentes celulas Sex Abr 27, 2012 2:35 pm | |
| Bom dia!!
Jaime Rib.Preto, eu preciso do seu arquivo para te ajudar.. | |
|
| | |
José Mário
Mensagens : 3
Data de inscrição : 22/08/2012
| | Assunto: Copiar dados de diferentes celulas Qua Ago 22, 2012 8:06 pm | |
| Olá Jaime eu estou com problema parecido com o seu, mas ainda não resolvi, olha eu tenho esse código ver se te ajuda.
Você abre vba pla1 e cola, coloque um botão para você dar o comando assim fica mais fácil. Espero ter te ajudado.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PlanilhaDestino As Worksheet
Set PlanilhaDestino = ThisWorkbook.Worksheets("Plan2")
Target.EntireRow.Copy PlanilhaDestino.Range(Target.Address).EntireRow
End Sub | |
|
| | |
Jaime Rib.Preto
Mensagens : 10
Data de inscrição : 18/04/2012
| | Assunto: Resolvido Qui Ago 23, 2012 1:00 am | |
| Depois de muito apanhar, consegui fazer funcionar do jeito que preciso... Grato a todos que ajudaram.  | |
|
| | |
Pexis
Mensagens : 2
Data de inscrição : 09/09/2012
| | Assunto: Re: Copiar dados de diferentes celulas Dom Set 09, 2012 6:39 am | |
| nem precisa de macro, se o nome das planilhas (abas) forem soh numero dos dias é soh usar A1 =INDIRETO(LIN(A1) & "!F6") e B1 =INDIRETO(LIN(A1) & "!H6") e copiar td pra baixo, se for diferente tem q fazer uma lista pra correlacionar e se tiver espaços tem q usar os ' ex: 'nome com espaço' | |
|
| | |
Conteúdo patrocinado
| | Assunto: Re: Copiar dados de diferentes celulas | |
| |
|
| | |
| | Copiar dados de diferentes celulas | |
|
