Rafael nunes da silva

Midori boa noite, não entendi como faço para descrever essas subs Activate/Deactivate la na pastaDeTrabalho. deixei um arquivo em anexo para ver como estão os códigos da minha planilha para ter uma ideia, eu fiquei meio perdido nessa. activate e deactivate.rar

Olá, possuo uma planilha de estoque com varias macros, muitas auxiliadas aqui do fórum mesmo. porém sempre que estou utilizando ela ao abrir qualquer outro arquivo excel, os comandos passam a executar neste(s) outro(s) arquivo(s). mesmo que eu feche a planilha de estoque as macros continuam rodando normalmente (ex: desabilitando_teclas, mouse_off...) é normal isso? tem alguma alteração que faça as minhas macros rodarem apenas na planilha em que elas fazem parte sem dar esse conflito?

Boa tarde mais uma vez, gostaria de saber se tem como comparar e grifar itens de uma tabela conforme for for inserido em uma coluna através de um comando exemplo: tenho uma tabela com números de 1 à 99, se ao inserir o numero 25 na coluna "B", o numero 25 dentro da tabela fique grifado, informando que esse numero ja existe dentro da coluna "B" também gostaria de saber se essa tabela tem como ser em forma de um formulário, textbox... para que eu possa utilizar como uma tabela flutuante, ou seja onde o usuário estiver navegando ao clicar em qualquer célula essa tabela ou caixa fique visível deixei um exemplo em anexo. tabela pallets.7z

Boa tarde, possuo uma planilha onde insiro dados através de um formulário com duas textbox. o box Pallet inseri dados na coluna "B" o box Nº serie inseri dados na coluna "A" gostaria que ao preencher o box Pallet, esse dado fosse inserido também na célula "A1" da plan1 (somente nessa) ao mesmo tempo em anexo um exemplo da macro que uso e abaixo o código nela contido. Private Sub Button_Inserir_Click() Dim var_pallet As String Dim var_Nº_serie As String 'Buscar valores var_pallet = TextBox_Pallet.Value var_Nº_serie = TextBox_Nº_serie.Value 'Primeira linha da tabela Range("A2").Activate 'Selecionar próxima célula em branco Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Activate If TextBox_Pallet.Text = Empty Then MsgBox "INSIRA Nº PALLET" TextBox_Pallet.SetFocus Exit Sub End If 'Atribuir valores a tabela ActiveCell = var_Nº_serie ActiveCell.Offset(0, 1).Activate ActiveCell = var_pallet 'Zerar valores do formulário TextBox_Nº_serie.Text = "" 'Voltar cursor para primeiro textbox TextBox_Nº_serie.SetFocus End Sub inserir teste.7z

Funcionou certinho @Midori, muito obrigado

Boa tarde, possuo uma planilha onde são inseridos itens em um banco de dados através de uma inputbox. ao dar enter o item é inserido na coluna "A" um após o outro, e um por um. é possível ao clicar enter, esse item ser inserido duplicado? ou seja ser inserido duas vezes com um único enter? por exemplo, o item ser inserido na célula "A2 e A3", o próximo item ser inserido na "A4 e A5", o seguinte na "A6 e A7" e assim por diante... deixei um modelo zipado para auxiliar. se alguém puder dar essa força. INSERIR DUPLICADO.7z

@Midori funcionou certinho, muito obrigado pela ajuda

Olá boa noite, possuo uma planilha de estoque na qual itens são inseridos através de uma inputbox. Essa inputbox contem dois textbox, onde são informados pallet e item, juntamente com 1 botão para inserir e outro para remover. Gostaria de saber um código para exibir um contador automático nesse inputbox, dos itens que forem sendo inseridos no campo item, e ao fechar e abrir novamente a inputbox esse contador seja zerado e comece novamente a contagem conforme vá sendo digitado novos itens. Deixei no anexo um exemplo da inputbox que estou usando, na qual o colega @Vics aqui do forum me auxiliou. Se alguém puder me ajudar agradeço desde já. INPUTBOX.rar

Boa tarde, consegui resolver o problema seguindo um tópico antigo aqui do fórum.

Oi Edson, agradeço a ajuda mas não resolveu para o meu caso. conforme eu entendi, ao ativar esse código simplesmente tudo fica desabilitado e a intenção é manter algumas opções como uso do enter, selecionar células e ctrl+c liberadas (apenas letras, números e leitor barcode bloqueados) . Aí nessa situação, a pessoa irá ter que desativar o código certo? mas, fazendo isso a inserção via leitor de código de barras voltará a ficar disponível, o que não poderá acontecer. Uma duvida, consigo bloquear uma coluna especifica, sem que trave a macro? por exemplo, manter bloqueada a coluna A (lá por formatar células/proteção), mas ao usar a inputbox conseguir inserir dados nela sem que de erro na macro.

Boa tarde, estou trabalhando em uma planilha onde são inseridos dados através de uma inputbox. Pergunta: é possível bloquear a inserção de dados diretamente nas células via leitor de código de barras, permitindo essa inserção unicamente pela inputbox? EX: já bloqueei a inserção por digitação pelas teclas (via inputbox não é afetado), mas se eu ler um código de barras diretamente na célula é inserido. Gostaria de bloquear isso, mas mantendo habilitado pela inputbox O objetivo disso é basicamente forçar o usuário a inserir os dados somente pela inputbox tanto via teclado quanto leitor.

