Macro não roda no excel 2007

[JunauM911]

Boa noite, fiz esse arquivo com essas macros para preencher Ordens de serviço aqui da empresa, porém fiz em uma excel 2010 e roda lisinho, quando joguei para o servidor, excel 2007, dá um erro na macro, alguma boa alma com excel 2007 ou muito conhecimento poderia dar uma luz?

para quem quiser testar ou puder fazer bom uso.

http://www.4shared.com/file/0IHiKgn3/Ordem_1De_Servio_Matriz_-_Copy.html

só retirei os dados da empresa.

desde já muito obrigado a todos.

[zinhovba]

Boa tarde!!

Eu não consegui abrir seu arquivo, eu creio que o mesmo está corrompido.

Att

[JunauM911]

aqui funcionou de boa, compactei e reupei

http://www.4shared.com/rar/qRSGd3Y-/Ordem_1De_Servio_Matriz_-_Copy.html

[JunauM911]

fiz a depuraçao e deu problema nessa parte do código:

Public Sub OS()

Dim Nome As String

Dim SDate As String

Dim MyLocal As String

MyLocal = "\\SERVIDOR\servidor\ORDEM DE SERVIÇO 2013\"

Nome = "OS" + Range("N3").Value

SDate = Now

If Nome <> vbNullString Then

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"

Else

MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"

End If

If MsgBox("A ordem de serviço está correta?", vbYesNo, "titulo") = vbYes Then

Application.Dialogs(xlDialogPrint).Show

Worksheets("OS").Select

Range("U3") = Range("U3") + 1

Else

Worksheets("OS").Select

Range("U3") = Range("U3")

End If

End Sub

Descobri o Problema.

[Patropi]

Bom dia JunauM911

Se resolveu o problema, poste a solução.

Um abraço.

[JunauM911]

A opção para salvar em PDF direto, só está disponivel do office 2010 pra frente, então não ia funcionar mesmo.

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.