Laskeminen, jos kahden saman rivin solut tietyt

PääLyöTyhjää

Tälläinen ongelma, eli sarakkeesta B löytyy kolmea eri arvoa: A, B ja C. Sarake D on joko tyhjä tai x. Millä komennolla voin laskea kuinka monelta riviltä löytyy B-sarakkeesta arvo C ja D-sarakkeesta x?

Rivien määrää ei ole ennalta määritelty vaan voi vaihdella.

5

198

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Laskejosjoukko

      =LASKE.JOS.JOUKKO(B:B;"C";D:D;"X")

      • PääLyöTyhjää

        Tätä juuri tarkoitin. Onnistuuko jollain komennolla vai onko helpompaa lähteä toteuttamaan VBA:lla seuraavaa:

        Välilehdeltä "data" etsitään kaikki rivit joissa samalla rivillä B-sarakkeessa esiintyy "C" ja D-sarakkeella "x". Kun kummatkin sarakkeet sisältävät nämä tiedot kopioidaan E-sarakkeesta oleva teksti välilehden "yhteenveto" soluun B2 ja seuraava kummatkin ehdot toteutava kopioidaan soluun B3, jne.

        Data-välilehdellä rivimäärää ei ole edelleenkään määritelty ja C:tä ja x:ää voi esiintyä useamman kerran.


    • Function EtsiJaSiirrä2(Hakuehto As Variant) As Range

      Dim solu As Range
      Dim EkaOsoite As String
      Worksheets("Data").Activate
      With Range("D:D")
      Set solu = .Find( _
      What:=Hakuehto, _
      LookIn:=xlValues, _
      LookAt:=xlWhole, _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, _
      MatchCase:=False, _
      SearchFormat:=False)
      If Not solu Is Nothing Then
      EkaOsoite = solu.Address
      If UCase(solu.Offset(0, -1)) = "C" Then
      Set EtsiJaSiirrä2 = solu.Offset(0, -2)

      Set EtsiJaSiirrä2 = Union(EtsiJaSiirrä2, solu.Offset(0, 1))
      End If
      Do
      Set solu = .FindNext(solu)
      If UCase(solu.Offset(0, -2)) = "C" Then
      If EtsiJaSiirrä2 Is Nothing Then
      Set EtsiJaSiirrä2 = solu.Offset(0, 1)
      Else
      Set EtsiJaSiirrä2 = Union(EtsiJaSiirrä2, solu.Offset(0, 1))
      End If
      End If
      Loop While Not solu Is Nothing And solu.Address <> EkaOsoite
      End If
      End With
      End Function

      Sub Testi2()
      Dim Löydetty As Range
      Dim solu As Range
      On Error GoTo virhe
      Set Löydetty = EtsiJaSiirrä2("X")
      Worksheets("Yhteenveto").Range("B2:B10000") = ""
      Löydetty.Copy Range("Yhteenveto!B65536").End(xlUp).Offset(1, 0)
      Exit Sub
      virhe:
      MsgBox "Hakuehdoilla ei löytynyt tietoja!", vbInformation
      End Sub

      Keep EXCELing
      @Kunde

    • Kikkaekku

      TLaskeA
      Lasket määriä kahdella ehdolla. Määrät on laske ja monta ehtoa on T-funktiot
      Tarvitset vain ehtoaluuen:
      sarakkeen otsikkosolu, otsikkosolu
      C x

      Eli yksi ehto on otsikko ja tieto, nyt käytät kahta ehtoa.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      89
      1839
    2. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      277
      1703
    3. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      292
      1470
    4. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      175
      1379
    5. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      51
      957
    6. Avustikset peruttu.

      Aettokosken ampuraan rahat otettu poekkeen valtiolle.
      Suomussalmi
      56
      957
    7. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      70
      937
    8. 66
      914
    9. Miksi mies tuntee näin?

      Eli olen mies ja ihastuin naiseen. Tykkään hänestä ja koskaan hän ei ole ollut minulle ilkeä. Silti ajoittain tunnen kui
      Ikävä
      40
      901
    10. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      52
      888
    Aihe