Sarakkeiden piilottaminen aktiivisen rivin per

Koodi_hukassa

Eli aktiivisen rivin tyhjien solujen perusteella pitäisi piilottaa sarakkeet määritetyltä sarakealueelta. Ja millä koodilla kaikki sarakkeet taas palautetaan takaisin esille?

3

193

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ORCL

      Ohessa moduuliin kaksi makroa. Muuta kolmella koodirivillä haluamasi sarakeväli. Mallissa tällä hetkellä välinä A- Z. Ensimmäisellä makrolla saa piiloon tyhjien solujen sarakkeet sarakevälillä ja toisella makrolla saa kaikki sarakkeet taas näkyviin. Onko apua ?

      Sub PiilotaSarakkeet()
      Dim Alue As Range
      Dim Solu As Range
      Columns("A:Z").Hidden = False 'haluttu sarakeväli tähän
      Set Alue = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row) 'haluttu sarakeväli tähän
      For Each Solu In Alue
      If IsEmpty(Solu) Then
      Columns(Solu.Column).Hidden = True
      End If
      Next Solu
      End Sub

      Sub NäytäSarakkeet()
      Columns("A:Z").Hidden = False 'haluttu sarakeväli tähän
      End Sub

      • Koodi_hukassa

        Just noin! Kiitos ORCL

      • kunde

        ei tarvitse määritellä aluetta...

        Sub Piilota()
        ActiveCell.EntireRow.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
        End Sub

        Sub Näytä()
        ActiveCell.EntireRow.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = False
        End Sub

        Keep EXCELing
        @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Toiselle puolikkaalleni

      Sinulla ei taida olla kaikki nyt ihan hyvin? Minua itketti eilen kauheasti, sinunko itkuja itkin? Kyllä kaikki selviää j
      Ikävä
      42
      2224

    2. Pysy kaukana musta

      Ja kaikista mun läheisistä. Oon tosissani.
      Ikävä
      24
      1780

    3. Katu täyttyy askelista...

      Hyvää sunnuntaita ja hyvää jatkoa jos näin...Vettä sataa, mutta hyvä vaan, ainakin kasveille.
      Ikävä
      27
      1435

    4. Kuvaile kaivattusi

      ulkonäköä. 💡
      Ikävä
      109
      1264

    5. Näin susta unta

      Teit siinä temppuja ja kurkit huomaanko. Niinkuin sun tarttis sitä epäillä. Öitä tuimalle!
      Ikävä
      15
      1229

    6. Mitä hämminkiä Halkokarilla?

      Poliiseja ja ambulansseja pyörii, laukauksia kuultu.
      Kokkola
      18
      1035

    7. Tiedätkö nainen sen tunteen

      Kun toinen tulee jossain vastaan. Naama leviää hymyyn kuin hangonkeksi. Mulla on susta semmonen,tunne.
      Ikävä
      71
      944

    8. Kauniit ihmiset ei ole sinkkuja, se on karu fakta

      Ihmisessä on lähes poikkeuksetta aina jotain vikaa jos hän pysyy sinkkuna pitkään. Sori kun sanon tän näin suoraan, mut
      Ikävä
      107
      864

    9. Kristinusko - epätoivoinen yritys pelastaa ihmiset jumalalta

      Ei ole mitään sellaista, mitä pitää "pelastua". Lukuun ottamatta tietysti ”jumalan” (sen ei jumalan, joka väittää oleva
      Hindulaisuus
      333
      853

    10. Mikset päästä irti ja hae apua

      Mt ongelmiisi. En vaan voi ikinä enää luottaa sinuun, pelkään sinua ja toivon löytäväni jonkun muun. Rahaa sulla on saad
      Ikävä
      74
      846
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt