xB21 = S1.Range("B21").Value
If S1.Range("B22").Value >= 450 Then xB21 = Int((S1.Range("C8").Value + 225) / 450) + 1 '<== eklenen
If S1.Range("B22").Value <= 400 Then xB21 = Int((S1.Range("C8").Value + 225) / 400) '<== eklenen
S1.Range("B21").Value = xB21 '<== eklenen
bu kodlar araya eklenecek
Set S1 = Sheets("Pergole")
'kodların ekleneceği yer
TextBox_Fitil.Text = S1.Range("B21").Value
TextBox_FitilAraOlcu.Text = S1.Range("B22").Value