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 With
Nedenini çözemedim. Yardımcı olabilirseniz sevinirim. Dosyayı ekleyemiyorum konuyu tekrar açarsanız ekleyeceğim.