döngüdeki ">" "<" işaretleri sorunu

[HalilCan_]

Merhaba.

Excel'de çok basit bir işlem yaptırıyorum.Ancak anlamadığım bir şekilde koşul sağlansa da sağlanmasa da aynı sonucu veriyor.

Kodlar şu şekilde:

Private Sub CommandButton1_Click()

If Sayfa1.TextBox1.Value > Sayfa1.TextBox2.Value Then
MsgBox "Lütfen değerleri kontrol ediniz"
Else
Sayfa1.TextBox3.Value = Sayfa1.TextBox1.Value / Sayfa1.TextBox2.Value
End If

End Sub

Bu kodlar ile yaptırmak istediğim. Textbox1 deki değer Textbox2 deki değerden büyük ise ekrana "lüften değerleri kontrol ediniz" yazdırmak.TextBox1 Textbox2 den büyük değil ise aşağıdaki satıra devam etsin Textbox3 'e bu iki sayının oranını yazdırsın...

Ancak > de olsa <= de olsa ekrana "Lütfen değerleri kontrol edini" yazısı geliyor.
Hata nerede bulamadım..


Soruyu basite indirmek için bu şekilde sordum.

Yardımcı olabilirseniz sevinirim.

edited:dosya eklendi

 

[uzmanamele]

merhaba

Textbox'lardaki değerleri silerek tekrar deneyiniz.

 

[HalilCan_]

merhaba,
otomatik sildirebileceğim bir komut var mı peki?yani tekrar bir değer girilmek istendiğinde ikisini de sıfırlasın

 

[HalilCan_]

Bu arada dediğinizi denedim yine aynı..

 

[uzmanamele]

merhaba

bunu deneyiniz.

Private Sub CommandButton1_Click()
If Sayfa1.TextBox1 = "" Or Sayfa1.TextBox2 = "" Then
MsgBox "TextBox'a değer giriniz!"
Exit Sub
End If
If Sayfa1.TextBox1.Value > Sayfa1.TextBox2.Value Then
MsgBox "Lütfen değerleri kontrol ediniz"
Else
Sayfa1.TextBox3.Value = Sayfa1.TextBox1.Value / Sayfa1.TextBox2.Value
End If
Sayfa1.TextBox1 = ""
Sayfa1.TextBox2 = ""
End Sub

 

[HalilCan_]

merhaba

bunu deneyiniz.

Private Sub CommandButton1_Click()
If Sayfa1.TextBox1 = "" Or Sayfa1.TextBox2 = "" Then
MsgBox "TextBox'a değer giriniz!"
Exit Sub
End If
If Sayfa1.TextBox1.Value > Sayfa1.TextBox2.Value Then
MsgBox "Lütfen değerleri kontrol ediniz"
Else
Sayfa1.TextBox3.Value = Sayfa1.TextBox1.Value / Sayfa1.TextBox2.Value
End If
Sayfa1.TextBox1 = ""
Sayfa1.TextBox2 = ""
End Sub

Çok çok teşekkür ederim!..
Peki çok kısa bir sorum olacak o halde.. Orada neden Exit Sub dediğinizi anlayamadım.orada "Else" diyemez miydik? Exit Sub ile End Sub 'un farkını da tam olarak bilmiyorum açıkçası..Çok kısa değinebilirseniz çok sevinirim.

 

[HalilCan_]

Bu arada sorun devam ediyor yeni farkettim.Ancak şöyle birşeyi farkettim.Eğer iki sayının basamak sayısı aynı olursa sorun yok...Ancak örneğin : ilk sayı tek basamaklı ikinci sayı iki basamaklı olursa sıkıntı başlıyor... Textbox1.value Textbox2.value'dan küçük ya da eşit olmasına rağmen Ekranda "Lütfen değerleri kontrol ediniz" yazıyor..

 

[HalilCan_]

Bazen doğru çalışıyor,bazen çalışmıyor.Anlamadım gitti...

Sorun tam olarak şu

Eğer basamak sayıları aynı olursa sorun yok. Ancak farklı olursa. İlk rakamlara göre değerlendirme yapıyor.Mesela TextBox1 = 50 , TextBox2= 6 yazdığım zaman , 6 > 5 olduğundan anlamadığım şekilde sanki 6 > 50 'ymiş gibi çalışıyor program. Ama TextBox1=50 ,TextBox2=4 yaparsanız.. (artık 5>4 olduğundan mı bilmiyorum ) program düzgün çalışıyor.. Aynı basamaklı sayılarda sorun yok..

 

[HalilCan_]

Arkadaşlar sorun basit gibi duruyor.Ancak bir türlü işin içinden çıkamadım.Yardıma ihtiyacım var bitirme ödevim için.Yardımcı olabilirseniz çok mutlu olurum.

 

[zafer]

Merhaba

Sayın Uzmanamele'nin kodlarına göre düzenlenmiştir

Private Sub CommandButton1_Click()

If TextBox1 = "" Or TextBox2 = "" Then
MsgBox "TextBox'a değer giriniz!"
Exit Sub
End If
If Val(TextBox1) > Val(TextBox2) Then
MsgBox "Lütfen değerleri kontrol ediniz"
Else
TextBox3 = Val(TextBox1) / Val(TextBox2)
End If
TextBox1 = ""
TextBox2 = ""
End Sub

 

[HalilCan_]

Merhaba,

Çok teşekkür ediyorum gerçekten...

Yardımlarınız için teşekkürler..

Selamlar..