Logo Hardware.com.br
Korgoth
Korgoth Novo Membro Registrado
18 Mensagens 1 Curtida

[Resolvido] Vlookup pastas diferentes / Macro

#1 Por Korgoth 03/09/2015 - 09:01
Bom dia, precisava de uma ajuda com uma macro que estou tentando fazer.

No caso eu terei uma planilha de busca (Consulta) com um campo para colocar manualmente 100 codigos ( no exemplo consta só alguns 5)

e ao clicar no botão *Buscar* ele iria coletar as informações correspondentes ao Codigo na coluna "Codigo" em uma outra pasta de trabalho completamente diferente que no exemplo seria a CadPeso.

Anexos

Walhart
Walhart Super Participante Registrado
185 Mensagens 65 Curtidas
#4 Por Walhart
03/09/2015 - 10:13
Desconfiei feliz.png

Aliás, eu dei uma olhada no arquivo inteiro e tem ... digamos... "muita macro pra pouco prazer". Vc mesmo quem fez ?

EDIT: Dei um tapa geral na ferramenta... por mais que vc sempre deva fazer do jeito que goste mais/deixe vc mais confortável, é legal ver como outras pessoas fariam a mesma coisa. Dá pra aprender um ou outro truque.

Segue arquivo em anexo

Anexos

Walhart
Walhart Super Participante Registrado
185 Mensagens 65 Curtidas
#6 Por Walhart
03/09/2015 - 14:30
anjinho.gif

Do jeito que está, o CadPeso tem que estar na mesma pasta que a planilha de consulta.
Pra mudar, tem que mexer exatamente nessa linha que vc disse, mas depende de onde (qual pasta) vc vai colocar o CadPeso.

Se ela vai ficar sempre na mesma pasta e só no seu computador, é só pegar o "caminho" da pasta.
(tipo no exemplo abaixo o caminho do arquivo Protecting é C:\Users\Administrator\Desktop )

Imagem

Aí vc cola esse caminho no lugar de ThisWorkbook.Path
Korgoth
Korgoth Novo Membro Registrado
18 Mensagens 1 Curtida
#7 Por Korgoth
04/09/2015 - 08:11
No caso se eu quiser colocar mais um "arquivo banco de dados" como o "CadPeso" seria basicamente faser uma copia do fncMain certo?

Eu tentei adicionar mais um arquivo que no caso seria o "Inventario" em uma "fncMain2" porem quando ele tenta procurar por exemplo o "Nome" do produto ele infelizmente retorna N/C

Será que é porque os "Codigos" tem repetencia ?
O Botão da Macro chega a Tremer
Korgoth
Korgoth Novo Membro Registrado
18 Mensagens 1 Curtida
#9 Por Korgoth
08/09/2015 - 12:37
Eu consigui fazer com que aparecesse no caso o nome do produto e também a quantidade de estoque que ele possui, porem tenho agora o problema que um mesmo "Código" tem repetência, dependendo de Filial e CD, teria como colocar para mostrar por exemplo:

Se eu selecionei da "Filial 24" puxar somente o estoque/nome correspondente a informação na "Base" da "Filial 24", e caso não tenha esse "Código" naquela Filial só mostrar nos campos como "Não Possui nesta Filial"...

O Exemplo da Base que eu "fiz" só contei algumas 30 linhas, porem o que eu tenho que trabalhar tem +/- 430mil, e vai de coluna A ~ CO, isso poderia atrapalhar muito na hora de fazer as buscas ?

Sem contar que além da CadPeso e Base de inventario tenho mais uma "Base" a incrementar que seria a de informações fiscais, porem eu não sei nem criar um exemplo dela, então vou tentar deixar ela por ultimo,

Obrigado por toda a ajuda.

Anexos

O Botão da Macro chega a Tremer
Korgoth
Korgoth Novo Membro Registrado
18 Mensagens 1 Curtida
#11 Por Korgoth
10/09/2015 - 08:22
Funcionou sim, perfeitamente boa.gif


Agora só falta a parte fiscal kkkk,

digamos que eu tenho que pegar os "Estados" (C10, C15) e cola-los em outra workbook
estou usando esse código, e até está funcionando.

Sub fncEstadoSF()

Dim lngLastCol, lngSecLastCol As Long
Dim wksOri As Worksheet
Dim wkbDes As Workbook
Dim wksDes As Worksheet

Set wksOri = ThisWorkbook.Worksheets("Consulta&quot
Set wkbDes = Workbooks.Open("C:\Users\paulo.roberto\Desktop\Testes\test2\SF01-Situacao_Fiscal_UF_UF.xlsm&quot
Set wksDes = wkbDes.Worksheets("Plan1&quot

With wksDes
lngLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column - 2
End With
wksDes.Cells(4, lngLastCol) = wksOri.Range("C10&quot


With wksDes
lngSecLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column - 2
End With
wksDes.Cells(6, lngSecLastCol) = wksOri.Range("C15&quot

End Sub


O problema começa que agora que eu colei os Estados nos seus respectivos campos na outra Workbook, preciso acionar um botão...

O ruim é que eu não tenho acesso a programação por se tratar de uma ligação ao DB interno da empresa...
O unico nome do botão que eu tenho é "Retângulo 1" e creio que sua macro tem o nome de "GeraLog" que deve puxar umas outras 15 macros em um mesmo botão

Alguma ideia de como acionar esse demonho ?

@Edit:

Acho que consegui acionar a macro
Application.Run ("Nome da Workbook.xlsm'!Nome da Macro&quot


Agora tenho que entrar com informação em um userform:
Username: Usuario
Password:
Database: Database

no caso o Username/Database ja tem informações em seus respectivos campos (não sei como ira se comportar com outros usuarios)
como eu colocaria somente a Senha, que ja fica em foco quando roda a macro, e "apertar" o botão Connect ?

Só lembrando que eu não sei os nomes dos campos de textbox, editor vba protegido por senha ... daa.png



Outro problema é o relatório que esse Workbook gera quando aciona as macros, por se tratar de DB interno, e lembrando ser fiscal, tem coisa pra kct, e chega a demora uns 10~15min pra gerar, isso daria algum problema com o código por "demorar" pra gerar o relatório e simplesmente recuperar nenhuma informação dps que eu use os vlookup em cima dele ?

Anexos

O Botão da Macro chega a Tremer
Walhart
Walhart Super Participante Registrado
185 Mensagens 65 Curtidas
#14 Por Walhart
10/09/2015 - 18:20
No caso totalmente teórico de vc querer quebrar a senha do VBA de algum Excel...
...primeiro vc precisa de um HEX Editor. Tem uns grátis por aí. Sugiro o XVI32 ou o HHD Hex Editor Neo.

Aí, seria apenas seguir esses passos:

1 - salva uma nova versão do arquivo como .XLS (aquela versão compatível com Excel 97-2003)
2 - abre o arquivo.XLS com o Hex Editor
3 - procure (com Ctrl+F ou CTRL+L) pelo texto DPB
4 - substitua esse texto DPB por DPX (é só digitar X em cima do B)
5 - salva e pode fechar o Hex Editor
6 - abre o arquivo, vai dar um erro (e vc clica em Sim)
7 - tenta abrir as macros, vai dar um erro doido várias vezes (sem pânico... é só ficar clicando em OK)
8 - vai nas propriedades e desclica a opção de proteger o projeto vba com senha
9 - pronto, já pode fingir que vc é um hacker

qualquer dúvida pode olhar o passo a passo (em ingrêis) aqui.

Mas como tudo isso é suposição, nem precisa se preocupar com esse processo todo.
anjinho.gifcadeado_alegrinho.gif
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal