merhabalar,
P1,P2,...P7 olmak üzere parça adını göstersin bu parçaların işlem süreleri sırasıyla
2,3,5,5,8,11,15 olsun ben bu süreleri elimdeki makalenin çeşitleri adımlarına göre toplam maliyeti en küçükleyecek şekilde sıralayarak 15,11,5,2,3,5,8 olacak şekilde sıraladım daha sonrasında yapmak istediğim şey ise sıralanmış durumda 15 gördüğünde yan sütunda P7 yazsın 11 gördüğünde p6 yazsın vb. fakat sıkıntı iki tane aynı süre olduğunda yani 5 için mesela iki yerdede p4 yazıyor bu tür tekrar eden durumlar içinde kodun şaşırmaması için ne yapmalıyım benim yaptığım ama hataya sebep olan kod aşağıdaki gibi:
For i = 1 To nsayi
For k = 1 To nsayi
If Sayfa1.Cells(k + 1, 5).Value = Sayfa1.Cells(i + 1, 17).Value Then
Sayfa1.Cells(i + 1, 22).Value = Sayfa1.Cells(k + 1, 2)
End If
Next k
Next i
P1,P2,...P7 olmak üzere parça adını göstersin bu parçaların işlem süreleri sırasıyla
2,3,5,5,8,11,15 olsun ben bu süreleri elimdeki makalenin çeşitleri adımlarına göre toplam maliyeti en küçükleyecek şekilde sıralayarak 15,11,5,2,3,5,8 olacak şekilde sıraladım daha sonrasında yapmak istediğim şey ise sıralanmış durumda 15 gördüğünde yan sütunda P7 yazsın 11 gördüğünde p6 yazsın vb. fakat sıkıntı iki tane aynı süre olduğunda yani 5 için mesela iki yerdede p4 yazıyor bu tür tekrar eden durumlar içinde kodun şaşırmaması için ne yapmalıyım benim yaptığım ama hataya sebep olan kod aşağıdaki gibi:
For i = 1 To nsayi
For k = 1 To nsayi
If Sayfa1.Cells(k + 1, 5).Value = Sayfa1.Cells(i + 1, 17).Value Then
Sayfa1.Cells(i + 1, 22).Value = Sayfa1.Cells(k + 1, 2)
End If
Next k
Next i