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

579

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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 ?

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

    Takaisin ylös

    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
      84
      1646

    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
      269
      1551

    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
      271
      1288

    4. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      169
      1262

    5. Avustikset peruttu.

      Aettokosken ampuraan rahat otettu poekkeen valtiolle.
      Suomussalmi
      56
      877

    6. Toivon että jätät tämän päivän jälkeen minut lopullisesti rauhaan mies

      Ihan kokonaan, kiitos.
      Ikävä
      66
      854

    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ä
      65
      843

    8. 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
      831

    9. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      40
      817

    10. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      44
      791
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt