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
948
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
Mitä aiot tehdä uudenvuoden aattona
Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks1523426Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t512422- 1161220
Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu131203Ikävä sinua..
Kauan on aikaa kulunut ja asioita tapahtunut. Mutta sinä M-ies olet edelleen vain mielessäni. En tiedä loinko sinusta va101109Väestönsiirtoa itään?
Ano "the Russo" Turtiainen sai poliittisen turvapaikan Venäjältä. Pian lähtee varmaan Nazima Nuzima ja Kiljusen väki per49948- 46894
Vuoden luetuimmat: Mikä on Pelle Miljoonan taiteilijaeläkkeen suuruus?
Pelle Miljoonan eläkkeen suuruus kiinnosti lukijoita tänä vuonna. Artikkeli on Suomi24 Viihteen luetuimpia juttuja v. 2019890- 40785
Riikka Purra sanoo, että sietokykyni vittumaisiin ihmisiin alkaa olla lopussa.
https://www.iltalehti.fi/politiikka/a/be8f784d-fa24-44d6-b59a-b9b83b629b28 Riikka Purra sanoo medialle suorat sanat vitt202721