Notifications
Clear all

Não consigo abrir formulário de pesquisa VBA

29 Posts
6 Usuários
0 Reactions
7,307 Visualizações
Josy
 Josy
(@josy)
Posts: 0
Trusted Member
Topic starter
 

Olá!
Gostaria de ajuda para resolver essa situação. Utilizo uma plan para realizar uma busca em mais de 25.000 números e a acrescentar. Não sei se o caso é de suplemento, de compatibilidade. A versão que está instalada no note que utilizo nesse momento, é o Excel 2013 e 2016, porém se o caso for de suplementos, não sei o que fazer para baixar. Desde já agradeço quem puder me ajudar.

Um abraço a tds

P.S: Queria colocar em anexo, mas não foi possível. É muito grande o arquivo. Se alguém precisar ver para solucionar, envio por e-mail.

Att
Josy Martins
Estamos tão preocupados c/ o q queremos ter, q ás vezes nos esquecemos d agradecer o q já temos. Afinal, gratidão significa q a energia recebida deve ser devolvida.
Feliz aqle q transfere o q sabe e aprende o q ensina.

 
Postado : 24/04/2018 8:45 am
(@klarc28)
Posts: 971
Prominent Member
 

Coloque o arquivo na nuvem e compartilhe o link. Dê mais detalhes.

 
Postado : 24/04/2018 8:51 am
Josy
 Josy
(@josy)
Posts: 0
Trusted Member
Topic starter
 

https://1drv.ms/x/s!Al5d1y-CnQPxi1qb-w_2e7eqZEOD

Att
Josy Martins
Estamos tão preocupados c/ o q queremos ter, q ás vezes nos esquecemos d agradecer o q já temos. Afinal, gratidão significa q a energia recebida deve ser devolvida.
Feliz aqle q transfere o q sabe e aprende o q ensina.

 
Postado : 24/04/2018 6:55 pm
(@klarc28)
Posts: 971
Prominent Member
 

Qual é a senha?

Tente inserir outro formulário e colocar o mesmo código.

 
Postado : 24/04/2018 7:51 pm
Josy
 Josy
(@josy)
Posts: 0
Trusted Member
Topic starter
 

Não tem senha nenhuma, e eu não consigo compartilhar essa coisa. Dá falha no OneDrive :roll: :shock: :? :x
Para Excel 2016, tem algo errado nessa linha de código:

With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"
????

Att
Josy Martins
Estamos tão preocupados c/ o q queremos ter, q ás vezes nos esquecemos d agradecer o q já temos. Afinal, gratidão significa q a energia recebida deve ser devolvida.
Feliz aqle q transfere o q sabe e aprende o q ensina.

 
Postado : 25/04/2018 7:36 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Compacta ao arquivo e coloca neste servidor

www.sendspace.com

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 26/04/2018 9:35 am
Josy
 Josy
(@josy)
Posts: 0
Trusted Member
Topic starter
 

https://www.sendspace.com/file/lm7lgh

Att
Josy Martins
Estamos tão preocupados c/ o q queremos ter, q ás vezes nos esquecemos d agradecer o q já temos. Afinal, gratidão significa q a energia recebida deve ser devolvida.
Feliz aqle q transfere o q sabe e aprende o q ensina.

 
Postado : 26/04/2018 11:43 am
(@mprudencio)
Posts: 2749
Famed Member
 

Sua Planilha esta com senha

Assim fica dificil alguem ajudar.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 27/04/2018 5:40 pm
Josy
 Josy
(@josy)
Posts: 0
Trusted Member
Topic starter
 

eita... desculpe... compartilhei o arquivo errado
https://www.sendspace.com/file/5omnh8

Att
Josy Martins
Estamos tão preocupados c/ o q queremos ter, q ás vezes nos esquecemos d agradecer o q já temos. Afinal, gratidão significa q a energia recebida deve ser devolvida.
Feliz aqle q transfere o q sabe e aprende o q ensina.

 
Postado : 27/04/2018 6:08 pm
Josy
 Josy
(@josy)
Posts: 0
Trusted Member
Topic starter
 

Qual é a senha?

Tente inserir outro formulário e colocar o mesmo código.

Boa noite!
Me desculpe por dizer q não tinha senha sem antes ter conferido. Acabei renomeando o arquivo e esquecendo de retirar o bloqueio. :shock: :mrgreen: :oops:
De qq forma, fico agradecida por sua atenção.

Um abraço

Att
Josy Martins
Estamos tão preocupados c/ o q queremos ter, q ás vezes nos esquecemos d agradecer o q já temos. Afinal, gratidão significa q a energia recebida deve ser devolvida.
Feliz aqle q transfere o q sabe e aprende o q ensina.

 
Postado : 27/04/2018 6:13 pm
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Olá, Josy! Tudo bem contigo?

