Skip to main content

AccessTr.neT


Userform Dan Excel Hücresindeki Değeri Belirli Bir Aralığa Göre Hesaplatma.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
23
531

Userform Dan Excel Hücresindeki Değeri Belirli Bir Aralığa Göre Hesaplatma.

Çözüldü #1
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.
[Resim: do.php?img=11266]
[Resim: do.php?img=11267]
.rar TEKLİF YÖNETİM SİSTEMİ - Kopya.rar (Dosya Boyutu: 91,27 KB | İndirme Sayısı: 9)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 19/09/2021, 10:01, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#2
kodu aşağıdaki gibi düzenler misiniz?
Visual Basic Code
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
Cevapla
#3
@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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
kodu aşağıdaki gibi dener misiniz?
Visual Basic Code
    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
Son Düzenleme: 19/09/2021, 14:00, Düzenleyen: berduş.
Cevapla
#5
@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ş Adlı Kullanıcıdan Alıntı: kodu aşağıdaki gibi dener misiniz?
Visual Basic Code
    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
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 19/09/2021, 14:20, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#6
(19/09/2021 14:14)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı: Bazı ölçülerde 400-450 arası 2 fitil sayısı da olabiliyor
örnek sayılar verir misiniz?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da