Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Copiar dados de diferentes celulas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Jaime Rib.Preto



Mensagens : 10
Data de inscrição : 18/04/2012

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
leandro3s



Mensagens : 7
Data de inscrição : 09/04/2012

MensagemAssunto: 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?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jaime Rib.Preto



Mensagens : 10
Data de inscrição : 18/04/2012

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
leandro3s



Mensagens : 7
Data de inscrição : 09/04/2012

MensagemAssunto: 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jaime Rib.Preto



Mensagens : 10
Data de inscrição : 18/04/2012

MensagemAssunto: Re: Copiar dados de diferentes celulas   Qua Abr 18, 2012 10:51 pm

Legal... vou testar e depois dou retorno.

Valeu!

Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jaime Rib.Preto



Mensagens : 10
Data de inscrição : 18/04/2012

MensagemAssunto: 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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
leandro3s



Mensagens : 7
Data de inscrição : 09/04/2012

MensagemAssunto: 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...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jaime Rib.Preto



Mensagens : 10
Data de inscrição : 18/04/2012

MensagemAssunto: 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

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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..
Voltar ao Topo Ir em baixo
Ver perfil do usuário
José Mário



Mensagens : 3
Data de inscrição : 22/08/2012

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jaime Rib.Preto



Mensagens : 10
Data de inscrição : 18/04/2012

MensagemAssunto: Resolvido   Qui Ago 23, 2012 1:00 am

Depois de muito apanhar, consegui fazer funcionar do jeito que preciso...

Grato a todos que ajudaram.

Smile
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Pexis



Mensagens : 2
Data de inscrição : 09/09/2012

MensagemAssunto: 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'
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Copiar dados de diferentes celulas   Hoje à(s) 9:56 am

Voltar ao Topo Ir em baixo
 
Copiar dados de diferentes celulas
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Criar vários objetos em direções diferentes?
» Como criar base de dados?
» Como inserir dados no MEIO de um arquivo txt
» [Dúvida/Resolvido]Disparar tiro em 4 posições diferentes do sprite de um objeto
» Definir sprites dos players diferentes

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: