Thiagooliversan2103

Boa tarde! Sou iniciante na programação e estou com dificuldades na hora de alterar dados na planilha pelo form. Tenho dois tipos de pesquisa por Código e por CPF, quando faço a pesquisa pelo código consigo fazer as alterações sem problemas, porém quando faço pelo CPF não consigo alterar as informações, no caso estou usando um mesmo CPF para teste. Outra coisa que estou com dificuldades é a função "Application.quit", ela fecha o aplicativo e muitas das vezes que executo o form estou com outras pastas abertas, seria possível indicar um código para fechar apenas a pasta do FORM e não as outras pastas, tanto quando inicio o FORM quando encerro pelo botão "SAIR". Desculpe-me pela bagunça dos códigos, mas como falei não sou programador e acabo deixando desorganizado. a SENHA do ADM é "1234" Meu_Fagote_teste.rar

Boa tarde! Mais uma vez venho aqui pedir a ajuda de vocês, não sou nenhum programador, apenas um curioso que busca formas de facilitar a vida no trabalho. Criei um formulário para cadastro de funcionários, onde será disponibilizado acesso para alguns usuários através de login, porém, quando esses usuários forem cadastrados será criado uma senha padrão "102030" e os mesmos deverão alterá-las no primeiro acesso. Buscando opções de códigos para alteração de senhas, encontrei esse que está no arquivo anexo, porém o mesmo só funciona depois de confirmar o login. Gostaria de uma opção para que a alteração fosse feita antes do login, clicando na opção altera senha. Se alguém conhecer uma forma e puder me ajudar, agradeço desde já. Usuário: administrador senha: 102030 Obs. Foram retiradas algumas informações do formulário original por se tratar de dados da empresa. Modelo.xls

Ainda aparece o botão fechar do form, quero ocultá-lo e não consigo

Boa tarde! Criei esse form no VBA Excel 2003 para utilizar aqui na empresa que trabalho, desativei e ocultei o botão fechar no formulário, porém gostaria de incluir apenas o botão minimizar...alguém poderia me ajudar? Também tenho dificuldade em impedir que ao abrir o formulário outra pasta que esteja aberta seja fechada...se puderem me ajudar quanto a isso também, agradeço. Segue o arquivo modelo Modelo Funcionarios_2.xls

Resolvido, muito obrigado Osvaldo e DJunqueira pela força.

DJunqueira, Agradeço pela ajuda que está me dando, porém continua o mesmo problema de antes. Enquanto não consigo sanar esse problema, vou utilizar dessa forma pois já atende a minha necessidade. mais uma vez obrigado

Bom dia DJunqueira, Em partes funcionou a sua dica, porém quando coloco no formato que você mandou ele não entende os separadores, alterei para o formato abaixo. Me.TextBox14 = Format(valor1 - valor2 + valor3, "#,##0.00") Só que retorna ponto no lugar da vírgula. Obs. utilizo o EXCEL 2003 na empresa que trabalho para desenvolver o formulário. Desde já agradeço a atenção.

Olá, gostaria de pedir ajuda pois sou iniciante na programação VBA EXCEL e estou com problemas quanto ao retorno de valores somados de três textbox numa 4º textbox. Quando digito os valores com separadores de milhar e decimal Ex. 1.000,00 + 1.000,00 ao invés de retornar 2.000,00 ele retorna 2000.00, sem os separadores. Alguém pode me ajudar por favor. Segue o arquivo em anexo e desde já peço desculpas pela bagunça dos códigos, pois como falei sou iniciante nisso. 'CÓDIGO SOMAR TEXTBOX Private Sub TextBox11_afterupdate() Dim valor1 As Double Dim valor2 As Double Dim valor3 As Double valor1 = 0 valor2 = 0 valor3 = 0 If Me.TextBox11 = Empty Then Else valor1 = Me.TextBox11.Value End If If Me.TextBox12 = Empty Then Else valor2 = Me.TextBox12.Value End If If Me.TextBox13 = Empty Then Else valor3 = Me.TextBox13.Value End If Me.TextBox14 = valor1 - valor2 + valor3 End Sub Private Sub TextBox12_afterupdate() Dim valor1 As Double Dim valor2 As Double Dim valor3 As Double valor1 = 0 valor2 = 0 valor3 = 0 If Me.TextBox11 = Empty Then Else valor1 = Me.TextBox11.Value End If If Me.TextBox12 = Empty Then Else valor2 = Me.TextBox12.Value End If If Me.TextBox13 = Empty Then Else valor3 = Me.TextBox13.Value End If Me.TextBox14 = valor1 - valor2 + valor3 End Sub Private Sub TextBox13_afterupdate() Dim valor1 As Double Dim valor2 As Double Dim valor3 As Double valor1 = 0 valor2 = 0 valor3 = 0 If Me.TextBox11 = Empty Then Else valor1 = Me.TextBox11.Value End If If Me.TextBox12 = Empty Then Else valor2 = Me.TextBox12.Value End If If Me.TextBox13 = Empty Then Else valor3 = Me.TextBox13.Value End If Me.TextBox14 = valor1 - valor2 + valor3 End Sub obrigado. testeSCH.xls