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

147

    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


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

    Luetuimmat keskustelut

    1. Haluaisitko nähdä

      Hänet alastomana?
      Ikävä
      78
      3935
    2. Hilirimpsistä

      Hyvää huomenta ja kivaa päivää. Ilmat viilenee. Niin myös tunteet. 🧊☕✨🍁❤️
      Ikävä
      201
      3052
    3. Nainen lopeta pakoon luikkiminen?

      Elämä ei oo peli 😔😟
      Ikävä
      25
      2990
    4. Älä elättele

      Toiveita enää. Ihan turhaa. Sotku mikä sotku.
      Ikävä
      49
      2818
    5. Olet täällä. Mutta ei minulle.

      Nyt olen tästä 100% varma. Satuttaa. T: V
      Ikävä
      24
      2774
    6. Kuule rakas...

      Kerrohan minulle lempivärisi niin osaan jatkaa yhtä projektia? Arvaan jo melkein kyllä toki. Olethan sinä aina niin tyyl
      Ikävä
      41
      2515
    7. Miten hitsissä ulosoton asiakas?

      On tää maailma kumma, tässä haisee suuri kusetus ja ennennäkemättömän törkeä *huijaus*! Miten to.monen kieroilu on edez
      Kotimaiset julkkisjuorut
      284
      2367
    8. Kela valvoo lasten tilejä.

      Tämä isoveli Kela kyttää jopa lasten yli 200,- euron rahat jotka on melko varmasti lahjaksi saatu. Se vaikuttaa perheen
      Yhteiskunta
      224
      2073
    9. Törmättiin tänään

      enkä taaskaan osannut reagoida fiksusti. Menen aina lukkoon. Yksi asia on varma: tunteeni sinua kohtaan ovat edelleen v
      Ikävä
      24
      1977
    10. Vieläkö sä

      Rakastat mua?❤️😔
      Ikävä
      44
      1937
    Aihe