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)