Kuinka saada case-toiminto toistumaan

AhdistunutVBAnoob

Amatöörin ongelma on seuraavanlainen:
Olen tehnyt Select Case rakenteen. Tarkoituksenani on muuttaa sarakkeessa T olevat tekstit toisenlaisiksi sarakkeeseen U. Rivejä on useampi tuhat ja niissä olevat tekstit olisi määriteltävä yli 50 eri tavalla. Lähdin yrittämään tämän ratkaisua peräkkäisillä if-lauseilla, mutta kaavasta tuli liian pitkä ja excel alkoi hälyyttelemään.
Nyt olen saanut särvittyä kokoon moduuliin case-rungon, mutta en saa sitä täysin toimimaan. Koodillani ekat tekstit muuttuvat ihan oikein, eli solun T2 sisältämän tekstin perusteella lisätään teksti soluun U2, mutta en saa koodia jatkamaan automaattisesti seuraavaan riviin eli T3 ja U3.

Auttakaa! Miten saan ongelmani ratkaistua?
Onko tekemäni tapa edes toimiva kyseisessä tapauksessa?
Olisiko olemassa parempi/kevyempi tapa?

Ohessa koodini alku, sisältäen muutaman ekan casen (olen poistanut koodista kaikki yritykseni saada se etenemään seuraavaan riviin, koska en ole saanut koodia toimimaan yhtään. Tämä ohessa oleva sentään edes kääntyy ja "muuttaa" ekan solun.)


Sub tekstinmuutto()

Dim vanhaTeksti As String
Dim uusiTeksti As String

vanhaTeksti = Cells(2, 20).Value

Range("T2:U2").Select
With Selection. _
HorizontalAlignment = xlCenter
End With

Select Case vanhaTeksti
Case Is = "vanhaatekstiä1"
uusiTeksti = "uuttatekstiä1"
Cells(2, 21) = uusiTeksti
Case Is = "vanhaatekstiä2"
uusiTeksti = "uuttatekstiä2"
Cells(2, 21) = uusiTeksti
Case Is = "vanhaatekstiä3"
uusiTeksti = "uuttatekstiä3"
Cells(2, 21) = uusiTeksti
Case Is = "vanhaatekstiä4"
uusiTeksti = "uuttatekstiä4"
Cells(2, 21) = uusiTeksti
‘ ….jne loput caset samalla tavalla
’ ja loppuun
Case Else
uusiTeksti = "Virhe!"
Cells(2, 21) = uusiTeksti
End Select

End Sub

3

