(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.