Maksimum Değer Bulma

[scoskunsu07]

Merhaba,

Çok sayıda sheet olan bir excelde her sheetteki maksimum değeri bulup tek bir sayfada sheet adı ve maksimum değeri yazmasını istiyorum. Örnek olarak bir excel paylaştım bunu yapabilirsek kendi excelime revize edebilirim
Teşekkür ederim

İndir Örnek

Dosyayı indir Örnek

dosya.co

 

[ÖmerFaruk]

B2 hücrenize aşağıdki formülü deneseniz işiniz görülüyor mu?
=MAK(KAYDIR(DOLAYLI(ADRES(1;1;1;1;A2));;;8;3))

 

[scoskunsu07]

B2 hücrenize aşağıdki formülü deneseniz işiniz görülüyor mu?
=MAK(KAYDIR(DOLAYLI(ADRES(1;1;1;1;A2));;;8;3))

Evet oluyor ama vba kodu ile yapmak istiyorum bunu yazımda belirtmeyi unutmuşum afedersiniz

 

[ÖmerFaruk]

Sub Maksimumlar()
Dim Sh As Worksheet, Say As Integer
    Worksheets("İSTENİLEN").Range("A2:B" & Rows.Count).ClearContents
    Say = 1
    For Each Sh In Worksheets
        If Sh.Name <> "İSTENİLEN" Then
            Say = Say + 1
            Worksheets("İSTENİLEN").Range("A" & Say) = Sh.Name
            Worksheets("İSTENİLEN").Range("B" & Say) = Application.WorksheetFunction.Max(Sh.Range("A:C"))
        End If
    Next Sh
End Sub

 

[scoskunsu07]

Sub Maksimumlar()
Dim Sh As Worksheet, Say As Integer
    Worksheets("İSTENİLEN").Range("A2:B" & Rows.Count).ClearContents
    Say = 1
    For Each Sh In Worksheets
        If Sh.Name <> "İSTENİLEN" Then
            Say = Say + 1
            Worksheets("İSTENİLEN").Range("A" & Say) = Sh.Name
            Worksheets("İSTENİLEN").Range("B" & Say) = Application.WorksheetFunction.Max(Sh.Range("A:C"))
        End If
    Next Sh
End Sub

Teşekkür ederim elinize sağlık

 

[ÖmerFaruk]

Eyvallah