(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.
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
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?
(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.
14. mesajdaki kodu yeniden düzenlemiştim deneyebildiniz mi?
Ş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.