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

115

    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. Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

      Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
      Arvot ja etiikka
      68
      12149
    2. Sanna Marin vetänyt leukoja 11 kertaa

      Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
      Maailman menoa
      74
      5245
    3. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      298
      3256
    4. Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?

      Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin
      Maailman menoa
      197
      3200
    5. Kuvaile kaivattusi

      ulkonäkö. Asiattomatkin kommentit saa laittaa. -🏚️
      Ikävä
      137
      2350
    6. Kirjoita

      … jotakin minkä vain kaivattusi tietää
      Ikävä
      110
      1566
    7. Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

      Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo
      Tv-sarjat
      23
      1550
    8. Tyhmä persuväite = köyhä argumentti

      Väite, että vasemmistopuolueita äänestäisivät vain “köyhät, tapatyöttömät tai heikoilla lahjoilla varustetut”, kertoo en
      Maailman menoa
      30
      1528
    9. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      51
      1485
    10. 40 vuotta töitä paiskinut ja 3 vuotta työttömänä mamuna Suomessa, sama eläke

      Jokin mättää. Eläkettä ei pidä maksaa lainkaan mamuille jos työhistoriaa ei ole vähintään 10 vuotta takana.
      Maailman menoa
      239
      1477
    Aihe