Sarakkeiden piilottaminen koodilla

Novviisi

Löytyiskö mallia koodista joka tekisi jotain tällaista:
Käy läpi arvot soluista C3:X3, piilota sarake, jos arvo on tyhjä tai nolla?

2

468

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • taas pelaa foorumi, eikä olla bannattuna )-;

      haullahan näitä samoja kyssäreitä alkaa olla jo piisalle asti (mielestäni paras RANGE-funktio)...
      ei tartte yleensä kuin solualueen ja tarpeen muutoksen- eli pikku fiksauksen.
      Liian VAIKEAAKO???

      moduuliin...

      Function EtsiJaSiirrä(Hakuehto As Variant) As Range
      Dim solu As Range
      Dim EkaOsoite As String
      Worksheets("Taul1").Activate
      With Range("C3:X3")
      Set solu = .Find( _
      What:=Hakuehto, _
      LookIn:=xlValues, _
      LookAt:=xlWhole, _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, _
      MatchCase:=False, _
      SearchFormat:=False)
      If Not solu Is Nothing Then
      Set EtsiJaSiirrä = solu
      EkaOsoite = solu.Address
      Do
      Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
      Set solu = .FindNext(solu)
      Loop While Not solu Is Nothing And solu.Address EkaOsoite
      End If
      End With
      End Function

      Sub Testi2()
      On Error Resume Next
      Dim Löydetty As Range
      Dim solu As Range
      Set Löydetty = EtsiJaSiirrä("")
      Löydetty.EntireColumn.Delete
      Set Löydetty = EtsiJaSiirrä(0)
      Löydetty.EntireColumn.Delete
      End Sub

      • Toimii hyvin!

        Kun näitä ei työkseen tee ja harvakseltaan muutenkin, on ihan perusjututkin ihan hakusessa. Tästä sain höylättyä toimivan version. Kiitos!


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

    Luetuimmat keskustelut

    1. Jussi Halla-aho huolissaan Sofia Virrasta

      Jussihan on vanha vihreä. Onko tässä kyse alkukesän kiimasta, kun aidan toisella puolella oleva vihreä alkaa kiinnostama
      Maailman menoa
      93
      7670
    2. Sofia Virta kadonnut....onko juomassa?

      Virran poissaolo eduskunnasta on herättänyt huomiota. Esimerkiksi Ilta-Sanomat kertoi aiemmin, että Virta on ollut tällä
      Maailman menoa
      124
      6390
    3. Julkista rahaa ei tule antaa senttiäkään yksityisille yrityksille

      Julkinen raha on meidän yhteistä rahaa, ja se raha on tarkoitettu yhteiseen käyttöön, kuten esimerkiksi tuottamaan palve
      Maailman menoa
      164
      4501
    4. Tytti Tuppurainen: Suomen pakolaiskiintiö pitäisi nostaa 10 000 vuodessa

      asia on faktaa, noin Tytti sanoi aiemmin. Kun taas Orpon hallitusohjelman mukaisesti Suomen pakolaiskiintiö on pudotettu
      Maailman menoa
      235
      3091
    5. Halla-aho sivaltaa edustajantyöstään lintsaavaa Sofia Virtaa

      https://www.iltalehti.fi/politiikka/a/937c74d7-f905-4466-b9b4-abd017fe5b63 Kansanedustajan on ilmoitettava poissaolosta
      Maailman menoa
      91
      2656
    6. Ruotsissa uusi monikulttuurisuusongelma: Mummonraiskuut

      Ilmiö räjähti käsiin ja nyt painetaan paniikkinappulaa. Moni vanhustenhoivayhtiö on joutunut jopa lopettamaan, koska keh
      Maailman menoa
      44
      2012
    7. Tunnustusten lauantai

      Mitä haluat sanoa kaivatullesi?
      Ikävä
      140
      1668
    8. Yhteydenotto

      Tiedätkö tai ymmärrätkö syyn, miksi kaivattusi ei ota sinuun yhteyttä? Mikä se syy on?
      Ikävä
      197
      1564
    9. Sofia Virta SUURI POLIITIKKO

      Osallistumalla Erikoisjoukkoihin nostaa Vihreät kauaksi ohi perussuomalaisista, joka on muutenkin hajoamassa omaan mahdo
      Maailman menoa
      48
      886
    10. Minkä arvosanan 4-10 annat Susanna Laineelle Farmi-juontohommista?

      Minkä arvosanan 4-10 annat Suskille? Tätä ei tv:ssä: Susanna Laine paljastaa, mikä yksi asia hermostuttaa Farmi-kuvauk
      Tv-sarjat
      21
      822
    Aihe