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
1378

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

#13
(19/09/2021, 19:08)Oğuz Türkyılmaz yazdı: Programın son halini yükledim.
Berduş hocam Son yazdığınız kodda belirlenen fitil sayısı 400-450 arasına oturması, eğer bu aralık da olmuyorsa 450 nin dışındaki en küçük değeri getirmesi üzerineydi. Bugün deneme yaparken. 5000 cephe 8000 açılır ölçüsünde 18 fitil sayısına karşılık 452 sonucunu verdi kod. Fakat hem 19 hemde 20 fitil sayısı değerleri 400-450 arası sonuç üretmekteyken program bu ölçütün dışındaki sonucu verdi.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#14
kodu aşağıdaki gibi düzenler misiniz?
Set S1 = Sheets("Pergole")
yC8 = S1.Range("C8").Value
xB21 = Int((yC8 + 225) / 450) - 1 '<== eklenen
xB22 = Int((yC8 + 225) / 400) + 1
For xB = xB21 To xB22
    xSon = (yC8 - 175) / (xB - 1)
    If xSon > 450 Then
        xMin = xB
    ElseIf xSon < 400 Then
        xMax = xB
    Else
        xDgr = xB
        Exit For
    End If
Next xB
If xDgr = 0 Then xDgr = xMax
If xDgr >480 Then xDgr = xMin
S1.Range("B21").Value = xDgr
Cevapla
#15
Alıntı:önce 400-450 arası olmazsa 451 - 480 arası oda olmazsa 370-399
yukardaki kodu yeniden düzenledim 480'in üzerinde çıkarsa 400ün altındaki ilk değeri alıyor peki 370'in altında çıkarsa ne olacak?
Cevapla
#16
(20/09/2021, 23:18)berduş yazdı:
Alıntı:önce 400-450 arası olmazsa 451 - 480 arası oda olmazsa 370-399
yukardaki kodu yeniden düzenledim 480'in üzerinde çıkarsa 400ün altındaki ilk değeri alıyor peki 370'in altında çıkarsa ne olacak?
O değerler açılır ölçüsü 1500 mm altında ancak çıkabilir o ölçülerde de sistem yapılmadığı için hesaplama yapılmasına gerek yok.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#17
14. mesajdaki kodu yeniden düzenlemiştim deneyebildiniz mi?
Cevapla
#18
Şu an deniyorum ama yarın firmada bolca gerçek tekliflerde 2 taraflı eski ve yeni sisteme aynı anda veri girerek deneyeceğim. Yarın akşam sonucu yazarım.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task