Normalde bende kod yazmıştım ve silmiştim berduş hocanın kodu kısa olduğu için ve kafa karışmasın diye.
Mantıken kod ile fitil sayı birer birer artırınca 400-450 aralığı varsa çözülüyordu yoksa ikinci şart aranıyordu.Yani bence fitil sayısını 2 den başltıp artırarak uygun değeri bulmak daha iyi gibi geliyor fikir açısından.
(20/09/2021, 23:23)berduş yazdı: [ -> ]14. mesajdaki kodu yeniden düzenlemiştim deneyebildiniz mi?
@
berduş hocam 5000 cephe * açılır 2600 değerlerini girdiğimde kod 6 fitil sayısı (458) hesaplaması gerekiyorken 7 fitil sayısı ( 381 ) olarak sonucunu veriyor. 14. mesajı düzenlemiştiniz diye hatırlıyorum. Yedekten kontrol ettim, yanlış yedeği silmediysem 14.mesajdaki kod değişmemiş gözüküyor. Velhasıl kelam 400-450 aralığı olmazsa 450 - 480 aralığından 450 ye en yakın değeri getirsin diye konuşmuştuk. Maalesef şu anda çok farklı bir sonuç getirdi.
If xDgr = 0 Then xDgr = xMin
If xDgr > 480 Then xDgr = xMax
galiba bu 2 satırların yerlerini karıştırmışım)
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 = xMin
If xDgr > 480 Then xDgr = xMax
S1.Range("B21").Value = xDgr
@
berduş hocam çok teşekkür ederim.
rica ederim
iyi çalışmalar
Alternatif olabilir abey.
Function R21Bul() As Integer
Dim i As Long, sonuc As Integer
Dim rg21 As Range, rg22 As Range
Const donguSayisi As Integer = 2000
With ThisWorkbook.Worksheets("Pergole")
Set rg21 = .Range("B21"): Set rg22 = .Range("B22")
For i = 2 To donguSayisi
rg21.Value = i
If rg22.Value >= 400 And rg22.Value <= 450 Then
sonuc = i: GoTo var
ElseIf rg22.Value < 400 Then
sonuc = i - 1: Exit For
End If
Next i
For i = sonuc To donguSayisi
rg21.Value = i
If rg22.Value > 450 Then
sonuc = i: Exit For
End If
Next i
var:
R21Bul = sonuc
End With
End Function