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 | 
 

 copia formulas e colar usando macro

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



Mensagens : 10
Data de inscrição : 22/03/2012

MensagemAssunto: copia formulas e colar usando macro   Dom Abr 15, 2012 3:43 am

Boa noite, a algus dias o Alexandre me ajudou enviando um codigo que ao inserir dados em A3 copia formulas que estão na b2 a e2 e cola em b3 a e3, acontece que sé esta colando os valores e o ideal seria colar as formulas, da pra adaptar?


Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngLoopRange As Range

On Error GoTo ErrorHandler

Application.EnableEvents = False

If Intersect(Target, Range("A:A")) Is Nothing Then GoTo CleanExit

For Each rngLoopRange In Intersect(Target, Range("A:A"))

If rngLoopRange.Value <> "" Then
rngLoopRange.Offset(, 1).Resize(, 4).Value = Range("b2:e2").Value
Else
rngLoopRange.Offset(, 1).Resize(, 4).ClearContents
End If

Next rngLoopRange

CleanExit:
Application.EnableEvents = True
Exit Sub

ErrorHandler:
MsgBox Err & " - " & Err.Description
GoTo CleanExit

End Sub

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: copia formulas e colar usando macro   Seg Abr 16, 2012 12:15 am

boa noite!!

Faça um teste.
Substitua esta linha..

Código:
rngLoopRange.Offset(, 1).Resize(, 4).Value = Range("b2:e2").Value


Por esta
Código:
rngLoopRange.Offset(, 1).Resize(, 4).Value = Range("b2:e2").Formula
Voltar ao Topo Ir em baixo
Ver perfil do usuário
marcovalle01



Mensagens : 10
Data de inscrição : 22/03/2012

MensagemAssunto: Re: copia formulas e colar usando macro   Seg Abr 16, 2012 1:23 am

Obrigado pela ajuda, mudando a linha ele cola a formula mas não muda a referencia, ou seja calcula os dados que estão na linha dois e não na que eu estou preenchendo.
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: copia formulas e colar usando macro   Seg Abr 16, 2012 3:43 pm

Bom dia!!

Mande seu arquivo ....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
marcovalle01



Mensagens : 10
Data de inscrição : 22/03/2012

MensagemAssunto: Envio de arquivo   Seg Abr 16, 2012 10:45 pm

Boa tarde colega segue Endereço do site: https://sites.google.com/site/marcovalle01/
Arquivo: Ensaio Calculado SENSOR TEMPERATURA.rar
Voltar ao Topo Ir em baixo
Ver perfil do usuário
marcovalle01



Mensagens : 10
Data de inscrição : 22/03/2012

MensagemAssunto: Resolvido copiar e colar usando uma macro   Qua Abr 18, 2012 8:06 am

Boa noite, depois de procurar e estudar um pouco sobre VBA, acho que encontrei a solução,

gLoopRange.Offset(, 34).Resize(, 13).Value = Range("AI2:AU2").FormulaR1C1
Muito Obrigado pela 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: copia formulas e colar usando macro   Qui Abr 19, 2012 2:21 pm

Bom dia!!

Por favor mande seu arquivo para mim! farao
Voltar ao Topo Ir em baixo
Ver perfil do usuário
marcovalle01



Mensagens : 10
Data de inscrição : 22/03/2012

MensagemAssunto: Re: copia formulas e colar usando macro   Qui Abr 19, 2012 3:58 pm

Bom dia colega, acesse o seguinte endereço.

https://sites.google.com/site/marcovalle01 , la tem um arquivo de nome:

Ensaio Calculado SENSOR TEMPERATURA.rar

Mais uma vez muito obrigado pela ajuda
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: copia formulas e colar usando macro   Hoje à(s) 10:16 pm

Voltar ao Topo Ir em baixo
 
copia formulas e colar usando macro
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Cópia de links ao copiar e colar
» Escolher arquivo e copia-lo para outro lugar
» [tutorial] Usando time lines
» colar de protecçao polisport e cinta!
» SISTEMA ANTI COPIA

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: