Lamcarter

Boa Tarde, realmente já colocamos muito assunto nesse tópico, foram resolvidas inúmeras coisas. e, como falta pouquíssimo, vou abrir um somente com o que vem ocorrendo. TÓPICO RESOLVIDO. IMENSOS AGRADECIMENTOS

Caro Osvaldo, apenas atualizando o tópico, resta a pena o problema com a exclusão do código 01. Resolvido a parte de digitação na combobox, aprendi que alterando, na propriedade da combobox, o critério Style, ela não permite a digitação. Obrigado, pela atenção, somente atualizando o post. Atenciosamente, Eliezer

Boa tarde Osvaldo, Realmente você tinha razão, havia muita sujeira, ainda deve haver, mas eu não me prendo muito, desde que funcione, então para fazer funcionar, fiz uma limpa em todos os código, inserir observações sobre de onde eram os comandos, para facilitar oftalmologicamente, mas, também considerando que não tenho formação, ainda deve haver erros. Depois de revisado, em teste, localizei dois problemas: Formulário de exclusão: 01 - erro ao excluir o código01 Formulário de consulta 01 - erro ao digitar um nome que não existe nos registros. FORMULÁRIO DE EXCLUSÃO: O código, como você passou realmente, funcionou, em parte, pois ele realmente exclui e inclui os dados, desde que não seja o código 01, pois fui fazer testes e me deparei com esse erro, olha as telas: Problema ao excluir o código 01, aparece essa mensagem: FORMULÁRIO DE CONSULTA: Erro, formulário de consulta, ao digitar um nome que não há no cadastro: Desde já, agradecendo sua paciência, será que poderia me auxiliar. Atenciosamente, Advocacia Dativa ULTIMO - Erros.xls

Caro, Osvaldo, Agradecendo a atenção, informo que o código, parcialmente funcionou, pois os dados coletados no form5, são registrados apenas na primeira fez, aparentemente quando está incluindo a nova linha na planilha de registro, está sobrepondo os dados. Relativamente ao formulário de consulta, que foi o primiro implementado desse tópico, ao incluir a linha que você me passou: ' COMANDO PARA PESQUISAR E MOSTRAR OS DADOS ANTES DE EXCLUIR Dim k As Long, i As Long If ComboBox1.Value = "" Then Exit Sub i = 1 Percebi que se digitar uma letra de um nome que não exista, da aquele erro para depurar, será que tem como contornar? Atenciosamente, adicionado 0 minutos depois Opa faltou o a Planilha...... Advocacia Dativa Nomeações - Cível - Formulário Exclusao - Perguntas 97.xls

EU ESTOU QUASE LÁ - RSRS Quase, falta pouco, consegui fazer uma rotina, eu na verdade queria que os dados como nome, data e motivo, fossem confirmados depois, mais não consegui fazer, consegui invertendo os formulários, primeiro o usuário informa os dados, no entanto, os dados estão sendo gravados (na primeira etapa) corretamente, mas estão sendo sobrepostos na Segunda Etapa. Outra a Rotina de exclusão está num Loop que eu não sei como por fim. Se puderem ajudar fico grato. Advocacia Dativa Nomeações - Cível - Formulário Exclusao - teste - Perguntas.xls

Muito Obrigado mesmo caro Osvaldo, demorei um pouco para entender a lógica das colunas, mas é bem isso que eu queria. Seria muito pedir uma explicação para um leigo, como funciona essa parte ".Cells(k, i): i = i + 1"? Aproveitando, como é sobre a mesma planilha e do mesmo assunto, não vou abrir novo tópico, estou na última parte, a parte da exclusão, nesse caso tem um porém, na verdade eu quero excluir na planilha de nomeações, mas colar os dados em uma planilha que registrará todas as saídas de nomes da lista. Fiz os formulários, inclusive agora sabendo fazer essa parte de escolher na listBox e até o botão da exclusão, com os dados de quem está excluindo e os motivos, criei a planilha de REGISTRO DE EXCLUSÃO onde quero transpor os dados: poderia me ajudar com o seguinte: Clicando em excluir, escolhe o nome, clica em excluir da lista, vai para o formulário de dados obrigatórios, quando clicar em excluir novamente, o sistema seleciona a linha do nome que foi escolhido copia, cola na linha 05 da planilha do registro de saídas, juntamente com os dados digitados no formulário de confirmação de exclusão, adiciona uma linha na linha 05, para ser sempre colada nela e os excluídos irem descendo e excluir de fez da planilha de cadastro dos advogados. será que me fiz entender? Novamente, muito, muito obrigado pelo tempo dedicado, é de muita valia, segue a planilha Advocacia Dativa Nomeações - Cível - Formulário Exclusao - Perguntas .xls

