Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Function ConfigPlan...
 
Notifications
Clear all

Function ConfigPlanilhasBase

 
2024 - VBA & Macros
Post Recente por bilokas 11 anos atrás
7 Posts
2 Usuários
0 Reactions
1,450 Visualizações
RSS
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Amigos, bom dia.

Como substituo o código abaixo por um que faça o mesmo, ou seja, que faça a mesma coisa mas com outra codificação.

Function ConfigPlanilhasBase() As Variant
Dim sNomeDasPlanilhas As String
    'Digite o nome das Planilhasonde os dados deverão ser procurados,separados por ponto-e-vírgula (;)
    sNomeDasPlanilhas = "contrato"   '<----- Informe as planilhas aqui
    Do While (Right(sNomeDasPlanilhas, 1) = ";")
        sNomeDasPlanilhas = Left(sNomeDasPlanilhas, Len(sNomeDasPlanilhas) - 1)
    Loop
    ConfigPlanilhasBase = Split(sNomeDasPlanilhas, ";")
End Function


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 13/12/2013 6:52 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Qual condição?

Att

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

 
Postado : 13/12/2013 7:03 am
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Obrigado por responder alexandrevba,

Então essa rotina pertence a um formulário de pesquisa. Estou tendo problemas na execução do meu projeto em outros computadores. No meu executa todo o projeto normalmente, mas quando abro em outros pcs o projeto da erro de compilação, segue em anexo o programa e a print onde o erro ocorre para o caso de alguém poder me ajudar.

Desktop.rar


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 13/12/2013 7:25 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Considerando que sua barra de progresso não existe faça os testes.

Att

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

 
Postado : 13/12/2013 7:37 am
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Testei aqui e continua dando erro de compilação na máquina de outros usuários. Basicamente qual a alteração que você fez?


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 13/12/2013 8:08 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

bilokas, isto acontece devido a Bibliotecas AUSENTES, nos PCs onde acontece o ERRO va na Janela do VBA e no Menu escolha Referencias e an Janela que abrir desabilite todas as Referencias que estão com a indicação de AUSENTE.

No meu PC apareceram varias, mas pode mudar de acordo com o PC, de uma olhada.
Referências Ausentes

Faça os testes e qq duvida retorne.

[]d

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

 
Postado : 14/12/2013 5:07 am
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Desculpe a demora no feedback Mauro, fiz o que você indicou e funcionou corretamente. Obrigado


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 16/12/2013 6:26 am
Forum Jump:
  Tópico Anterior
Próximo Tópico