DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,
Maalesef bu formül yeterli değil, siz denediniz mi bilmiyorum ama daha birinci aşamada sıfır rakamı varsa bunda bile çalışmıyor.
=BİRLEŞTİR(A3;" ";$B$1;" ayında en düşük fiyat ";İNDİS(B2:E3;1;KAÇINCI(MİN(B3:E3);B3:E3;0));" ";MİN(B3:E3);" TL")
Sub en_uygun_firma_fiyat()
Dim alan As Range, yer As String, k As Range, b As Range, d As String, y As String
With Sayfa1
For i = 3 To 7
Set alan = Union(.Range("B" & i), .Range("C" & i), .Range("D" & i), .Range("E" & i))
Set b = alan.Find(Application.WorksheetFunction.Max(alan))
Set k = alan.Find(Application.WorksheetFunction.Small(alan, 1))
sat = 2
.Range("N" & i).Value = .Cells(i, "A").Value & " OCAK ayında en düşük fiyat " & _
.Cells(sat, k.Column) & ", en yüksek fiyat " & .Cells(sat, b.Column)
Next i
End With
End Sub