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 | 
 

 Macro para copiar para values

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
CJCM



Mensagens : 35
Data de inscrição : 11/07/2014
Idade : 37
Localização : Lisboa

MensagemAssunto: Macro para copiar para values   Sex Jul 18, 2014 8:03 pm

Boa tarde,

Gostava de saber que macro devo fazer para passar os valores de uma coluna (que estão com uma fórmula) para values?
Ou seja, a coluna P5:P10 está com fórmulas, e preciso encontrar uma macro que esteja associada a um botão e que o utilizador antes de gravar o ficheiro passe essa coluna para values ou então se for mais fácil que passe toda a sheet para values.

Obrigado

CJCM

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: Macro para copiar para values   Sex Jul 18, 2014 10:26 pm

Boa tarde!!

Tente assim..
Código:
Sub AleVBA_834()
    Range("P5:P10").Value = Range("P5:P10").Value
End Sub


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



Mensagens : 35
Data de inscrição : 11/07/2014
Idade : 37
Localização : Lisboa

MensagemAssunto: Re: Macro para copiar para values   Seg Jul 21, 2014 11:52 am

Entretanto surgiu-me um problema, quero que se passe para values células específicas que vão variar com uma data (Ver link em baixo com ficheiro exemplo).
Na linha superior existem datas, e por baixo fórmulas, que apenas devem passar para values se a data correspondente for igual ao dia em que é feito o carregamento, ou seja, a data que se encontra na célula F1. Isto para que não se percam as fórmulas da linha 4 e todos os dias em que é feito um carregamento o usuário tenha a fórmula. Assim, se hoje é dia 20/07/2014, só devem estar em values as células de C4 a F4.

Espero ter sido clara.

Obrigado pela ajuda

http://we.tl/myqpJyGNPw
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: Macro para copiar para values   Seg Jul 21, 2014 2:46 pm

Bom dia!!

faça os testes
Código:
Sub AleVBA_834V2()
Dim iCell As Range
For Each iCell In ActiveSheet.Range("C3:J3")
    If iCell.Value = Range("F1").Value Then
        iCell.Offset(1, 0).Select
        ActiveCell.Value = ActiveCell.Value
    End If
Next iCell
End Sub

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



Mensagens : 35
Data de inscrição : 11/07/2014
Idade : 37
Localização : Lisboa

MensagemAssunto: Re: Macro para copiar para values   Seg Jul 21, 2014 7:30 pm

Se for apenas uma linha resulta, mas imagine que têm várias linhas e quer que a macro percorra todas e proceda da mesma forma?

Obrigado

CJCM
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: Macro para copiar para values   Seg Jul 21, 2014 7:32 pm

Boa tarde!!

Por favor poste seu arquivo modelo!!!!!!!!


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



Mensagens : 35
Data de inscrição : 11/07/2014
Idade : 37
Localização : Lisboa

MensagemAssunto: Re: Macro para copiar para values   Seg Jul 21, 2014 7:35 pm

http://we.tl/T7L8sCn1p9

Obrigado pela sua ajuda!
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: Macro para copiar para values   Seg Jul 21, 2014 7:47 pm

Boa tarde!!

mas e esse espaço com mais dados embaixo, esse espaço tem que existir?

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



Mensagens : 35
Data de inscrição : 11/07/2014
Idade : 37
Localização : Lisboa

MensagemAssunto: Re: Macro para copiar para values   Seg Jul 21, 2014 7:55 pm

No ficheiro original existem vários quadros e em todos eles deve acontecer o mesmo. Posso no entanto fazer uma macro para casa quadro.
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: Macro para copiar para values   Seg Jul 21, 2014 8:37 pm

Boa tarde!!

Veja se ajuda
Código:
Sub AleVBA_834V3()
Dim iCell As Range

For Each iCell In ActiveSheet.Range("C3:J3")
    If iCell.Value = Range("F1").Value Then
        iCell.Offset(1, 0).Select
        ActiveCell.EntireColumn.Copy
        ActiveCell.EntireColumn.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    End If
Next iCell
Application.CutCopyMode = False
End Sub

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



Mensagens : 35
Data de inscrição : 11/07/2014
Idade : 37
Localização : Lisboa

MensagemAssunto: Re: Macro para copiar para values   Ter Jul 22, 2014 12:38 pm

Bom dia,

Já resultou.

Muito obrigado pela sua ajuda.

Atentamente,

CJCM
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: Macro para copiar para values   Ter Jul 22, 2014 2:15 pm

Bom dia!!

Eu fico feliz em ajudar, obrigado pelo retorno!

Att Laughing 
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro para copiar para values   Hoje à(s) 5:44 pm

Voltar ao Topo Ir em baixo
 
Macro para copiar para values
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Setas para ir para cima e para baixo
» Link para redirecionar para a ficha de personagem
» Eu Amo Essa Série - Homenagens
» Como copiar as regras para bloco de notas
» Pergunta : Como copiar os jogos da Minha Pasta JAVA para o Pc??

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: