Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Macro para copiar para values

Ir para baixo 
2 participantes
AutorMensagem
CJCM




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

Macro para copiar para values Empty
MensagemAssunto: Macro para copiar para values   Macro para copiar para values EmptySex 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

Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values EmptySex 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
Ir para o topo Ir para baixo
CJCM




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

Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values EmptySeg 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values EmptySeg 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
Ir para o topo Ir para baixo
CJCM




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

Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values EmptySeg 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values EmptySeg Jul 21, 2014 7:32 pm

Boa tarde!!

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


Att
Ir para o topo Ir para baixo
CJCM




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

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

http://we.tl/T7L8sCn1p9

Obrigado pela sua ajuda!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values EmptySeg Jul 21, 2014 7:47 pm

Boa tarde!!

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

Att
Ir para o topo Ir para baixo
CJCM




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

Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values EmptySeg 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.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values EmptySeg 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
Ir para o topo Ir para baixo
CJCM




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

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

Bom dia,

Já resultou.

Muito obrigado pela sua ajuda.

Atentamente,

CJCM
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values EmptyTer Jul 22, 2014 2:15 pm

Bom dia!!

Eu fico feliz em ajudar, obrigado pelo retorno!

Att Laughing 
Ir para o topo Ir para baixo
Conteúdo patrocinado





Macro para copiar para values Empty
MensagemAssunto: Re: Macro para copiar para values   Macro para copiar para values Empty

Ir para o topo Ir para baixo
 
Macro para copiar para values
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Macro para copiar dados de uma planilha e colar na última linha vazia de outra planilha
» Macro - Construir uma macro para inserir valores em um RANGE
» copiar e colar usando uma macro
» Macro copiar colar - folhas diferentes sem espaços
» Problema ao copiar objetos via macro

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: