marlonrrosa

Ao apertar o botão OK gostaria que os dados das textbox do formulário DEVOLUCAO fossem lançados no BD_HISTORICO mas nos seus devido lugares... Entendeu? ehehe O numero que estiver no CHAVEbox seria pesquisado quando apertasse OK e lançaria ao lado desse numero todos os dados das textbox do userform.

Meu objetivo não era complicar tanto, mas como sou novo nessa área ficou assim. O BD_Control seria temporário mesmo, só pra quando eu tentar retirar a mesma chave o sistema não autorizar pois já está fora. Claro se tiver uma ideia melhor estou aberto para opiniões. E no caso do botão OK, ele funciona mas não como eu gostaria, pois ele está jogando os dados sempre na linha vazia e não ao lado do numero da chave que está sendo devolvida... Aguardo respostas. Obrigado!

Vou explicar mais detalhadamente. As chaves podem ir e voltar com qualquer um, isso é o de menos. Unica coisa que eu preciso é que na hora de devolver sendo ou nao a mesma pessoa que pegou a chave, clicando em OK ela preencha o lado do numero da chave que está sendo devolvida onde o numero dela está na coluna G da aba BD_HISTORICO. Os dados serão inseridos a partir da coluna H até a M, conforme os textbox do userform DEVOLUCAO. Creio eu q o problema chave se encontra no botão OK. Vou anexar a planilha como você me pediu, já estão os dados inseridos, você precisa apenas acompanhar a aba BD_HISTORICO enquanto usa o userform DEVOLUCAO. Tente começar devolvendo a chave 02 para voce entender o bug. Cópia de CONTROLE DE CHAVE.xlsm

Não entendi muito bem. Tens como colocar na planilha e deixar um comentário onde você editou? Assim eu aprendo melhor. hehehe

Preciso que voce faça um teste. Faz a saída de uma chave qualquer (exemplo a 01), até ai ok, depois faça outra saída, pode ser a chave 05... depois disso tente ir em devolução e coloque a devolução da 2ª chave (no caso a 05). O que está acontecendo é q ele ao invés de colocar a devolução da chave 05 ao lado da 05 não... ele está colocando nas colunas vazias, no caso iria registrar a devolução da 05 ao lado da 01... Eu gostaria q ele colocasse do lado da 05.... Obrigado pelo apoio.

Meu problema está no histórico. Quando coloco a devolução ele está colocando na linha vazia e não na linha do lado da chave que está devolvendo. Entendeu? A princípio é só isso. O resto eu consigo ajeitar. Se tu conseguir brilhar um código aí fico muito feliz ehhehehehe abraços obrigado.

Entendi o motivo de você não ter entendido. Como diz o titulo do tópico, "Controle de chave vba excel", você provavelmente não deve ter visto que existe varios userforms por "trás" de todas as tabelas. Minhas dúvidas estão no VBA. Obrigado.

Hehehehe. Ok Preciso da saída e da devolução com histórico. Esqueci de frisar isso. Obrigado.

Boa tarde a todos, Comecei um projeto no execl em VBA para controlar as chaves do setor onde eu trabalho, pois tenho um claviculário sob minha responsabilidade. Mas por falta de conhecimento e experiência, talvez eu tenha feito algo errado na organização do banco de dados, pois cheguei em um ponto que não consigo mais desenvolver ou ter ideia para continuar. Gostaria de um apoio. Vou anexar a tabela aqui. CONTROLE DE CHAVE3.xlsm

osvaldomp. Era exatamente isso que eu queria. VALEEEEUUU!

Exatamente. SICOCA.xlsm Retirei o comando fullscreen.

Esse código funcionou, mas não é o que eu precisava. O pessoal cadastrado não pode mudar de número, pois esse código gerado é para localizar o arquivo fisico de cada um. Preciso que ele realmente crie um número que não está sendo usado de 1 a 750 (numero de pastas fisicas arquivada no setor) sem repetir. Obrigado!

Não sei onde posso inserir esse comando. Vou disponibilizar uma amostra do meu arquivo. Obrigado! SICOCA.xlsm

Este é meu primeiro post no forum e estou com uma dúvida. Estou usando este comando: CODBOX = Application.WorksheetFunction.CountA(Plan2.Columns(1)) onde o CODBOX é meu textbox com o código gerado automaticamente, até ai tudo tranquilo. E tenho um botão de excluir assim: MSG = MsgBox("CONFIRMA A EXCLUSÃO?", vbOKCancel, "ATENÇÃO") If MSG = 1 Then Dim CORR As Single CORR = CODBOX B = Application.WorksheetFunction.Match(CORR, Plan2.Columns(1), 0) Plan2.Rows(B).Delete Shift:=xlUp CANCELButton_Click Está tudo funcionando 100% mas tem um detalhe que eu gostaria de modificar. Vou dar um exemplo: CODIGO NOME 1 JOAO 2 MARIA 3 PEDRO Então vamos supor que eu queira deletar a MARIA. Uso o botão excluir, ele exclui a linha 2 inteira, ok Mas quando eu gero um novo cadastro ele não está gerando com o CODIGO 2 mas sim com código 4 e assim por diante. Acredito que seja por causa deste linha de comando: CODBOX = Application.WorksheetFunction.CountA(Plan2.Columns(1)) Aguardo respostas! Obrigado!