(09/10/2021, 15:26)berduş yazdı: dener misiniz?

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

@berduş hocam ilginiz için teşekkür ederim akşam evde sakin kafayla deneyip bilgi veririm Teşekkürler.