Pessoal, boa tarde, como alguns estão acompanhando, pois a cada tempo me auxiliam, o que fico imensamente grato, venho, novamente, rogar por ajuda para com uma macro. encaminho anexo a planilha que estou desenvolvendo, nela, atualmente, estou no formulário de consulta, no qual fiz o formulário e inclui uma listbox para que o usuário escolha de quem ele quer os dados, mas não sei como fazer a macro para mostrar os dados, com base no nome escolhido, será que poderiam me ajudar, nem precisa fazer todos os campos, apenas me orientado eu faço todo o trabalho manual, apenas orientação, pesquisei, mas não achei. assim, no arquivo que encaminho, no botão Consulta Advogado que eu quero que apareça os dados do nome escolhido. Desde já agradeço. Advocacia Dativa Nomeações - Cível - Formulário Pesquisa.xls

Muito Obrigado Osvaldo, deu certinho, vou fazer o formulário de consulta e edição. Abraços Lamcarter

Pessoal, bem adiantado na ferramenta que preciso, no entanto, estou com certo “dificuldades” no comportamento dos formulários, pois eles recebem “células em branco” e eu não consegui encontra código para verificar os campos dos formulários e somente executar a macro caso exista dados nas TextBox, por exemplo, nesses códigos: Sheets("RegistroDistribuiçãoInfracional").Cells(linha, 1) = UserForm1.TextBox1.Text Sheets("RegistroDistribuiçãoInfracional").Cells(linha, 2) = UserForm1.TextBox2.Text Sheets("RegistroDistribuiçãoInfracional").Cells(linha, 3) = UserForm1.TextBox3.Text Sheets("RegistroDistribuiçãoInfracional").Cells(linha, 4) = UserForm1.TextBox4.Text Nos comandos acima, os dados existentes nas TextBox são transportados para as colunas da Planilha, no entanto, se em uma dessas TextBox, não houver dado, ele registra normalmente, queria que fosse conferido, não havendo dado, solicitar ao usuário. Seria possível ajuda, nesse ponto. Segue a Planilha para conhecimento. Atenciosamente, Lamcarter Nomeações.xls

