| Macro para copiar para values | |
|
|
Autor | Mensagem |
---|
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: 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
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: 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
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: 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 | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Macro para copiar para values Seg Jul 21, 2014 7:32 pm | |
| Boa tarde!!
Por favor poste seu arquivo modelo!!!!!!!!
Att | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: Re: Macro para copiar para values Seg Jul 21, 2014 7:35 pm | |
| http://we.tl/T7L8sCn1p9
Obrigado pela sua ajuda! | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: 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. | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: Re: Macro para copiar para values Ter Jul 22, 2014 12:38 pm | |
| Bom dia,
Já resultou.
Muito obrigado pela sua ajuda.
Atentamente,
CJCM | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Macro para copiar para values Ter Jul 22, 2014 2:15 pm | |
| Bom dia!! Eu fico feliz em ajudar, obrigado pelo retorno! Att | |
|
| |
Conteúdo patrocinado
| Assunto: Re: Macro para copiar para values | |
| |
|
| |
| Macro para copiar para values | |
|