1) Vc está usando variáveis declaradas early binding mas não fez referência às respectivas bibliotecas:
No VBE, em Ferramentas > Referências, role para baixo até encontrar e marque as bibliotecas: Microsoft ActiveX Data Objects Recordset 6,0 Library e Microsoft ActiveX Data Objects 6.1 Library

2) Verifique a sua ConnectionString na rotina "NomeMãe()", parece-me que não está ok...

3) É bem possível que também seu arquivo esteja corrompido: há dois objetos Workbook nele o que é impossível, um deles é a Plan1 que está aparecendo como um Workbook (veja os ícones no VBE, no alto, à esquerda). Seria melhor vc copiar suas macros e conteúdo para uma nova pasta de trabalho e eliminar esta (imagem anexa).

 
Postado : 27/04/2018 9:47 pm
Josy
 Josy
(@josy)
Posts: 0
Trusted Member
Topic starter
 

Olá, Edson. Agradeço suas dicas, mas ainda assim, não consegui resolver esse problema... :oops:

Att
Josy Martins
Estamos tão preocupados c/ o q queremos ter, q ás vezes nos esquecemos d agradecer o q já temos. Afinal, gratidão significa q a energia recebida deve ser devolvida.
Feliz aqle q transfere o q sabe e aprende o q ensina.

 
Postado : 30/04/2018 5:25 pm
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Boa noite, Josy!

Testei aqui com as seguintes alterações e funcionou:

1) marque apenas a biblioteca: Microsoft ActiveX Data Objects 6.1 Library

2) Verifique a ConnectionString na rotina "NomeMãe()", realmente há um erro nela:
Substitua:
.Provider = "Microsoft.JET.OLEDB.8.0"

Por:

.Provider = "Microsoft.JET.OLEDB.4.0"

3) Continuo insistindo que seu arquivo não está muito legal, está corrompido... quando tiver um tempo, migre tudo para um arquivo limpo, ok? (Não fiz isso aqui pq percebi que vc usa Smart Tag e também tem planilha com senha).

 
Postado : 30/04/2018 10:15 pm
Josy
 Josy
(@josy)
Posts: 0
Trusted Member
Topic starter
 

Boa noite, Josy!

Testei aqui com as seguintes alterações e funcionou:

1) marque apenas a biblioteca: Microsoft ActiveX Data Objects 6.1 Library

2) Verifique a ConnectionString na rotina "NomeMãe()", realmente há um erro nela:
Substitua:
.Provider = "Microsoft.JET.OLEDB.8.0"

Por:

.Provider = "Microsoft.JET.OLEDB.4.0"

3) Continuo insistindo que seu arquivo não está muito legal, está corrompido... quando tiver um tempo, migre tudo para um arquivo limpo, ok? (Não fiz isso aqui pq percebi que vc usa Smart Tag e também tem planilha com senha).

Obrigada, Edson, pela sua boa vontade em tentar ajudar. Só pra constar, eu encontrei essa planilha na internet, já faz bastante tempo... E fiz umas poucas alterações para se adequar as minhas necessidades. Não foi eu quem criou o código, pois pouco tempo tenho para me envolver com excel, logo, meus conhecimentos são bastante limitados. Mas, até os computadores da escola serem furtados, e termos de trabalhar com notebooks, com outra versão de office, essa planilha rodava perfeitamente (realizava a pesquisa e exportava dados repetidos). Meu computador pessoal tem o Office 2016, o do note, no trabalho é Office 2013. Agora, isso não roda mais. O que me deixa extremamente frustrada, a ponto de querer descer a máquina de escrever e o papel carbono da prateleira e voltar ao trabalho. É retrô, mas sempre funciona. rs De qq forma, agradeço.

Um abraço

Att
Josy Martins
Estamos tão preocupados c/ o q queremos ter, q ás vezes nos esquecemos d agradecer o q já temos. Afinal, gratidão significa q a energia recebida deve ser devolvida.
Feliz aqle q transfere o q sabe e aprende o q ensina.

 
Postado : 01/05/2018 12:38 pm
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

O que me deixa extremamente frustrada, a ponto de querer descer a máquina de escrever e o papel carbono da prateleira e voltar ao trabalho.

Não desista ainda! Calma!

Agora pergunto: vc tentou fazer as alterações que apontei acima? Te pergunto porque, alterando como descrito, pra mim funcionou normalmente tanto no Excel 2016. como no 2007.

De qualquer forma, baixe o arquivo já com as duas alterções do meu Google Drive: BuscaRemissiva_Planilhando (Josy).zip

 
Postado : 02/05/2018 7:02 am
Página 1 / 2