copia formulas e colar usando macro

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

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

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.

Bom dia!!

Mande seu arquivo ....

Boa tarde colega segue Endereço do site: https://sites.google.com/site/marcovalle01/
Arquivo: Ensaio Calculado SENSOR TEMPERATURA.rar

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.

Bom dia!!

Por favor mande seu arquivo para mim!

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