Karekök alma

[leventmersin11]

Private Sub TextBox19_Change()
TextBox19 = Sqr(TextBox21.Value)
End Sub


Arkadaşlar merhaba
Yukarıdaki kodlarla userform üzerindeki TextBox 19'a,TextBox21'in içine yazdığım sayının karekökünü hesaplatamadım.

Sub karekok ()
sonuc=Sqr(Range("A1").Value
MsgBox(sonuc)
End Sub

Bu kodlar;normal olarak A1 hücresine girdiğim sayının karekökünü Msgboxa veriyor
Ama dediğim gibi userform üzerindeki textboxa nasıl yapacağım ?
Yardımlarınız için teşekkürler

 

[mustafaine1]

TextBox19 = TextBox21.Value ^ (1 / 2)

bu sekilde denermisiniz, bu sekildede almasi gerekir..

 

[leventmersin11]

Arkadaşım merhaba..İşlem tamam..İlginize ve emeğinize çok teşekkür ederim.
Ufak bir ek sorum olacak bununla ilgili.
Textbox 19'a 81 yazıyorum,kürsor textbox21'e geçiyor,hiçbir şey görünmüyor ekranda.Sonra boşluk tuşuna basıyorum ve sonuç olan 9 rakamı beliriyor..Bu ufak aksaklığı nasıl giderebiliriz?

 

[mustafaine1]

baska bir kodla ilgili olmali diger kodlarinizida yazarsaniz inceleme imkanimiz olur..

 

[leventmersin11]

Private Sub TextBox19_Change()
TextBox19 = TextBox21.Value ^ (1 / 2)
End Sub
Private Sub TextBox22_Change()
On Error Resume Next
TextBox22 = TextBox24.Value * 1.03
End Sub
Private Sub TextBox25_Change()
On Error Resume Next
TextBox25 = TextBox27.Value * 1.03
End Sub
Private Sub TextBox28_Change()
On Error Resume Next
TextBox28 = TextBox30.Value * 1.03
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
Private Sub TextBox5_Change()
On Error Resume Next
TextBox4 = TextBox6.Value - TextBox5.Value
End Sub
Private Sub TextBox14_Change()
On Error Resume Next
TextBox13 = TextBox15.Value * TextBox14.Value
End Sub
Private Sub TextBox17_Change()
On Error Resume Next
TextBox16 = TextBox18.Value / TextBox17.Value
End Sub
Private Sub UserForm_Activate()
Do
Label24 = Format(Now, "dd mmmm yyyy dddd - hh:mm:ss")
DoEvents
Loop
End Sub

bu sayfadaki tüm kodlar bunlar

 

[mustafaine1]

Private Sub TextBox19_Change()
TextBox19 = TextBox21.Value ^ (1 / 2)
End Sub

bu kodu neden 21`in change olayina yazmiyorsunuz.. sonucta 21 degisince 19`a karakoku cikmicak mi?

bunun disinda kodlarla ilgili bisey oldugunu soyleyemiyecegim..

 

[leventmersin11]

Üstadım tamamdır.Dediğiniz gibi yaptım oldu..İlginize ve emeğinize tekrar teşekkür ederim

 

[mustafaine1]

Sorununuzun cozulmesine sevindim kolay gelsin..