En Düşük Fiyat verene göre listeleme

[SadiSerdari]

Arkadaşlar ekteki dosya da en düşük fiyat veren firmaya göre alt hücrelerde listeleme yapmaya çalışıyorum. Ancak, hatalı işlem yapıyor.Örnek dosyada açıklamaya çalıştım. Makrolar dosya içerisinde mevcuttur. Mevcut formülü tekrar denediğimde; satır sayısı arttığında işlemin tam sonuç vermediğini gördüm.Yardımcı olabilirseniz sevinirim. Teşekkürler.

 

[yuzun23]

En uygun teklif ve sahibini bulma

En uygun teklif ve sahibini bulma

 

[SadiSerdari]

Sayın samedxy23 Teşekkürler. Makroya formüle ettiğmizde aşağıdaki sonucu elde ediyoruz. Yol gösterici olması açısından paylaşmak istedim.

Sub minValueCol()
   
    minValue 19, 6, 11, 6
    Call rows_Sum1
    Call rows_Sum2

    For iValue = 39 To 56
        iVal = iValue - 20
        Cells(iValue, 7) = WorksheetFunction.Index(Range("F17:K17"), 1, WorksheetFunction.Match(Range("F" & iValue), Range(Cells(iVal, 6), Cells(iVal, 11)), 0))
    Next

    
End Sub