Abrir Arquivo xlsm com userform

Formulários

Post Recente por Fernando Fernandes 13 anos atrás

5 Posts

1 Usuários

0 Reactions

1,551 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Boa tarde Galera,

Estou trabalhando em um "Mini sitema de estoque" e empaquei na metade do projeto.

Na planilha de pedido tem um userform por nome de mascara onde um botão nomeado de recebimento. Esse botão ("Recebimento") deve abrir outro arquivo no diretório C:sistema de estoquerecebimento.xlsm

Parece simples, porém todos os métodos que tentei não funcionou. Poderiam me ajudar?

Estou aberto a sugestões quanto a formatação tambem... Acho que está ficando muito "pesado"

Antemão agradeço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 09/09/2011 11:10 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Veja se pode ser Assim:

no arquivo recebimento.xlsm crie um modulo e uma rotina

Public Sub abre_Book()
Cad_fornecedor.Show
End Sub

No Frm Mascara no On_Click do btn "Recebimento"

Private Sub CommandButton3_Click()
sDir = ThisWorkbook.Path & "Recebimento.xlsm" 'Aqui adeque ao seu Caminho
Workbooks.Open Filename:=sDir, UpdateLinks:=0
Call Application.Run("Recebimento.xlsm!Abre_Book")
End Sub

Reinaldo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 09/09/2011 11:58 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

O que é uma rotina?

quando o código é executado, vai para o depurador. não consigo executar.

sDir = ThisWorkbook.Path & "C:Sistema de Estoquerecebimento.xlsm"
Workbooks.Open Filename:=sDir, UpdateLinks:=0
Call Application.Run("Recebimento.xlsm!Abre_Book")

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/09/2011 6:28 am