Notifications
Clear all

Abrir janela de consulta

28 Posts
2 Usuários
0 Reactions
4,557 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite, amiguinhos do Excel!

Existe alguma forma de colocar um código de VBA q, ao dar um atalho (digamos, Ctrl E), abrisse uma janela com uma fórmula q eu fiz pra puxar um PROCV?

Segue o arquivo c/ a janelinha q eu gostaria q abrisse.

Só mais um detalhe: a janelinha aberta, mesmo q fosse aberta em outra aba da planilha, teria q puxar o PROCV do mesmo lugar.

Abraço

 
Postado : 29/03/2012 9:37 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pq vc simplismente não oculta esta planilha e cola o código abaixo num botão (ou usa o atalho ctrl +e)
O Código vai reexibir a plan oculta...

Sub Reexibir_Plan_Procv()
'
' Reexibir_Plan_Procv Macro
' Reexibe a Planilha com a Fórmula do Procv.

Sheets("Plan1").Visible = True
End Sub

Dê retorno por favor.

 
Postado : 29/03/2012 9:59 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Qual é a sua ideia pra usar um formula dessa forma, não entendi.. :?
Att

 
Postado : 30/03/2012 3:59 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Eu mudei sua ideia.
Ao abrir o arquivo onde estiver o cursor (célula ativa), e apertar umas das teclas de atalho, então uma das formulas será colocada na célula ativa!

Ctrl + y Ctrl + ç
Preço Estoque

 
Postado : 30/03/2012 5:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia, gente!

O negócio é o seguinte: eu tenho uma planilha c/ 12 abas divididas por mês, uma aba resumo e uma aba de estoque.
Cada mês eu lanço as vendas q eu faço.

O q eu tava pensando é: vamos supor q eu esteja c/ a plan de março aberta e eu queira informar pro cliente se tem um produto tal em estoque e o preço dele.
Em vez d'eu ir lá na plan de estoque pra usar essa minha caixinha da plan de exemplo q eu postei, digitar o código do produto e voltar pra plan de março pra lançar a venda, eu simplesmente desse o comando e pulasse uma janelinha tipo daquela "Hello World" q me permitisse lançar o código nela e fizesse a procura ali mesmo, sem sair da planilha de março.

Obrigado pela ajuda, abraço.

 
Postado : 30/03/2012 5:28 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Que tal...

Option Explicit


Public MyVal As String

Sub SuperFIND()
'Author:    Jerry Beaucaire
'Date:      8/13/2010
'Summary:   Searches all sheets for any text string, activates when found
Dim ws      As Worksheet
Dim vFIND   As Range

StartOver:
MyVal = Application.InputBox("Digite o nome", "Procura em todas as Planilha", MyVal, Type:=2)
If MyVal = "Falso" Then Exit Sub
On Error Resume Next

    For Each ws In Worksheets
        Set vFIND = ws.Cells.Find(MyVal, LookIn:=xlValues, LookAt:=xlPart)
        If Not vFIND Is Nothing Then
            ws.Activate
            vFIND.Select
            Set vFIND = Nothing
            Exit Sub
        End If
    Next ws
    
MsgBox "Não foi encontrado"
GoTo StartOver

End Sub
 
Postado : 30/03/2012 5:33 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Opa, Alexandre!

Valeu, mas eu não preciso procurar linha de texto.
Eu preciso é q uma caixinha do tipo "hello world" faça o mesmo papel do meu PROCV do exemplo q eu postei... =/

 
Postado : 30/03/2012 6:52 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Por ventura, o código que eu postei não procura oque você quer?

Então me mande a planilha que tem com várias guias, deixe um exemplo nela.

Creio que preciso de mais informação, imagine que tem 10 guias, você está na guia "X", precisa procurar algo que está na guia "A", mas.... ,

Na guia "X" tem um campo que você vai digitar um código de um produto, e vi buscar os dados do mesmo n guia "A".

Sem detalhes eu não vou poder fazer nada, todos devem ter notado que eu sou um cabeça oca, não entenda nada de primeira. :cry:

Att

 
Postado : 30/03/2012 7:20 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Enrico, veja se seria isto.

Teclas de Atalho : CTRL + SHIFT + E

Tag Pesquisa
Tela de Consulta - Teclas de Atalho

[]s

 
Postado : 30/03/2012 9:38 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Nuss, Mauro, vc entendeu direitinho o q eu tava pensando!
Só tem um problema: eu precisava q funcionasse procurando tanto pelo código da marca qt pelo código da loja. Tem como fazer isso?

Abraço

 
Postado : 31/03/2012 1:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Enrico, eu fiz baseado no que postou acima "digitar o código do produto".

Sim, é possível fazer de outras formas, a única coisa que não consegui fazer com VBA foi "ganhar dinheiro", rsrsrsrsrsr

Mas voltando a questão, precisaria entender a que se refere os termos "tanto e qto" na frase :
"procurando tanto pelo código da marca qt pelo código da loja";
Você quer dizer termos duas opções, uma pelo "Código da Marca" e outra pelo "Código da Loja", ou uma pesquisa com duas condições ? Nesta condição teriamos de alterar toda a lógica, pois teríamos mais de um resultado, uma vez que poderemos ter Códigos de Marcas diferentes, mas Códigos de Lojas iguais.

Se for opção, ou por um ou por outro é mais simples, é só adcionar mais algumas variaveis.
Uma outra coisa, se possível, para evitarmos incompatibilidades de tipos de dados com as declarações, você enviar um exemplo com alguns dados já preenchidos, mesmo que ficticios, pode ser que os que você utiliza sejam diferentes do exemplo que enviei.

[]s

 
Postado : 31/03/2012 1:49 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Dado fictício é o q mais tem na minha planilha, pq é capaz d'eu abrir esse meu novo negócio só lá pro fim do ano... hehehe
Vou postar ela inteira aqui, mas a parte q importa pra esse meu problema é só a aba "Controle de Estoque". Lá tem a caixinha c/ o PROCV q eu gostaria q funcionasse na janela q vc criou em VBA. Vc pode ver q se eu colocar o código da marca OU o código da loja, o PROCV acha o mesmo resultado.

Valeu a ajuda, cara!

Abraço

 
Postado : 31/03/2012 3:02 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Esse modelo faz o que você precisa.

ERICO, Baixe o anexo NOVAMENTE!

Dê retorno..abraços e at++++ ;)
Att

 
Postado : 01/04/2012 5:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Opa, Alexandre!
Corrigiu a questão de procurar simultaneamente, mas estragou a questão de abrir a caixa em qualquer plan e fazer a procura só da planilha de estoque... =/
Mas vi q o q vc fez tb não usou um código mais complicado, como o do Mauro. Como q vc fez?

Abraço

 
Postado : 01/04/2012 7:29 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Acontece que a ideia do Mauro, é melhor.

Enquanto isso vamos tentar por os detalhes que faltaram.

Att

 
Postado : 01/04/2012 9:45 am
Página 1 / 2