Temat: Odwołanie do wartości minimalnej poprzez funkcję MIN
taka procedura:
Sub Stworz_Lacze()
Dim dblWartoscKomorki As Double
Dim shtArkusz As Worksheet
Dim rngKom As Range
Dim rngMin As Range
Dim shtMin As Worksheet
Set shtMaster = Worksheets("17042010")
dblWartoscKomorki = shtMaster.Range("D20")
For Each shtArkusz In ThisWorkbook.Worksheets
Set rngKom = shtArkusz.Range("D20")
If rngKom.Value <= dblWartoscKomorki Then
Set rngMin = rngKom
Set shtMin = shtArkusz
dblWartoscKomorki = rngKom
End If
Next shtArkusz
shtMaster.Hyperlinks.Add Anchor:=shtMaster.Range("B1"), Address:="", _
SubAddress:=shtMin.Name & "!" & rngMin.Address, TextToDisplay:="Minimum"
End Sub
Stworzy odnośnik w arkuszu "17042010" w komórce B1, którego kliknięcie przeniesie użytkownika do arkusza, w którym wartość komórki D20 jest minimalna.
Załozyłem przy tym, że arkusz "17042010" jest wspomnianym "Masterem"
Oczywiście przy zmianie wartości w którj kolwiek komórce "D20" trzeba będzie procedurę wykonać od nowa, więc zasadnym byłoby podpięcie jej pod zdarzenie reagujące na zmianę wartości.