Ir ao conteúdo
  • Cadastre-se

Macro não roda no excel 2007


JunauM911

Posts recomendados

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.

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...