Vba:ta

H sarake

Jos H sarake, tyhjä poista koko rivi. Mites tehdään ? Eli H sarakkeessa tyhjiä rivejä joissa kuitenkin A-G sarakkeissa tietoa. Haluaisin pois kaikki ne rivit joissa H sarakkeessa ei ole tietoa.

7

159

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • noduuliin...

      Sub Poista()
      Range("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
      End Sub

      Keep EXCELing
      @Kunde

    • H sarake

      Kiitos Kunde, hyvin toimii.

    • Kysyvä ei eksy

      Jos tuossa H sarakkeen soluissa on funktio niin tuo ohjelman pätkä ei poista niitä rivejä joilla funtio löytyy. Miten sen saisi lisättyä niin että se poistaa myös ne rivit jotka ovat tyhjiä kuten ketjun aloittaja kysyi, mutta joihin on sisälletty jokin funktio ?

    • Miten sen saisi lisättyä niin että se poistaa myös ne rivit jotka ovat tyhjiä kuten ketjun aloittaja kysyi, mutta joihin on sisälletty jokin funktio ?

      tarkoitatko soluja, joissa kaava 'ja tulos on tyhjä vaiko
      soluja, jotka tyhjiä solut, joissa kaava?

    • Kysyvä ei eksy

      Solut jotka ovat tyhjiä solut joissa on kaava, muttei kuitenkaan niitä joihin kaava on jo laskenut tuloksen. Kiitos tarkennuksesta

    • Sub PoistaTyhjätKaavatKanssa()
      Dim TyhjätKaavat As Range
      Dim solu As Range
      Range("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
      Range("H:H").SpecialCells(xlCellTypeFormulas).Select
      For Each solu In Selection
      If Len(solu) = 0 Then
      If TyhjätKaavat Is Nothing Then
      Set TyhjätKaavat = solu
      Else
      Set TyhjätKaavat = Union(TyhjätKaavat, solu)
      End If
      End If
      Next
      TyhjätKaavat.EntireRow.Delete
      End Sub


      Keep EXCELing
      @Kunde

      • Kysyvä ei eksy

        Kiitos Kunde, juuri mitä toivoin


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

    Luetuimmat keskustelut

    1. Näin Enter-napilla tehdään miljardi euroa - Helsingissä

      "Ei se nyt niin kovin ihmeelliseltä näytä. Tavallinen nappi, musta muovinpala, joka kököttää parikymppiä maksavan mustan
      Maailman menoa
      20
      18644
    2. Minulla ei ole ketään muita

      Enkä halua ketään muita kuin sinut.
      Ikävä
      59
      5559
    3. 4,5 promillee

      Aika rajut lukemat joku eilen puhaltanut.
      Suomussalmi
      24
      5167
    4. Perussuomalaiset kirjoittaa vain positiivisista uutisista

      Ei tarvitse palstaa paljon seurata, kun sen huomaa. Joka ainoa positiivinen uutinen Suomen taloudesta tai ylipäätään, ni
      Maailman menoa
      33
      5067
    5. Jätä minut rauhaan

      En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv
      Ikävä
      38
      4901
    6. Ben Z: "SDP ei ole ollut 50 vuoteen näin huolissaan velasta"

      "– Olen ollut eduskunnassa noin 50 vuotta, eikä SDP ole koskaan ollut niin huolissaan velasta kuin nyt. Se on tietysti h
      Maailman menoa
      77
      4799
    7. Harmittaako sinua yhtään?

      Tuntuuko pahalta ollenkaan?
      Ikävä
      62
      4353
    8. Voiku saisi sen sun

      Rakkauden kokea. Tykkään susta niin paljon edelleen.
      Ikävä
      43
      4017
    9. Mitä luulet, miten Martina Aitolehti pärjää Erikoisjoukoissa?

      Kohujulkkis, yrittäjä ja hyvinvointivalmentaja Martina Aitolehti on mukana Erikoisjoukot-realityssä. Erikoisjoukot on
      Suomalaiset julkkikset
      44
      3292
    10. Olitpa ikävän

      Kylmä eilen. Miksi ihmeessä?
      Ikävä
      45
      2979
    Aihe