Solujen / rivien piilottaminen kaavoilla

kuinka?

Onnistuuko tehdä sellainen kaava että jos taulukossa 1 jossakin solussa on TOSI, niin taulukossa 2 piiloutuu tai poistuu kokonaan jokin solu tai koko rivi?

3

555

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • muuttele alueita sopivaksi

      taulukon moduuliin

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      HaeJaPiilota
      End Sub

      moduuliin...

      Function HaeJaPiilota()
      Dim solu As Range
      With Sheets("Sheet1").Cells
      Set solu = .Find( _
      What:=True, _
      LookIn:=xlValues, _
      LookAt:=xlWhole, _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, _
      MatchCase:=False, _
      SearchFormat:=False)
      End With


      If Not solu Is Nothing Then
      Sheets("Sheet2").Columns("F:G").EntireColumn.Hidden = True
      Else
      Sheets("Sheet2").Columns("F:G").EntireColumn.Hidden = False
      End If

      End Function

      • eikös tuossa

        kysytty
        Onnistuuko tehdä sellainen kaava että jos taulukossa 1 jossakin solussa on TOSI, niin taulukossa 2 piiloutuu tai poistuu kokonaan jokin solu tai koko rivi?

        Mites tämä noilla onnistuu ?


      • eikös tuossa kirjoitti:

        kysytty
        Onnistuuko tehdä sellainen kaava että jos taulukossa 1 jossakin solussa on TOSI, niin taulukossa 2 piiloutuu tai poistuu kokonaan jokin solu tai koko rivi?

        Mites tämä noilla onnistuu ?

        ei voi tehdä pelkillä kaavoilla, joten on käytettävä koodia...
        koodi toimii siten, että kun taulukko1:ssä joku tieto muuttuu tarkistetaan löytyykö TRUE. Jos löytyi piilotetaan sarakkeet, muuten poistetaan piilotus.
        pikkumuutoksilla voi esim. tyhjentää solujen arvot


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

    Luetuimmat keskustelut

    1. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      140
      2696
    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      109
      1524
    3. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      138
      1381
    4. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      359
      1322
    5. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      109
      1221
    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      99
      1115
    7. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      14
      825
    8. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      47
      800
    9. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      252
      759
    10. 55
      744
    Aihe