Erro ao chamar função no Excel

[Maira Melo 0]

Olá a todos do Fórum!

Estou com alguns probleminhas no meu código no Excel. A função que eu coloquei no módulo coloca dois links (um em cada célula de uma planilha de laboratórios) e estas células vão p/ uma outra célula de uma outra planilha (tudo na mesma Pasta de Trabalho).

Só que quando eu vou chamar esta função pela combo, ele executa o código da função direitinho, mas quando acaba de executar dá este erro: "O objeto é obrigatório" e pára o programa. A Fução é:

 

CODE

Function Link_DoisDias(Dia1, Dia2)

Sheets("Laboratorios (2)").Select

Range(Dia1).Select

Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Rodrigo!C3", TextToDisplay:=Plan1.Name

Range(Dia2).Select

Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Rodrigo!C3", TextToDisplay:=Plan1.Name

End Function

E eu chamo a função na combo assim:

CODE

ElseIf cmbDiasD1.Text = "Segunda e Quarta" Then

 

'Verifica o valor 1ª da combo dos Labs

If cmbSala1.Text = "Lab1" Then

 

'Função que coloca os links na planilha dos labs

Link_DoisDias("B3", "J3")

 

'Troca a cor da célula

With Plan9.Range("B3").Interior

.ColorIndex = 15

.Pattern = xlSolid

End With

Valeu gente! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Anderson Roberto 0]

Toda função deve retornar algum valor.

Tente assim:

Sub Link_DoisDias(Dia1, Dia2)
   Sheets("Laboratorios (2)").Select
   Range(Dia1).Select
   Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Rodrigo!C3", TextToDisplay:=Plan1.Name
   Range(Dia2).Select
   Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Rodrigo!C3", TextToDisplay:=Plan1.Name
End Sub

[Maira Melo 0]

Eu já mudei pra procedimento, mas agora nem chega a executar esta função! :wacko:

Ele dá este erro agora: Erro de compilação: Era esperado Function ou variável

CODE

'Verifica o valor da 1ª combo dos dias

ElseIf cmbDiasD1.Text = "Segunda e Quarta" Then

 

'Verifica o valor 1ª da combo dos Labs

If cmbSala1.Text = "Lab1" Then

 

'Coloca o nome do professor na célula do Lab1

Link_DoisDias("B3", "J3", "Rodrigo!C3", Plan1) = True

'Troca a cor da célula

With Plan9.Range("B3").Interior

.ColorIndex = 15

.Pattern = xlSolid

End With

Obrigado pela ajuda!

[Anderson Roberto 0]

Não estou vendo a chamada para a Sub Link_DoisDias.

[Maira Melo 0]

Eu tinha colocado o código errado, mas agora já modifiquei. O erro é o mesmo e o pior é que nem executa a Sub da combo onde estou chamando a função.

[Anderson Roberto 0]

Poste o erro, a sub e a chamada dela.