Bom dia!!

Erro 100 ??

Cara poste seu arquivo modelo, tem como?

Att

Bom dia,

Como não tenho nada para testar aqui, enta isso:

Sub AtualizarDDE()
Dim i           As Long
Dim Ativo       As String
Dim wsParam     As Worksheet
Dim Extencao()

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

Extencao = Array(".abe", ".max", ".min", ".ult", ".qtt", ".neg", ".fec", ".var")
Set wsParam = ThisWorkbook.Worksheets("Parameters")
Linha = 3

    Do While Ativo <> 0
        Ativo = wsParam.Cells(Linha, 1).Value
        For i = 2 To 9
            wsParam.Cells(Linha, i).Value = "=TZ|" + Ativo + Extencao(i - 1)
        Next i
        Linha = Linha + 1
    Loop

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Qualquer coisa da o grito.
Abraço

Pessoal agradeço antecipadamente mas não deu certo ainda!

Vejam:

http://www.4shared.com/file/cFzrfaZXba/forum.html

Não entendi muito bem porque não conheço a finalidade da planilha, mas funcionou:

Sub AtualizarDDE()
Dim i           As Long
Dim Linha       As Long
Dim Ativo       As Variant
Dim wsParam     As Worksheet
Dim Extencao()  As Variant

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

Linha = 3
Set wsParam = ThisWorkbook.Worksheets("Parameters")
Ativo = wsParam.Cells(Linha, 1).Value
Extencao = Array(".abe", ".max", ".min", ".ult", ".qtt", ".neg", ".fec", ".var")

    Do While Ativo <> 0
        Ativo = wsParam.Cells(Linha, 1).Value
        For i = 2 To 9
            wsParam.Cells(Linha, i).Value = "TZ|" & Ativo & Extencao(i - 2)
        Next i
        Linha = Linha + 1
    Loop

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Qualquer coisa da o grito.
Abraço

Tenta assim:

Sub AtualizarDDE()
Dim i           As Long
Dim Ativo       As String
Dim wsParam     As Worksheet
Dim Extencao()

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

Extencao = Array(".abe", ".max", ".min", ".ult", ".qtt", ".neg", ".fec", ".var")
Set wsParam = ThisWorkbook.Worksheets("Parameters")
Linha = 3

    Do Until IsEmpty(wsParam.Cells(Linha, 1))
        Ativo = wsParam.Cells(Linha, 1).Value
        For i = 2 To 9
            wsParam.Cells(Linha, i).NumberFormat = "@"
            wsParam.Cells(Linha, i).Value = "=TZ|" & Ativo & Extencao(i - 1)
        Next i
        Linha = Linha + 1
    Loop

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Agora apareceu "Subscrito fora do intervalo"

De qual?

wsParam.Cells(Linha, i).Value = "=TZ|" & Ativo & Extencao(i - 1)

Enviei uma nova atualização no meu último post com mais correções. está -2
tenta ele.

Bernardo, o seu código funciona, só tem um detalhe:

Nesta linha:
wsParam.Cells(Linha, i).Value = "TZ|" & Ativo & Extencao(i - 2)

o correto é "=TZ|", assim:

wsParam.Cells(Linha, i).Value = "=TZ|" & Ativo & Extencao(i - 2)

e quando faz isso, dá problema de novo, dando o erro 1004 erro na definição do objeto

Se colocar um "=" (sinal de igual) na frente o Excel interpreta como uma fórmula, e essa fórmula não existe no Excel e também não existe essa fórmula nomeada.

Caso tenha realmente a necessidade de aparecer esse "=" e realmente não for uma fórmula, deixe assim:

wsParam.Cells(Linha, i).Value = "'=TZ|" & Ativo & Extencao(i - 2)

Qualquer coisa da o grito.
Abraço

é uma formula na verdade! ela remete a um link dde
a formula seria essa:
=TZ|código.condição

sendo que tz é o nome do programa. desta forma como vc colocou, fica uma aspa no começo da formula e ela deixa de ser formula.

se fizer manualmente funciona, mas é inviavel fazer em tantas linahs e colunas e o tempo todo

Tenta assim então:

wsParam.Cells(Linha, i).FormulaLocal = "=TZ|" & Ativo & Extencao(i - 2)

Qualquer coisa da o grito.
Abraço

nada ainda! podemos fazer assim:

chegamos até aqui:

'=TZ|BBDC4!neg nos valores de células
é possivel tirar a crase na marra pelo vba e deixar só o =TZ|BBDC4!neg ?