en düşük değer

[serkankeser]

Herkese merhaba.
Ekli dosyada 10 adet firma ve ihaleye vermiş oldukları fiyatlar var. Firmaların vermiş olduğu fiyatlardan en avantajlısını ve hangi firmaya ait olduğu bulmak için gerekli kodlara ihtiyacım var.
Ben bunu formülle yapıyorum aslında ama her ihalede farklı sayıda mal kalemi olduğu için ya formülü çoğaltmam yada satır silmem gerekiyor.
İlgilenen arkadaşlara teşekkürler.

 

[zafer]

Merhaba


Aşağıdaki linki inceleyiniz.


http://www.excel.web.tr/showthread.php?t=17704

 

[serkankeser]

Zafer bey öncelikle iginiz için teşekkür ederim.
Ben formüllü çözümü yapabiliyorum. Formülle yapmak istemiyorum.
Bu işin kodlu çözümünde yardımcı olursanız sevinirim.

 

[veyselemre]

Sub EnDusukBul()
If ActiveSheet.Name <> "sonuç" Then Exit Sub
For x = 5 To [a65536].End(3).Row
    Cells(x, 13) = Cells(4, 3)
    Cells(x, 14) = Cells(x, 3)
    For y = 4 To 12
        If Cells(x, y) < Cells(x, 14) Then
            Cells(x, 13) = Cells(4, y)
            Cells(x, 14) = Cells(x, y)
        End If
    Next y
Next x
End Sub

 

[serkankeser]

Cevap yazmak için henüz fırsatım oldu kusura bakmayın biraz geç oldu ama Sayın Veyselemre yardımlarınız için çok teşekkür ederim.