Solun 4 viimeistä merkkiä

vb aloittelija

Miten saan valittua ne solut, joiden neljä viimeistä merkkiä on määritelty? Esimerkiksi kun haluan poistaa rivit, joiden solujen arvon neljä viimeistä merkkiä on esimerkiksi päivämäärässä ( ppkkvvvv) 2011?

3

211

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vb aloittelija

      Nyt kokeilin tällaista, mutta miksihän se ei poista kaikkia kerralla? Joutuu ajamaan makron monta kertaa ennen kuin kaikki halutut on hävinneet; völillä kyllä ottaa kaikki.

      Range("B1:B50").Select

      For Each Cell In Selection
      Vuosi = Val(Right(Cell, 4))
      If Vuosi = "2007" Then
      Cell.EntireRow.Delete

      End If
      Next Cell

      • 6

        Koodi hyppää solun yli, kun poistetaan rivi. Luuppi olisi parempi käydä lopusta alkuun.


      • vb aloittelija
        6 kirjoitti:

        Koodi hyppää solun yli, kun poistetaan rivi. Luuppi olisi parempi käydä lopusta alkuun.

        Joo, yritin luuppia mutten saanut toimimaan. Tuli toinenkin kysymys; jos lasketan rivien määrän, miten saan tuon arvon sisällytettyä Rangeen.

        Pitäisi saada Range("C1:C(RiviMaara)").Select


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

    Luetuimmat keskustelut

    1. Ensi kesänä

      Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
      Ikävä
      64
      3295
    2. Tukalaa kuumuutta

      Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh
      Ikävä
      43
      3107
    3. Sinä, ihastukseni

      Mitä haluaisit tehdä kanssani ensimmäisenä?
      Ihastuminen
      43
      2468
    4. Anne Kukkohovin karmeat velat ovat Suomessa.

      Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
      Kotimaiset julkkisjuorut
      102
      2250
    5. Tiedät ettei tule toimimaan.

      Mielenterveys ei kummallakaan kestä.
      Ikävä
      31
      1913
    6. Okei, myönnetään,

      Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
      Ikävä
      27
      1820
    7. Onko kaivatullasi

      himmeä kuuppa?
      Ikävä
      48
      1626
    8. Mihin hävisi

      Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
      Iisalmi
      85
      1415
    9. On jo heinäkuun viimeinen päivä.

      En taida nähdä sinua koskaan.
      Rakkaus ja rakastaminen
      39
      1300
    10. Lähtikö korvat

      puhtaaksi vaikusta?
      Tuusniemi
      81
      1142
    Aihe