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

451

    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. VVM Riikka Purra ministerin asemassaan valehteli ja rikkoi perustuslakia.

      Valtiovarainministeri Riikka Purra (PS) kiisti Ylen ykkösaamussa luvanneensa ennen vaaleja, ettei pienituloisilta leikat
      Politiikka
      80
      14218
    2. Me, Suomen kansa, vaadimme Riikka Purran eroa ministerin tehtävästä

      Riikka Purra on toistuvalla valehtelullaan osoittanut olevansa epärehellinen henkilö. Perustuslain kohdassa 60 § edell
      Maailman menoa
      96
      7139
    3. Purra ennen vaaleja: "pienituloisten etuuksista leikkaaminen ei meille käy"

      "...perussuomalaisten ero muun muassa kokoomukseen, joka haluaa leikata pienituloisten etuuksista, se ei meille käy."
      Maailman menoa
      82
      3909
    4. Toksinen persuvasemmisto

      Kun toksiset ihmiset eivät kykene hallitsemaan sinua, saamaan sinua näkemään asiat niin kuin he haluaa, toimimaan niin k
      Maailman menoa
      25
      2917
    5. Rikkaiden ja yritysten veroaleen ei ole varaa

      Ei pieni Suomi pysty elättämään vanhenevaa väestöä nykyisellä veroasteella. Ainakin 5-prosenttiyksikköä pitää kokonaisve
      Maailman menoa
      41
      2544
    6. 78
      2086
    7. "Minua ei kiinnosta opiskelu eikä töissä käyminen"

      Voiko lausunnosta päätellä lainkaan mikä puolue saattaisi ajaa tuollaisen kansalaisen elämäntavan mahdollistamista? htt
      Maailman menoa
      90
      2009
    8. Huomentaaaa

      Hyvää huomenta.... Tiiätkö kuinka vaikeata susta on ottaa mitään selvää ja ymmärtää yhtään mitään? Mukavaa päivää... sil
      Ikävä
      36
      1910
    9. Mitä Purra oikeasti sanoi ennen vaaleja...

      ...pienituloisten leikkaamisesta? Tässä se on. "Esimerkiksi se, mistä aiotaan leikata, perussuomalaisten ero muun muass
      Maailman menoa
      105
      1901
    10. Tikkunenällä on kovat luulot itsestään

      Mut ei tarjottavana muuta kuin katkeruutta, ilkeyttä ja ilkeä luonne hyih.. oikea miesten nielijä Onneksi kaivatullani
      Ikävä
      13
      1729
    Aihe