Private Sub TextBox_CepheOlcusu_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox_AyakSayisi = 2

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

End Sub