Mulla olisi taulukko, johon kertyy dataa eri päiviltä. Uuden päivän tiedot tulevat aina eri välilehdelle niin, että vastaava tieto on aina samassa solussa.
Ongelma:
Yksi välilehti halutaan pitämään kirjaa minimiarvoista tietyistä soluissa.
Esim. Kuinka saan haettua pienimmän yksittäisen arvon jokaisen välilehden solusta L38? Yhdelle välilehdelle tämä on helppoa eli näin =MIN('Taul1'!L38) mutta kuinka tämä saataisiin tehtyä koskemaan kaikkia välilehtiä...
Ongelma:
Yksi välilehti halutaan pitämään kirjaa minimiarvoista tietyistä soluissa.
Esim. Kuinka saan haettua pienimmän yksittäisen arvon jokaisen välilehden solusta L38? Yhdelle välilehdelle tämä on helppoa eli näin =MIN('Taul1'!L38) mutta kuinka tämä saataisiin tehtyä koskemaan kaikkia välilehtiä...
Vastaukset 4
Vanhimmat
=MIN(Sheet2:Sheet6!L38)
Periaatteessa kyllä, mutta....välilehtiä tulee lisää säännöllisin väliajoin ja oikeasti välilehden nimi vaihtelee päivämäärän ja tapahtumapaikan mukaan (n.kk välein). Jos/kun lisään tietoa taulukkoon niin lisään uuden välilehden. Tällöin kaavaakin pitäisi silloin muokata taas uudelleen -> ei hyvä ratkaisu..
Teinpä nyt purkkaratkaisun tähän ja lisäsin ylimääräisen välilehden taulukon viimeiseksi välilehdeksi, lukitsin sen ja piilotin näkyvistä.. Näin "väliin" lisätyt taulukot tulevat suoraan osaksi tätä määritettyä kaavaa. Riittää tähän tarkoitukseen, mutta mielelläni korjaan tämän jos löytyy helppo tapa tehdä tämä järkevämminkin...
soluun mihin haluat tuloksen kaava esim. =Minimi(C1)
vaihda koontitaulukon nimi sopivaksi (nyt Yhteenveto)
moduuliin...
Option Explicit
Function Minimi(Solu As Range) As Double
Dim i As Integer
Minimi = 9999999999
Application.Volatile True
For i = 1 To Worksheets.Count
If Not Worksheets(i).Name = "Yhteenveto" Then
If IsNumeric(Worksheets(i).Range(Solu.Address)) Then
If Minimi > Worksheets(i).Range(Solu.Address) Then
Minimi = Worksheets(i).Range(Solu.Address)
End If
End If
End If
Next
End Function
Keep EXCELing
@Kunde