Fiyat Karşılaştırma

[iharda]

Merhabalar
Örnek tabloda bir fiyat karşılaştırması var istediğim en uygun fiyatı bulup
belirttiğim yere listelenmesi açıklamam eksik olabilir kusuruma bakmayın
örnek dosyayı inceleyen arkadaşlar anlayacaktır demek istediğimi şimdiden
teşekkürler.

 

[Ekrem Bülbül]

ekteki dosyayı inceleyiniz.

 

[iharda]

Ekrem bey öncelikle ilginiz için teşekkürler formül en uygun fiyat olarak buluyor ama doğru firma ismini yazamıyor maalesef.

 

[antonio]

Aşağıdaki kodları deneyiniz:

Sub en_uygun_fiyat()
Dim sh As Worksheet, ss As Long, alan As Range, hcr As Range, fiyat As Double, _
    sat As Integer
sat = 2
Set sh = Sayfa1
ss = sh.Range("B:F").Find("*", , , , xlByRows, xlPrevious).Row
For i = 3 To ss
    Set alan = Union(Range("C" & i), Range("D" & i), Range("E" & i), Range("F" & i))
    fiyat = WorksheetFunction.Small(alan, 1)
    sh.Range("J" & i).Value = fiyat
    sh.Range("H" & i).Value = sh.Range("B" & i).Value
    For d = 1 To alan.Count
        If alan(d) = fiyat Then
            sh.Range("I" & i).Value = sh.Cells(sat, d + 2)
            Exit For
        End If
    Next d
Next i
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub

Örnek dosyanızı da ekledim. İnceleyiniz.

 

[Ekrem Bülbül]

Ekrem bey öncelikle ilginiz için teşekkürler formül en uygun fiyat olarak buluyor ama doğru firma ismini yazamıyor maalesef.

formülde hata var düzelttim

 

[iharda]

Teşekkürler hocam emeğinize sağlık gayet sağlıklı olmuş..

 

[iharda]

Aşağıdaki kodları deneyiniz:

Sub en_uygun_fiyat()
Dim sh As Worksheet, ss As Long, alan As Range, hcr As Range, fiyat As Double, _
    sat As Integer
sat = 2
Set sh = Sayfa1
ss = sh.Range("B:F").Find("*", , , , xlByRows, xlPrevious).Row
For i = 3 To ss
    Set alan = Union(Range("C" & i), Range("D" & i), Range("E" & i), Range("F" & i))
    fiyat = WorksheetFunction.Small(alan, 1)
    sh.Range("J" & i).Value = fiyat
    sh.Range("H" & i).Value = sh.Range("B" & i).Value
    For d = 1 To alan.Count
        If alan(d) = fiyat Then
            sh.Range("I" & i).Value = sh.Cells(sat, d + 2)
            Exit For
        End If
    Next d
Next i
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub

Örnek dosyanızı da ekledim. İnceleyiniz.

çok sağ olun her iki yöntemde gayet iş görüyor..

 

[Rabia3636]

Merhabalar
Örnek tabloda bir fiyat karşılaştırması var istediğim en uygun fiyatı bulup
belirttiğim yere listelenmesi açıklamam eksik olabilir kusuruma bakmayın
örnek dosyayı inceleyen arkadaşlar anlayacaktır demek istediğimi şimdiden
teşekkürler.

Merhaba ben bunu indiremedin

 

[Rabia3636]

formülde hata var düzelttim

Merhaba indirmek için altın üyelik mi gerek

 

[Korhan Ayhan]

Foruma üye olurken aşağıdaki uyarıyı görmediniz mi?