iki textbox dan küçük olanı üçüncü textboxa yazdırmak

[hikmet]

Merhaba Sn.Hocalarım ve Arkadaşlarım;

userformdaki üç textboxdan birincisi değeri seçimden otomatik alıyor ikincisi textbox'a değer elle giriliyor nasıl bir formül yapmalıyım ki üçüncü textbox henüz kayıt yapılmamışken değer olarak ilk iki textboxdan değeri küçük olanı kayıt değeri olarak alabilsin.

hücrede olsa =eğer(a1>b1 ;"b1";"") şeklinde bir formül yapardım ama userformda nasıl bir kod yazmalıyım bilemiyorum.

İlginize ve bilginize şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

hücrede olsa =eğer(a1>b1 ;"b1";"") şeklinde bir formül yapardım ama userformda nasıl bir kod yazmalıyım bilemiyorum.

Bu işlem için yazılacak kodun yazdığınız formülden hiç farkı olmayacaktır. Mantık her zaman aynıdır. Bu sebeple VBA ile ilgilenmeye başlamadan önce formüller ile uğraşarak mantık geliştirme konusunda tecrübe kazanılmalıdır.

Formülle:

=eğer(a1>b1 ;"b1";"")

kod ile 1.alternatif:

if textbox1>textbox2 then
textbox3=textbox1
else
textbox3=textbox2
end if

Kod ile 2. alternatif:

textbox3=iif(textbox1>textbox2,textbox1,textbox2)

 

[Mahmut Bayram]

Şöyle bir şey de işinizi görebilir.

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1 > TextBox2 Then
TextBox3 = TextBox1
Else
TextBox3= ""
End If
End Sub