AccessTr.neT

Merhaba
Ugulamada Pergole Formunda Açılım Ölçüsü Textboxına mm cinsinden ölçü girildiğinde  ( Fotoda 4500 )
Pergole sayfasındaki B21 Fitil hücresinin aldığı değer B22 hücresine referans oluyor. Fotoda B21 de gözüken 6 sayısını arttırarak yada eksilterek (şu durumda arttırmak gerekiyor haliyle sonuçta 11 girildiğinde fitil ara ölçüsü değeri 418 e gelerek istenen değer aralığına oturuyor.)
Sonuçta B22 Hücresindeki değeri 400 - 450 değerleri arasına çekmem gerekiyor.
(Normal kullanımda Pergole sayfasında B3 Açılır hücresine değer girdiğinizde oluşan Fitil Ara Ölçüsü (B22) değerini Manuel olarak B21 Fitil değerini arttırıp eksilterek 400 -450 aralığına çekiyoruz.  Nadir durumlarda bu aralığa oturmadığında da 400 değerine en yakın rakamlarda 397 398 399 gibi kabul görülüyor.)  Yapmak istediğim şey değerleri girip hesapla dediğimde B21 hücresinin B22 Hücresini 400-450 değerleri arasına alacak olan sayıda kalmasını sağlamak. Yardımlarınız için teşekkür ederim.

kodu aşağıdaki gibi düzenler misiniz?

xB21 = Int((S1.Range("C8").Value - 225) / 400) + 1 '<== eklenen

S1.Range("B21").Value = xB21 '<== eklenen

TextBox_Fitil.Text = S1.Range("B21").Value

TextBox_FitilAraOlcu.Text = S1.Range("B22").Value

@berduş Hocam fotoğrafa 1 fotoğraf sizin kodunuzun sonucu. Ben manuel olarak ayarlama yaptığımda ise 2. resimdeki gibi fitil sayısını 18 den 17 ye bir düşürdüğümde sonuç istendiği gibi 400 - 450 değerleri arasında 417 olarak çıkıyor.

kodu aşağıdaki gibi dener misiniz?

    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

@berduş hocam değeri 400-450 aralığında çıkarmam değer bu sınırın dışında çıkıyorsa 450 den büyük ilk değerde hesaplatmam gerekiyor. Üretimden arkadaşlarla görüştüm 300 lü değerlere hiç bulaşmamamız gerekiyor. Bazı ölçülerde 400-450 arası 2 fitil sayısı da olabiliyor. Böyle durumlarda küçük olan fitil sayısı değerini seçmem gerekiyor. Toplam Tutarı daha az hesaplaması için. Fitil sayısı arttıkça hesap kabarıyor çünkü.

---

(19/09/2021, 13:58)berduş yazdı: [ -> ]kodu aşağıdaki gibi dener misiniz?

    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

(19/09/2021, 14:14)Oğuz Türkyılmaz yazdı: [ -> ]Bazı ölçülerde 400-450 arası 2 fitil sayısı da olabiliyor

örnek sayılar verir misiniz?