Kod:
	    If TextBox_CepheOlcusu <= 4500 Then Exit Sub
            i = 1
            Do Until xAyk >= 2250 And xAyk <= 3250
            i = i + 1
            xAyk = TextBox_CepheOlcusu / i
        Loop
            TextBox_AyakSayisi = i
   Kod:
	    With Me.TextBox_CepheOlcusu
        
        '.SetFocus
        .Value = 2000
        .SelStart = 0
        .SelLength = Len(.Text)
    
    End WithNedenini çözemedim. Yardımcı olabilirseniz sevinirim. Dosyayı ekleyemiyorum konuyu tekrar açarsanız ekleyeceğim.
 
	![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
