[Tela de login, abrindo tela principal]

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;

[Python, multiplicação de QLineEdit]

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:

[Python, multiplicação de QLineEdit]

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

[VBA BUSCAR VALORES]

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%.......

[Excel VBA - textbox para calcular, devo inserir um caracter]

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?

[Excel VBA - textbox para calcular devo clicar]

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?

[Textbox IF e else]

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

[VBA IF E ELSE]

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.

[VBA usando IF]

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

[Dar print da tela o userform e enviar por e-mail]

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

[usando o IF condições]

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.

[VBA usando IF]

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

[VBA usando IF]

no meu caso seria uma condição

textbox1 * textbox2 ou textbox1 * textbox3

a condição maior seria considerada.

[VBA usando IF]

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.