Excel VBA que roda automaticamente - macro com erro

Renato Aboim · 16 de setembro de 2018

Oi Pessoal.

Eu utilizo o código abaixo para copiar as fórmulas da linha anterior:

Sub copiarformulas()
Dim mynum As Integer
For mynum = 1 To 10000
If ActiveCell.Address = Range("A" & mynum).Address Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(0, 2).Select
Range(ActiveCell, ActiveCell.Offset(1, 10)).Copy Destination:= _
Sheets(1).Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next mynum
End Sub

No link https://www.funcaoexcel.com.br/macro-que-roda-automaticamente/ eu vi que é possível fazer a macro rodar automaticamente, sem ter que apertar o ALT+F8:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Me.Cells) Is Nothing Then Exit Sub
 MsgBox "Algo mudou!"
 End if
End Sub

Agora, quando junto tudo, não funciona:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mynum As Integer
For mynum = 1 To 10000
If ActiveCell.Address = Range("A" & mynum).Address Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(0, 2).Select
Range(ActiveCell, ActiveCell.Offset(1, 10)).Copy Destination:= _
Sheets(1).Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next mynum
End Sub

Onde estou errando? Em anexo está a planilha com a 1ª fórmula, funcionando ao apertar ALT+F8.

Obrigado

copiar formula anterior.zip

CasaDoHardware · 16 de setembro de 2018

Ja tentou usar o recurso tabela?

Renato Aboim · 16 de setembro de 2018

Sim, a planilha que utilizo contém tabelas para essas automações, porém a quantidade de linhas é enorme e a planilha ficou demasiadamente lenta e pesada. Ela chega a ficar 1 minuto para processar tudo. Então estou tentando fazer a mesma coisa com vba, que imagino ser mais rápido.