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.
Laskeminen, jos kahden saman rivin solut tietyt
PääLyöTyhjää
5
156
Vastaukset
- 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
JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!
Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t298819Hetken jo luulin, että en ikävöi sinua koko aikaa
Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r357351Nolointa ikinä miehelle
On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai1053650V*ttuu että mä haluan sua
Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!693516Outoa että Trump ekana sanoutui irti ilmastosopimuksesta
kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.6103144- 772948
Eli jos toisen hiki haisee ns. omaan nenään siedettävältä
Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳392688- 352623
Sattuma ja muutama väärinkäsitys
vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul321993- 331544