VBA usando IF

[AdmiltonAlves]

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.

[Giovanny Oliveira]

Boa Tarde ,Amigo.

No Vba Access

ficaria da seguinte forma:

Me.nomecampo = (Me.nomecampo1 * Me.nomecampo2) + Me.nomecampo3

No VBA Excel ficaria assim:

Me.nomedacoluna = Me.nomedacoluna * Me.Nomedacoluna)+ Me.nomedacoluna

ex: A3 = (D3*D4)+C3

espero ter ajudado e estou sempre a disposição

Soluções em VBA para Biometria e dispositivos eletrônicos para desenvolvedores

saiba mais em http://geovanny-oliveira16.wix.com/khronostecnologia

[AdmiltonAlves]

no meu caso seria uma condição

textbox1 * textbox2 ou textbox1 * textbox3

a condição maior seria considerada.

[Live Brain Tutoriais]

Opa, pegando o exemplo dos 3 textBox

=se(a1*a2>a1*a3;a1*a2;a1*a3)

em VBA fica assim

If text1 * text2 > text1 * text3 Then
   text1 * text2
else
   text1 * text3 
End If

[AdmiltonAlves]

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

[Benhur Palini]

Oi, Adimilson!

Acho o problema é esta parte "Fretepeso2 ="

tente:

ElseIf Format(CDbl(Fretepeso) * CDbl(Peso) > CDbl(Fretepeso) * CDbl(cubagem), "#,##0.00") Then

ou

ElseIf (Fretepeso * Peso) > (Fretepeso * cubagem) Then

Editado Agosto 11, 2014 por Benhur Palini

[AdmiltonAlves]

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

[Agostinho Paula Filho]

faz assim, jovem......

Dim Resultado as double

if textbox2 * textbox3 > textbox2 * textbox4 then

resultado = Textbox2 * textbox3

end if

if textbox2 * textbox3 < textbox2 * textbox4 then

resultado = textbox2 * textbox4

end if

textbox1 = resultado

[Agostinho Paula Filho]

crie um botão e coloque esse código no sub desse botão, no evento clique.... ai quando clicar no botão ele vai executar..