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?
Solun 4 viimeistä merkkiä
vb aloittelija
3264
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 3
Vanhimmat
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
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