Yhdessä työkirjassa on 153 välilehteä. Jokaisen välilehden solussa A19 on teksti OY, KY, AY, tai TMI. Miten lasken yhteenvetosivulle OY esiintymien määrän?
Ja jatkokyssäri. Kun ehto A19=OY toteutuu, niin miten näiltä välilehdiltä saa laskettua B25 soluissa olevat arvot yhteen?
Työkirjan saman solun määrälaskenta
Onko helppo?
5
947
Vastaukset
- ettätälleen
VBA:lla tapahtuu varmaan helpostikkin!?
LASKE.JOS ja SUMMA.JOS funktiot usealla välilehdellä ei toimi ollenkaan, kuin esim. SUMMA-funktio
=SUMMA(Taul1:Taul153!B25) laskisi kaikkien välilehtien B25 solut yhteen, mutta jos laitetaan JOS mukaan, ei
homma enää onnistukkaan. Mutta....
=TULOJEN.SUMMA(LASKE.JOS(EPÄSUORA("'"&D1:D153&"'!A19");"oy")) - kaava laskee montako oy:tä löytyy
Kaavassa D1:D153 sisältää välilehtien nimet. Jos sinulla on joka välilehti nimetty erikseen, homma on valtava.
Mutta jos ovat Taul1, Taul2, jne..., helpottuu. Kirjoita D1 Taul1 ja vedä "kahvasta" 153 asti.(Voit tietysti korvata D1:D153 milla alueella tahansa, kun vain muutat "nimilistan" osoitteen kaavaan sitten oikeaksi)
Jatkokyssäriin vastaus:
=TULOJEN.SUMMA(SUMMA.JOS(EPÄSUORA("'"&D1:D153&"'!A19");"oy";EPÄSUORA("'"&D1:D153&"'!B25")))
Kaavat löytyvät tuolta enkunkielisinä:
http://www.ozgrid.com/forum/showthread.php?t=27306firmalaskuri soluista A19
haluamaasi soluun kaava
=Yritys("ky")
missä ky on firmatyyppi (KY,Ky.kY,ky- käy kaikki kirjoitusasut...)
muuta yhteenveto taulukon nimeä tarvittaessa, nyt yhteenveto ( muuttaa sen pieneksi joten ei ole väliä onko isoja tai pieniä kirjaimia)
summalaskuri soluista B25
haluamaasi soluun kaava
=YritysSumma("ky")
missä ky on firmatyyppi (KY,Ky.kY,ky- käy kaikki kirjoitusasut...)
muuta yhteenveto taulukon nimeä tarvittaessa, nyt yhteenveto ( muuttaa sen pieneksi joten ei ole väliä onko isoja tai pieniä kirjaimia)
moduuliin funktiot
Option Explicit
Function Yritys(Firmatyyppi As String) As Long
Dim taulukko As Worksheet
Dim löytyi As Variant
On Error Resume Next
Application.Volatile
For Each taulukko In ActiveWorkbook.Worksheets
If Not LCase(taulukko.Name) = "yhteenveto" Then
Select Case LCase(taulukko.Range("A19"))
Case LCase(Firmatyyppi)
Yritys = Yritys 1
Case Else
End Select
End If
Next taulukko
End Function
Function YritysSumma(Firmatyyppi As String) As Double
Dim taulukko As Worksheet
Dim löytyi As Variant
On Error Resume Next
Application.Volatile
For Each taulukko In ActiveWorkbook.Worksheets
If Not LCase(taulukko.Name) = "yhteenveto" Then
Select Case LCase(taulukko.Range("A19"))
Case LCase(Firmatyyppi)
YritysSumma = YritysSumma taulukko.Range("B25")
Case Else
End Select
End If
Next taulukko
End Function
Keep Excelling
@Kunde
- chowanders
Jatkokysymyksenä aiheeseen, miten saan seuraavanlaisen kaavan "jatkuvaksi": =TULOJEN.SUMMA(LASKE.JOS(EPÄSUORA("'"&$H$1:$H$5&"'!J9");"x")) ?
Kaavahan on siis syötettynä soluun J9, mutta tällä hetkellä kaavaa kopioidessani seuraavien rivien soluihin siinä pysyy "J9", vaikka haluaisin sen jatkuvan solun mukaisesti J9......J200. - ...
=TULOJEN.SUMMA(LASKE.JOS(EPÄSUORA("'"&$H$1:$H$5&"'!J" & RIVI());"x"))
- chowanders
Kiitos!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille
Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest124729Yritystuet pois ja työeläkevaroilla maksettava valtion velka pois
Nyt on teille kerrottu keino kuinka Suomen velkaongelmasta päästää eroon kertalaakista. Älkää saatanat enää minulle tul854231Suomen kansa puhunut: Purra huonoimpia ministereitä
Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden2323480Ylen juttu sisäministeristä oli selvän tarkoitushakuinen
haluttiin vielä vuoden loppuun saada joku "kohu". (Olisiko Yle tehnyt jutun jos sisäministerinä olisi esim. RKP:n, jota1053045Suomalaista yrittäjää ei kommunistista erota
Muualla maailmassa yrittäjät elävät asiakkaiden rahoilla, Suomessa palkansaajien maksamilla veroilla. Palkansaajahan ma342586- 241931
Ulkoministeriön konsulipäällikkö arvostelee rajusti Haavistoa: "Täällä on pelon ilmapiiri"
"– Täällä on ministerin toimien takia aivan selvästi pelon ilmapiiri. Jos sellaisen annetaan pesiytyä virkamieskulttuuri61759Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?
Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed881634- 2221613
Pyydän anteeksi etten osannut ratkaista
Mitään muuta kuin lähtemällä. Et oikein tullut vastaan etkä kuunnellut. Tuntui että minun piti koittaa sopia ja sovitell671541