SETLINKONDATA PARA VBA EXCEL 2003 PARA BAIXO ???

VILMARBR 22/09/2010 12:14:45
#353586
SetLinkOnData para VBA (Excel 2003 para baixo) ???
Tem como fazer isto?
Ou só em versões de VBA que implemententem VB.Net , seria a partir do Excel 2007, isto ???

Método WorkbookBase.SetLinkOnData (Microsoft.Office.Tools.Excel)
http://msdn.microsoft.com/pt-br/library/microsoft.office.tools.excel.workbookbase.setlinkondata.aspx

Objetivo de usar este método seria para executar um método toda vez que um link DDE atualiza-se os dados numa planilha excel.

Grato.
VILMARBR 09/02/2011 13:14:44
#364835
Vi esta solução em outro fórum e parece que atendeu ao que precisavam, sem usar o SetLinkOnData :


Tem como sim!

Vá na parte de VBA e coloque o seguinte código na planilha onde ficam as cotações (não coloque nos módulos):

[txt-color=#0000f0]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range([Ô]K7:K21[Ô])) Is Nothing Then
On Error Resume Next

L = Range([Ô]K[Ô] & Target.Row).Value

Range([Ô]N[Ô] & Target.Row).Value = [Ô]=SPIN|COTC![ô][Ô] & L & [Ô],LAST[ô][Ô]

End If
End Sub[/txt-color]


Cada vez que houver alterações nas células entre K7 e K21, o código será colocado na mesma linha da coluna N.

Lembrando que este é para cotações Spinelli, altere para o Profichart
Tópico encerrado , respostas não são mais permitidas