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
dener misiniz?