Excel Sayfalarında En Düşük Değeri Bulmak

[5353]

Örneğin:
EXCELLL Sayfa 1, Sayfa 2, Sayfa 3, Sayfa 4 gibi sayfalarımızda rakamsal değerler olsun, Sayfa 5' te bu 1 2 3 4 sayfalardaki en düşük değeri arayıp sayfa 5 te karşısında yazmasını nasıl sağlayabiliriz..
şimdiden teşekkürler.

 

[Mahir64]

Örneğin:
Sayfa 1, Sayfa 2, Sayfa 3, Sayfa 4 gibi sayfalarımızda rakamsal değerler olsun, Sayfa 5' te bu 1 2 3 4 sayfalardaki en düşük değeri arayıp sayfa 5 te karşısında yazmasını nasıl sağlayabiliriz..
şimdiden teşekkürler.

Merhaba

Başlığınız: Web Sayfalarında En Düşük Değeri Bulmak

Web sayfası ile bağlantısı nedir sorunun. Yapmak istediğinizi ecelde mi yapmak istiyorsunuz.

 

[5353]

Yanlış yazdım Weble ilgisi yok aslında Excell de yapmak istiyorum Excel sayfalarında..

 

[Mahir64]

Yanlış yazdım Weble ilgisi yok aslında Excell de yapmak istiyorum Excel sayfalarında..

Merhaba
Kriterleriniz neler?
Sayfalarda hangi sütunlarda olacak sayılar.örnek ekleyerek açıklayabilirmisiniz.

 

[5353]

Örnek

Sayfa1 Sayfa 2 Sayfa 3 Sayfa 4 Sayfa 5 Förmüllü
Tuz 5 TL Tuz 4,85 TL Tuz 4,90TL Tuz 4,96 TL Tuz 4,85 TL yazacak
Şeker 8 TL Şeker 7,95 TL Şeker 6,8 TL Şeker 8,1 TL Şeker 6,8 TL Yazacak
Salça
.... gibi
sayfa 5 te en düşük değeri seçip yazmasını istiyorum.

 

[Mahir64]

Örnek

Sayfa1 Sayfa 2 Sayfa 3 Sayfa 4 Sayfa 5 Förmüllü
Tuz 5 TL Tuz 4,85 TL Tuz 4,90TL Tuz 4,96 TL Tuz 4,85 TL yazacak
Şeker 8 TL Şeker 7,95 TL Şeker 6,8 TL Şeker 8,1 TL Şeker 6,8 TL Yazacak
Salça
.... gibi
sayfa 5 te en düşük değeri seçip yazmasını istiyorum.

Bu belittiğiniz değerler sayfalarda hangi hünrelerde olacak.

 

[Korhan Ayhan]

Selamlar,

Bu işlem için size bir kullanıcı tanımlı fonksiyon hazırladım.

Kullanım şekli;

[B][COLOR=blue]=SAYFALARDA_MİNİMUM(Aranan_Veri;Aranan_Aralık;Sonuç_Aralık)[/COLOR][/B]

Kullanılan kod;

Option Explicit
 
Function SAYFALARDA_MİNİMUM(Aranan_Veri As Range, Aranan_Aralık As Range, Sonuç_Aralık As Range)
    Dim Sayfa As Worksheet, En_Küçük As Double, Sonuç As Double
    
    Application.Volatile True
        
    For Each Sayfa In ThisWorkbook.Worksheets
        If ActiveSheet.Name <> Sayfa.Name Then
            Sonuç = Evaluate("=MIN(IF(" & Sayfa.Name & "!" & Aranan_Aralık.Address & "=""" & Aranan_Veri & """," & Sayfa.Name & "!" & Sonuç_Aralık.Address & "))")
            If En_Küçük = 0 Then
                En_Küçük = Sonuç
            ElseIf Sonuç < En_Küçük Then
                En_Küçük = Sonuç
            End If
        End If
    Next
    
    SAYFALARDA_MİNİMUM = IIf(En_Küçük = 0, "#YOK", En_Küçük)
End Function

Ayrıca örnek dosya ekledim. İncelermisiniz.