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

454

    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. Lopetin kokonaan ravintoloissa ruokailun ja juomisen

      Ravintoloissa hinnat ovat aivan naurettava korkealla. Alkoholin juomisessa ravintoloissa ei ole senkään vertaa järkeä.
      Maailman menoa
      171
      2566
    2. Omakotitalossa väkivaltaa ounasrinteellä

      Kertoo iltalehdet Mitä lienee Tapahtui. Verinen ihminen kannettu lanssiin
      Rovaniemi
      22
      2244
    3. kukaan ei pakota kasteeseen..

      Kommentointi estetty, joten kommentoin tähän.Kukaan ei pakota pakkokasteesta puhuvaa kastamaan lastansa.Noloa edes ehdot
      Kaste
      400
      1055
    4. Mari Rantanen eroa! Lausunnot vapun pahoinpitelystä ovat järkyttäviä!

      Poliisiministerin, eli sisäministeri Mari Rantasen on syytä erota!
      Maailman menoa
      147
      910
    5. Kai odotan että

      Juokset vielä perässäni
      Ikävä
      66
      844
    6. Anabaptismin kirous

      Uudestikastetut lahkolaiset joutuvat valheen kierteeseen. He joutuvat herjaamaan lapsena saamaanssa kastetta nimeen Isä
      Kaste
      382
      804
    7. Mitä ikävöit eniten

      kaivatussasi? 🫶
      Ikävä
      55
      732
    8. Kerrohan T miehelle yksi syy

      Miksi hänen tulisi kaivata sinua?
      Ikävä
      97
      710
    9. Rakas, haluan sut niin hulluna kuin olet, tiedän jo sun pakkomielteet ja muut jutut, ihana naiseni

      Kunhan et minun takia satuta itseäsi tai muita, minulla nyt ole niin väliä. Rakas mä ymmärrän ja näen kaiken, sun suure
      Ikävä
      47
      654
    10. Euroviisuhuitelua

      En ole koko viisuista kiinnostunut enkä aio edes katsoa kisoja. Ihmetyttää tämä vouhkaaminen laulaja pariskunnasta joka
      80 plus
      32
      643
    Aihe