123

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Sub koe()
      Dim vika As Long
      Dim solu As Range

      Range("T2:U2").HorizontalAlignment = xlCenter

      vika = Range("T65536").End(xlUp).Row
      For Each solu In Range("T1:T" & vika)
      Select Case solu
      Case "vanhaatekstiä1"
      solu.Offset(0, 1) = "uuttatekstiä1"
      Case "vanhaatekstiä2"
      solu.Offset(0, 1) = "uuttatekstiä2"
      Case "vanhaatekstiä3"
      solu.Offset(0, 1) = "uuttatekstiä3"
      Case Else
      solu.Offset(0, 1) = "Virhe!"
      End Select
      Next
      End Sub

      • AhdistunutVBAnoob

        Jees, toimii.
        Kiitos oikein paljon kunde.

        Tämä riittää jo hyvinkin, mutta lisäkysymyksenä voisin esittää, että:
        millä komennolla excel vertaa tuosta vanhaatekstiä-solusta vai osaa tekstistä ja sen perusteella tekee saman toimenpiteen?

        Eli jos solu sisältää vaikkapa tekstin "remontti reiska" niin millä saan excelin sijoittamaan vastaavaan uuttatekstiä-kenttään tekstin "kova sälli" vain esimerkiksi pelkän "reiska" sanan perusteella?


      • AhdistunutVBAnoob kirjoitti:

        Jees, toimii.
        Kiitos oikein paljon kunde.

        Tämä riittää jo hyvinkin, mutta lisäkysymyksenä voisin esittää, että:
        millä komennolla excel vertaa tuosta vanhaatekstiä-solusta vai osaa tekstistä ja sen perusteella tekee saman toimenpiteen?

        Eli jos solu sisältää vaikkapa tekstin "remontti reiska" niin millä saan excelin sijoittamaan vastaavaan uuttatekstiä-kenttään tekstin "kova sälli" vain esimerkiksi pelkän "reiska" sanan perusteella?

        Option Explicit

        Sub koe()
        Dim vika As Long
        Dim solu As Range

        Range("T2:U2").HorizontalAlignment = xlCenter

        vika = Range("T65536").End(xlUp).Row
        For Each solu In Range("T1:T" & vika)
        Select Case True
        Case solu Like "*reiska*"
        solu.Offset(0, 1) = "kova sälli"
        Case solu = "vanhaatekstiä2"
        solu.Offset(0, 1) = "uuttatekstiä2"
        Case solu = "vanhaatekstiä3"
        solu.Offset(0, 1) = "uuttatekstiä3"
        Case Else
        solu.Offset(0, 1) = "Virhe!"
        End Select
        Next
        End Sub

        Keep EXCELing
        @Kunde


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

    Luetuimmat keskustelut

    1. Riikka ei suostu laskemaan bensan hintaa

      Sanna laski esimerkiksi sähkön arvonlisäveron 10 prosenttiin, jonka Riiikka anosti 25,5 prosenttiin. Sannan aikaan bens
      Maailman menoa
      232
      4123
    2. Maahanmuuttajien vaikutus Suomen valtiontalouteen positiivinen

      Maahanmuuttajat maksavat enemmän tuloveroja kuin saavat tulonsiirtoja. Eroavat persuista tässä suhteessa. Persuista o
      Maailman menoa
      174
      3664
    3. EK: Suomi tarvitsee vuosittain 45 000 maahanmuuttajaa

      Senpä takia Riikkakin laulaa sen lauluja kenen leipää syö. Viime vuonnahan Suomeen muutti 50 tuhatta ulkomaalaista. htt
      Maailman menoa
      312
      2915
    4. Kesäaika on normaaliaika...

      ...siten illalla on valoisaa tunnin pitempään, on sitten kesä tai talvi. Voi nauttia päivän jatkumisesta. Kuka nyt aamul
      Maailman menoa
      270
      2416
    5. Uusin tutkimus: Suomi on maailman toiseksi vähin rasistinen maa

      taakse jää mm. Ruotsi(7) ja Norja(8). Martin Paasi(kok.): Kumoaa vasemmiston väitteet. Kansainvälinen vertailu osoitta
      Maailman menoa
      81
      2026
    6. Ukrainan tiedustelun huippupotti - Iski ensin yhteen satamaan, sitten toiseen

      Ukrainan tiedustelupalvelu SBU kertoo johtaneensa operaatiota, jossa on isketty drooneilla Venäjän tärkeimpiin satamiin
      Maailman menoa
      60
      1882
    7. Ketkä 8 Ähtärin luottamushenkilöä saivat syytteen virka_aseman väärinkäyttämisestä?

      Nyt näiden valtuutettujen nimet esiin, kiitos! Nämä henkilöt pitää yksinkertaisesti laittaa syrjään Ähtärin kaupunginva
      Ähtäri
      46
      1802
    8. Ulkomaalaistaustaiset tulevat kalliiksi yhteiskunnalle.

      Selvitys: Ulkomaalaistaustaiset saivat selvästi enemmän työttömyysetuuksia ja toimeentulotukea kuin suomalaistaustaiset.
      Maailman menoa
      59
      1760
    9. Ähtärin päättäjät

      Nyt tulee kutsu leivättömän pöydän äärelle. Syytteet nostetaan. https://www.iltalehti.fi/kotimaa/a/cef83309-0a1b-4fcd-9b
      Ähtäri
      61
      1547
    10. Tulen hulluksi hänestä

      Hän on vanha ja varattu. Mutta olen ihan hulluna häneen. Haluan hänet omakseni. Haluan olla hänen kanssaan ajasta ikuisu
      Ikävä
      72
      1440
    Aihe