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

196

    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. Jäätävä epävarmuus

      Mistä tää hirveä epävarmuus molemminpuolin johtuu? Pohjimmiltaan uskon, että molemmat tietää, että tunteita on. Vai onko
      Ikävä
      85
      1817
    2. Ainakin hän on elossa

      ehdin jo huolestua.
      Ikävä
      43
      1439
    3. En malta odottaa mies että tulet minuun

      Sykkivänä ja intohimon palossa ujutat hitaasti upean rakkauden miekkasi minuun, ja antaudutaan kiihkeään rakasteluun. Hu
      Ikävä
      119
      1260
    4. Vanhemmalle naiselle

      Ihastuin sinuun kauan sitten. Luonteeseen, ulkonäköön ja iloisuuteen. Olen haaveillut sinusta sen jälkeen monet kerrat.
      Ikävä
      87
      1202
    5. Mitä hellittelynimiä

      Sinulla on kaivatustasi?
      Ikävä
      67
      1007
    6. Persut romahti Haapaveellä, kiitos Ilkka!

      Persut saivat historiallisen tappion haapaveellä! Kiitos Ilkka!
      Haapavesi
      42
      954
    7. Mitä meille oikein

      Tapahtuu vai tapahtuuko mitään?
      Ikävä
      57
      954
    8. Pitsaa selliiä

      Onko uudet pitsat hyviä, kannatteooko käyvä vai suosiollako pittää hilipasta sotkamoon
      Kuhmo
      20
      920
    9. Tiedätkö et olet

      Ärsyttävän hyvännäköinen.
      Ikävä
      35
      877
    10. Hyvää yötä, olen rakastunut suhun

      Sanon tämän kyllä vielä sulle henkilökohtaisestikin. 😘
      Ikävä
      47
      856
    Aihe