show de bola funcionou muito bem, muito obrigado. Muito obrigado Osvaldo, funcionou direitinho porém me adaptei melhor com o código do colega acima por me parecer mais simples, mas ambas funcionaram muito bem. Sobre a curiosidade, eu apagava o código que desabilitava para poder configurar ou inserir mais ideias a planilha e na sequencia testava pois estou ainda criando ela. Nos próximos dias se tudo der certo finalizarei ela e liberarei para o pessoal no trabalho usar. Mais uma vez muito obrigado.

Boa tarde novamente, É possível rodar uma macro apenas em uma planilha somente, e na outra manter desabilitada? possuo um código em "EstaPasta_de_trabalho" para ao abrir a pasta bloquear as teclas e números com o objetivo de não haver digitação manual na Plan1, porém na Plan2 gostaria de manter essas teclas habilitadas Resumindo: o objetivo é manter bloqueado a digitação de teclas na Plan1 e liberado na Plan2 o código que uso é o seguinte Private Sub WorkBook_Open() Call Desabilitando_Numeros Call Desabilitando_teclas Call Mouse_Off Call Macro End Sub como faço para, ao abrir a Plan2 a digitação já esteja permitida? e ao voltar para a Plan1 esteja bloqueada?

Osvaldo, mais uma vez muito obrigado

Bom dia, preciso de uma ajuda com uma macro para pesquisar dados de outra planilha, se alguém puder me dar uma força. Criei uma uma pasta para controle de estoque onde na plan2 possuo um banco de dados que é abastecido item na coluna A e localização na coluna B. Na plan1 criei um botão para que, ao digitar a descrição do item na coluna A, se este estiver dentro da coluna A da plan2, me informe na coluna B a localização do mesmo baseado na informação contida na plan2. Caso não encontre o item, informe ao lado no campo localização "item não encontrado" e assim por diante, ou seja posso digitar varias linhas na coluna descrição e ao apertar o botão me retorne todas as localizações de uma vez (consulta em massa) OBS: consegui um código semelhante ao que preciso porém quando digito vários itens, a macro informa a localização somente da ultima linha digitada, o que inviabiliza a pesquisa deixei em anexo um modelo para se ter uma ideia TESTE.xlsx

perfeito funcionou, muito obrigado

Pois é não sei se tem como também, mas os input dos números no teclado comum consegui desabilitar, é somente os do NUMLOCK que não consigo. O objetivo é não permitir inserção de dados por digitação, somente por leitor de código de barras.

Boa noite, gostaria de saber se existe um código para desabilitar o teclado numero (NUMLOCK). Tenho uma planilha onde vou inserir dados somente através de leitor de código de barras e não quero que alguém possa inserir digitando manualmente. OBS: já possuo um código que desabilita as letras e números (no caso do notebook), porém não consigo desabilitar o teclado numero (no caso do desktop)

Perfeito, agora a macro flui normalmente muito obrigado.

Ou seja, gostaria de retirar o botão INSERIR da imputbox pois é desnecessário para essa planilha porém ao remover o botão a macro perde a função. no lugar desse botão colocarei outro botão que executará uma remoção de itens digitados

Realmente funcionou, eu estava digitando os itens na coluna C. falha minha. muito obrigado pela ajuda.

a principio, não está excluindo todos de uma vez por exemplo se eu tiver umas 10 células duplicadas ele exclui 5 e depois é necessário rodar a macro novamente para excluir o restante adicionado 4 minutos depois Oi Osvaldo, não sei se fiz correto mas ao rodar a sua macro ele não exclui o que tiver duplicado na coluna "A"

Oi @Vics ficou perfeito, só uma duvida na questão do inserir apos preencher o item, ao dar enter vai para o botão inserir e tem que dar enter novamente para ser inserido na planilha. como faço para, ao preencher o item, apenas 1 enter já insira na planilha? pergunto pois os dados serão inseridos através de um leitor de código de barras onde ao bipar o código ele já da o enter automático. Obs: na solução atual precisaria ser bipado o código de barras 2 vezes para inserir na planilha o que não poderia acontecer

Boa noite ao todos novamente, gostaria de saber se é possível ter uma macro que exclua itens duplicados que estejam em colunas diferentes, e ao excluir não mantem nenhum deles. até onde eu sei quando se exclui itens duplicados sempre fica um deles, nesse caso quero excluir os dois duplicados de vez para remover de uma planilha. deixei um exemplo em anexo. um abraço. DUPLICADOS.xlsx

Boa noite a todos, venho pedir mais uma ajuda a vocês é possível criar uma inputbox para inserir dados em massa? por exemplo, só acho inputbox que você insere 1 item de cada vez e a janela fecha necessitando abrir a input novamente para nova inserção. no meu caso gostaria de uma janela que permanecesse aberta, ou seja, digito um item, e ao dar enter a mesma insere na planilha e continua aberta para digitar o próximo item e sucessivamente a mesma ideia seria ao contrario, ao digitar tal item a inputbox exclui da planilha em anexo um exemplo do objetivo INPUTBOX.xlsx desde já agradeço.