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

78

    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. Sairaammaksi menee: Musk alkaa sensuroida Zelenskyin viestintää X:ssä

      IL: Musk puuttuu Zelenskyin viestintään – X:ään tulossa muutoksia "Elon Musk sanoo korjaavansa X:n, jotta käyttäjät voi
      Maailman menoa
      584
      5592
    2. Mihin sinussa haluan koskea

      Tilanne, että pääsisin tutustumaan eri kohtiin sinussa, mitä haluaisin kokeilla. Käsiin haluaisin tutustua, hieroa niitä
      Ikävä
      81
      3537
    3. Yleltä tiukka nootti Sohvaperunat-sarjan tyypeistä: "Halutessaan ja tapauskohtaisesti harkiten..."

      Näin "Sohvis-julkkiksia" suojellaan! Toisaalta ovathan nämä ihmiset itse lähteneet mukaan reality-ohjelmaan. Että mitä m
      Sohvaperunat
      43
      1949
    4. 17-vuotiasta lukiolaispoikaa epäillään perheenisän murhasta Pyhtäällä

      Perheenisä löytyi kuolleena kotipihastaan loppuvuonna 2023 Heinlahdesta Myyrynmäeltä. Poliisi epäilee murhasta kotkalais
      Kotka
      38
      1686
    5. Toisen ihmisen sydämellä

      leikkiminen on äärettömän moraalitonta. Antaa turhiaa toiveita ja sitten olla kuin mitään ei olisi tapahtunut. Kuinka vo
      Ikävä
      149
      1686
    6. Millaisena luonteena

      Pidät kaivattuasi??
      Ikävä
      83
      1394
    7. Janne Kataja uudessa elämäntilanteessa - Vauva tuli, tyttäret jo teini-iässä: "On jo vähän..."

      Janne Kataja on uudessa elämäntilanteessa, 44-vuotiaana hän tuli kolmatta kertaa isäksi. Tyttäret edellisestä liitosta
      Suomalaiset julkkikset
      21
      1383
    8. Kaksoisliekki-ihmiset

      Kun olette tavanneet kaksoisliekkinne, miltä se on tuntunut? Ole tosi utelias tietämään.
      Ikävä
      199
      1200
    9. Olet mun herkkä kohta

      Vaikutuksesi minuun on valtava. Käsitätköhän miten paljon tunnen takiasi? Miten paljon elämäni on muuttunut sen jälkeen
      Ikävä
      59
      1161
    10. Milloin olette tavanneet ekaa kertaa?

      Ap vastaa: Viime keväänä maalis/huhtikuun vaihteessa se varmaan oli.
      Ikävä
      73
      1075
    Aihe