Bom dia pessoal, novamente venho rogar por auxílio de vocês, tenho pouco conhecimento de programação VBA, mas não desisto, vou tentando.... e no meu trabalho tenho a necessidade de controlar o cadastro e distribuição de processos aos profissionais de assistência social, advogados e peritos, temos um controle manual, mas muito complicado de realizar e sem qualquer possibilidade de tirarmos um relatório, pretendo mudar isso, mesmo que em planilhas, exemplo de como é atualmente. Realizei pesquisas e não localizei algo que atenda, gostaria se saber se há possibilidade de fazer esse controle de forma mais célere e mantendo controle sobre a distribuição dos processos, pois, sempre há que se demonstrar transparência, assim preciso por exemplo saber se está sendo distribuído igualmente para todos (imaginei em um contador pelo nome, isso eu consigo rsrs). Eu em fazer uma forma de distribuição, no entanto, não consegui êxito em nenhuma com o formulário de cadastro, também, se houverem novas formas mais fáceis estou a disposição. Explico a tarefa: 01 - Entra um processo com a necessidade de Perícia, Estudo ou defesa por advogado nomeado; (esses profissionais se dispõe a realizar a tarefa, temos uma lista com os nomes e sempre que há a necessidade colocamos o número a frente do nome da pessoa, impossível controle – conforme se vê da imagem acima) 02) distribuído à pessoa que é o próximo, anotamos no processo e encaminhamos pra frente. 03) Apenas tenho dúvida, no caso de ter que parar de distribuir para certo profissional, (pensei em Status – Ativo – Inativo) em caso de óbito ou mudança de cidade, pois simplesmente não posso excluir a linha onde ele está, tinha que incluir algo que impossibilitasse de chamá-lo, mas mantendo o registro dos processos já distribuidor à ele. 04 ) importante observar que as vezes há a necessidade de substituir o profissional, por ele pode não aceitar o encargo por vários motivos, mas isso, não cancela a distribuição, fica registrado normal. Vamos ao problema: Quero fazer uma planilha onde eu consiga visualizar quem é o próximo profissional de uma lista já cadastrada, possibilite registrar sua indicação, desta forma, estou quebrando a cabeça para tentar fazer isso, mas olha, vou perder o resto do meu cabelo e acho que não vou conseguir, encaminho as formas que eu pensei em fazer: Ideia Um Menu Principal, um de Cadastro de profissionais, um Banco de Dados para as distribuições e uma para o Registro das Distribuições, para o lançamento das distribuições com dados de quem distribuiu e quando. No menu principal, além do cadastro, haverá botões para cada distribuição, ASSISTENTES SOCIAIS, ADVOGADOS, PERITOS E OFICIAS, quando acionado, traz a tela que possibilita saber quem é o próximo e distribuir a ele o processo. O formulário de cadastro fiz e deu certo, relativamente ao cadastro, falta a questão de o profissional estar ativo ou inativo, pois se estiver inativo, a linha na planilha com seu nome no banco de dados deveria ser toda completada com a palavra INATIVO, assim, na hora de distribuir não seria chamado seu nome. Dentro do formulário de distribuição, ao clicar em PRÓXIMA NOMEAÇÃO, a intenção é de que macro vá até a próxima linha vazia na coluna de distribuição, e mostra o nome que aparece na célula correspondente, possibilitando a inserção dos dados nas células vazias, exemplo: os nomes estão na coluna A (que refletem e a distribuição (que é o número do processo) fica na coluna B, clicando no botão próximo, a macro acha a primeira célula vazia na coluna B, mostrando no formulário a célula correspondente na A, não se se não compliquei, abrindo o formulário fica mais fácil. Assim, com o nome na tela, libere no formulário a possibilidade de inserir os dados da distribuição, como data, número do processo e responsável, sendo que, clicando em OK, registra que o profissional foi selecionado e esses dados devem ser lançados na planilha REGISTRO DE DISTRIBUIÇÃO, possibilitando futuras consultas, devendo ir os dados, todos no caso, NUMERO DO PROCESSO, NOME DO PROFISSIONAL, DATA DISTRIBUIÇAO E RESPONSAVEL, assim bastaria colocar um contador para cada nome, já se tem um relatório para ver se alguém está com mais ou menos distribuição, quero o que for mais fácil. Segue anexo o formulário que tentei fazer (que está vinculado aos botões na Planilha Menu Principal), onde na Label 2, ao clicar no botão "PRÓXIMA NOMEAÇÃO", no exemplo anexo, deveria aparecer o nome existente na célula D3, inserido dos dados, após clicar em OK queria que fosse incluído o número de ordem, no caso colocar o número do processo na célula D3 e na planilha REGISTRO DE DISTRIBUIÇÃO, conforme exemplo. Talvez eu não tenha visualizado uma forma mais fácil de fazer essa distribuição, estou aberto a sugestões. Ficarei super grato se alguém puder me auxiliar nessa gigantesca tarefa. Atenciosamente, Lamcarter Nomeações.xls

Salve galera! Aqui novamente, pra tentar o auxílio de todos para resolver dois problemas, os seguintes: Problema 01 Criei uma Mala Direta no Word 2010 (recentemente comecei a usá-lo - ainda inexperiente), porém quem já criou, viu que para inserir dados no banco de dados, o caminho é longo: >> Aba Correspondências>>Editar Listas de Destinatários >> Clicar na fonte de dados >> Editar (novamente) e finalmente >> Nova Entrada, para então inserir os dados. Assim, como tenho que inserir dados a todo o momento, para que outra pessoa possa visualizá-los, (pois os micros estão em rede e algumas pessoas inserem os dados e outras utilizam), e por pessoas diversas (não tem problema o acesso ao arquivo, pois quando a pessoa cadastra já fecha), o caminho é muito longo, deixando o trabalho quase que sem qualquer ganho de tempo. Então, estou tentando criar uma macro que o usuário ao clicar já esteja a disposição a caixa de destinatários pronta, apenas faltando clicar em "Nova Entrada". OU, alternativamente, um formulário que insira os dados automaticamente no banco!! Ai mora um dos problemas. Tento gravar a macro, mas o Word, embora "aparentemente" grave minha sequência de tarefas, não salva a macro, quando edito ela, está apenas com o nome e nem uma linha de comando e, como não sou expert em programação, estou vendido!!!!! Tem como fazer por macro, formulário ou uma forma mais fácil?? Problema 02 Outro problema, ainda relacionado a mesma mala direta. Quando é editada a fonte de dados, as colunas estão sempre com a mesma "largura" e não é possível visualizar o conteúdo do nomes dos campos. Tem como salvar uma largura diferenciada de cada coluna, para que apareça os dados dos nomes de campo. Desde já agradeço aos que auxiliarem nesta missão. Abraço a todos. Lamcarter

Topico devidamente resolvido, pena que não é fácil postar a solução aqui, nao envolve somente linhas de código. Muito obrigado a todos que visitaram e especiamente ao Sr. Armand. me ajudou muito.. Ah tambem consegui proteger as macros, Atencioasamente Lamcarter

relamente você tem razao, nos dois sentidos, nao conheco as API's e nao da certo com a InputBox, nao liberei o arquivo, encmainhei email pra ti.

Pessoal, funciona perfeitamente, porém um detalhe, quando da digitação a senha aparece ao ser digita, nao fica "asteriscos", será que tem como sendo "InputBox" configurar para quando o usuario digitar sair asterisco??? valeu..

CONSEGUI bom de uma maneira um pouco diferente Armand, mas consegui. olha como ficou o código: SUB Incluir_ou_Alterar Macro Senha = "12345" resposta = InputBox("Digite a senha para continuar?") If resposta <> Senha Then MsgBox "Esta senha não confere.", vbCritical, "Atenção" Exit Sub 'não continuar a macro End If 'continuar a macro 'inserir abaixo o resto da macro Sheets("Plan2").Select ActiveSheet.Unprotect "minha senha" Sheets("Plan1").Select Worksheets("Plan2").ShowDataForm ActiveSheet.Protect "minha senha" End Sub -------------------------///---------------------------------------------- Porém agora preciso proteger as macros, como faço, como colocar uma senha para editar as macros, ou no Visual Basic, você pode me ajudar?? desde já obrigado Lamcarter:D:D

Boa Noite Armand, final de semana tentei realizar a proeza, acho que estou quase lá. rsrsrs seguinte fiz tudo como você passou, porém quando executo a macro aparece. ERRO EM TEMPO DE EXECUÇÃO. O OBJETO É OBRIGATORIO. Assim clicando em "depurar" na caixa de msg, ele seleciona a seguinte linha If TextBox2.Text <> Senha Then como já disse entendo pouco de vba, porém notei que quando executo a macro não disponibiliza a Caixa de Texto para que o usuario digite a senha, nao teria uma linha de comando "chamando" e dando ao usuario a opcao de digitar a senha? obrigado pela atenção. Demorei tive que ir pra outra cidade e nao consegui acessar a net!! Lamcarter

Opa Amigo!!!!!!!!, seguinte onde trabalho é intranet, não tenho acesso livre, por isso não aparecia as figuras, ontem consegui acessar de casa, porém tem um detalhe, eu uso o excel 2003 e pelo que vi ele nao possui controle activex, será que ai fechou minha porta!!!!!!! ou você sabe como fazer isso no excel 2003? Obrigado pela atencao.

Olá amigo, será que teria um link ali ou algo do genero, pois nao consigo ver nada apos os dois pontos de cada topico. Obrigado Lamcarter

Olá, primeiramente obrigado pela atenção. Entendi perfeitamente seu exemplo, porém nao tenho tanta habilidade assim com VBA, por favor veja se estou no caminho certo. no VBA, fui em inserir formulário, inclui uma textBox e alterei a propriedade como indicado. é isso? e outra coisa como faço para configurar essa "constante como variável global". por fvor se puder me auxiliar, desde já agradeço. abc Lamcarter

Olá pessoal, seguinte consigo fazer com que determinada macro só seja rodada após a confirmação de uma senha? Ex.: tenho numa planilha vários botões de comando, com sua respectiva macro. Mas tem uma macro que chama o formulário autoexecutavel do excel (ShowDataForm) com o qual incluo e altero os dados de uma referida planilha, então gostaria que quem fosse chamar o formulário fosse apenas quem tem autorizão, pois a planilha fica protegida. Assim, gostaria que ao clicar no botão que chama o formulário fosse solicitada uma senha. Se a senha estiver correta, então a pessoa tem acesso ao formulário, podendo fazer alterações na planilha, caso contrário aparece a mensagem dizendo que o acesso não é permitido. OBS.: se possível, será qeu consigo fazer com que ao digitar a senha,o texto se trsnaformasse em asteriscos (***) olha a macro que chama o formulário: Sub Incluir_ou_Alterar() Sheets("Planilha tal").Select ActiveSheet.Unprotect "minha senha" Sheets("Menu Principal").Select Worksheets("Planilha tal").ShowDataForm ActiveSheet.Protect "minha senha" End Sub desde já obrigado Lamcarter