AdmiltonAlves

Olá Estou fazendo um codigo: uma tela de login "tela1" após a digitação do usuário e senha e clicar no botão "login" (btn_login) deve abrir a tela principal "tela2" A tela de login abre normalmente, mas quando clico no botão login não esta abrindo a tela principal. Anexo, código. Quem conseguir me ajudar a descobrir o erro, agradeço;

Estou usando esse codigos em Python para multiplicar 3 Line Edit = valorA * valorB* valorC ao clicar no botão: calcular1 o resultado deverá sair na LineEdit valorD Mas esta dando erro, alguém poderia me ajudar?? ABAIXO telas com informações:

Estou usando esse comando para multiplicar, mas esta dando erro, conforme figura.

boa tarde. Tenho uma combobox9 - com titulo tabelas de preços e tenho algumas textbox47 a 53 como posso fazer para quando eu escolher uma tabela na combobox9 me mostre as valores nessas textbox47 a 53 exemplo: combobox9 tabela 1 textbox47 fazer 0,85 (esses valores estão na planilha1 - linha1 e colunas p1, q1, r1 s1, t1, u1, v1 (respectivamente com as textbox exemplo textbox47 busca na planilha1 p1) textbox48 trazer 0,60%.......

Olá, tenho 4 textbox, exemplo: textbox4 = textbox1 * textbox2 * textbox3 para a textbox4 receber o valor da multiplicação tenho que digitar algum caracter, assim o resultado aparece. Como posso fazer para deixar automatico?

Olá,Tenho 4 textbox - exemplo: textbox4 = textobox1 * textbox2 * textbox3 Para para a textbox4 receber o valor da multiplicação tenho que clicar ou digitar qualquer tecla nela. como faço para ser automatico?

bom dia, se alguém tiver a resolução fico grato. tenho 3 textbox textbox1 - recebe o valor digitado pelo usuario textbox2 - recebe o valor importado de uma multiplicação de outras textboxs. o comando abaixo só funciona se eu digitar o valor na textbox2, pela importação os comando IF e else não reconhece, como faço para resolver esse problema? Private Sub textbox1_AfterUpdate() Me.Textbox1.Value = Format(Me.Textbox1.Value) If Textbox2.Value > Textbox1.Value Then Textbox3.Value = Textbox2.Value Else Textbox3.Value = Textbox1.Value End If End Sub

Boa tarde, se alguém descobrir o erro, fico muito grato. Tenho 4 textbox Private Sub textbox1_change() IF textbox1 = (textbox2 * textbox3) > (textbox2 * textbox4) textbox2 * textbox3 Else textbox1 =(textbox2 * textbox3) < (textbox2 * textbox4) textbox2 * textbox4 End IF End Sub o valor deve sair na textbox1, mas só esta funcionando na condição Else, mesmo sendo a 1ª condição melhor.

Benhur, boa tarde. não deu certo, vou tentar explicar melhor. tenho 4 textbox. textbox1 = textbox2 * textbox3 > textbox2 * textbox4 (essa é a primeira condição) Textbox2 * textbox3 textbox1 = textbox2 * textbox3 < textbox2 * textbox4 (essa é a segunda condição) textbox2 * textbox4 o resultado deve sair na textbox1

boa tarde. estou com problema nessa rotina. 1º esta abrindo o outllok e copiando a tela do userform mas em branco sem os dados. 2º a ela copiada para o outlook esta pequena, gostaria que fosse no tamanho original. 3º coloquei o e-mail em branco, mas gostaria do comando para buscar direto na textbox rotina abaixo. Private Sub CommandButton1_Click() Dim cob As Excel.ChartObject Dim wks As Excel.Worksheet Dim shp As Excel.Shape Dim cht As Excel.Chart Dim objOutlook As Object 'Outlook.Application Dim objMailItem As Object 'Outlook.MailItem Dim strImagePath As String strImagePath = Environ("temp") & "\benzatemp.png" Application.SendKeys "(%{1068})", True DoEvents Application.Wait Now + TimeSerial(0, 0, 1) Application.ScreenUpdating = False Unload Me Set wks = Workbooks.Add(xlWBATWorksheet).Worksheets(1) wks.Paste Set shp = wks.Shapes(1) Set cht = wks.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart cht.Paste cht.Export strImagePath, "png" wks.Parent.Close SaveChanges:=False Application.ScreenUpdating = True Set objOutlook = CreateObject("Outlook.Application") Set objMailItem = objOutlook.CreateItem(0) With objMailItem .HTMLBody = "<img src='" & strImagePath & "' />" .To = "" .Subject = "Cotação de preço" .CC = "" .Display End With Kill strImagePath End Sub

Bom dia. Se alguém tiver a solução, fico grato, segue a minha estrutura. Private Sub Textbox2_Change() If Textbox1 = Format(CDbl(Textbox2) * CDbl(Textbox3) > CDbl(Textbox2) * CDbl(Textbox4), "#,##0.00") Then Textbox1 = Format(CDbl(Textbox2) * CDbl(Texbox3), "#,##0.00") Else Textbox1 = Format(CDbl(Textbox2) * CDbl(Textbox3) < CDbl(Texbox2) * CDbl(Textbox4), "#,##0.00") Textbox1= Format(CDbl(Textbox2) * CDbl(Textbox4), "#,##0.00") End IF End Sub o que esta acontecendo: só esta calculando o Else (box2*box4) não esta considerando a primeira condição IF, mesmo quando esta é mais vantajosa. Obrigado.

bom dia. minha estrutura é essa, mas não esta dando certo. Private Sub Fretepeso_Change() If Fretepeso <> "" Then Fretepeso2.Value = 0 ElseIf Fretepeso2 = Format(CDbl(Fretepeso) * CDbl(Peso) > CDbl(Fretepeso) * CDbl(cubagem), "#,##0.00") Then Fretepeso2 = CDbl(Fretepeso) * CDbl(Peso) Else Fretepeso2 = CDbl(Fretepeso) * CDbl(cubagem) end if end sub

no meu caso seria uma condição textbox1 * textbox2 ou textbox1 * textbox3 a condição maior seria considerada.

boa tarde. tenho 3 textbox - estou tentando usar o IF para algumas condições mas não estou conseguindo êxito. Exemplo: usando o SE na planilha chega no resultado: =se(a1*a2>a1*a3;a1*a2;a1*a3) como faço para ter o mesmo resultado usando o IF e Else no VBA. obrigado.