Pessoal, podem em ajudar?
Por que esta macro, além de dar erro 100, está super lenta?
Sub AtualizarDDE()
Dim Ativo As String
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Linha = 3
Do While Ativo <> 0
Ativo = Worksheets("Parameters").Cells(Linha, 1).Value
Worksheets("Parameters").Cells(Linha, 2).Value = "=TZ|" + Ativo + ".abe"
Worksheets("Parameters").Cells(Linha, 3).Value = "=TZ|" + Ativo + ".max"
Worksheets("Parameters").Cells(Linha, 4).Value = "=TZ|" + Ativo + ".min"
Worksheets("Parameters").Cells(Linha, 5).Value = "=TZ|" + Ativo + ".ult"
Worksheets("Parameters").Cells(Linha, 6).Value = "=TZ|" + Ativo + ".qtt"
Worksheets("Parameters").Cells(Linha, 7).Value = "=TZ|" + Ativo + ".neg"
Worksheets("Parameters").Cells(Linha, 8).Value = "=TZ|" + Ativo + ".fec"
Worksheets("Parameters").Cells(Linha, 9).Value = "=TZ|" + Ativo + ".var"
Linha = Linha + 1
Loop
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Postado : 20/01/2015 7:47 am