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

190

Äänestä

    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.

    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Sun ja kaivattusi

      ikäero? Kumpi vanhempi, m vai n?
      Ikävä
      88
      1527

    2. Kesän odotuksia hyrynsalmella

      Kyllä kesällä hyrynsalmellakin on mahdollisuus osallistua kylän menoon monella tavalla . On kaunislehdon talomuseolla
      Hyrynsalmi
      10
      1400

    3. Kai sä näät

      Ku sua katson et olen aika rakastunut. Rakkaus ei vain ole aina niin yksinkertaista
      Ikävä
      78
      1323

    4. Katsotko mieluiten

      Kaivatussasi mitä?
      Ikävä
      69
      1230

    5. Mikä on ollut

      Epämiellyttävin hetki sinun ja kaivattusi romanssissa?
      Ikävä
      115
      1119

    6. Tämän hetken

      Terveiset kaivatullesi ⬇️
      Ikävä
      75
      1001

    7. Vieläkö sä toivot

      Meidän välille jotain?
      Ikävä
      69
      941

    8. Anne Kukkohovi ei myykkään pikkuhousujaan

      Kyseessä oli vain markkinointitempaus. Anne höynäytti hienosti kaikkia ja Onlyfans-tilinsä tilaajamäärä lähti jyrkkään n
      Maailman menoa
      255
      930

    9. Voi Rakas siellä

      Olet ollut mun ajatuksissa taas koko päivän. Olet ihmeellinen kertakaikkiaan ja arvostan sinua niin paljon❤️Minulla ei o
      Tunteet
      17
      880

    10. Pidätkö kaivatustasi

      Minkä vuoksi erityisesti? Mikä hänessä vetoaa?
      Ikävä
      34
      846
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt