Teksti soluun mikäli toisen solun arvo on....

Tsädämm

Eli jos solussa A1 on teksti appelsiini haluan A2 tulevan automaattisesti sana "hedelmä"

Mikäli A1 on sana kurkku haluaisin sanan "vihannes" soluun A2

ja vielä jos A1 on sana Limsa niin A2 tulee sana coca-cola

Ja jos A1 on joku muu sana jota ei ole määritelty niin A2 pysyy tyhjänä

Mieluiten tämä pitäisi totetuttaa visual basicilla kun noita kaavoja ei saisi tulla näkyviin

6

411

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • KaPo_31

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim rng As Range

      Set rng = Intersect(Range("A1"), Target)

      If Not rng Is Nothing Then
      On Error GoTo XIT
      Application.EnableEvents = False
      With rng
      Select Case LCase(.Value)
      Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
      Case "kurkku": .Offset(0, 1).Value = "Vihannes"
      Case "limsa": .Offset(0, 1).Value = "Coca-cola"
      Case Else: .Offset(0, 1).Value = " "



      End Select
      End With
      End If

      XIT:
      Application.EnableEvents = True

      End Sub

      Toimisiko tällainen... Voi olla että Kundelta tulee parempi aika nopeasti =)

    • ihan hyvinhän sie oot oppinut.... ;-)
      Mutta jos saivarrellaan niin toi rng määrittely ja käyttö on turhaa, koska sisäisessä funktiossa on jo määritelty TARGET rangeksi ja sehän edustaa silloin A1 solua, jota voi käyttää, jos solussa A1 oli tapahtunut muutos...


      Option Explicit

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo XIT
      Application.EnableEvents = False
      If Not Intersect(Range("A1"), Target) Is Nothing Then
      With Target
      Select Case LCase(.Value)
      Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
      Case "kurkku": .Offset(0, 1).Value = "Vihannes"
      Case "limsa": .Offset(0, 1).Value = "Coca-cola"
      Case Else: .Offset(0, 1).Value = " "

      End Select
      End With
      End If

      XIT:
      Application.EnableEvents = True

      End Sub

      • Kiitos

        Mielenkiitoinen yhtälö. Voisiko Kunde neuvoa vielä miten tuon saisi toimimaan koko sarakkeessa, eli kaikissa soluissa rivikohtaisesti. Tarkoitan että jos esim A33 on appelsiini B33 on hedelmä. Ja jos esim A55 on kurkku B55 on vihannes ?
        Eli että se lukisi koko sarakkeen ja heittäisi aina vastineen samalle riville B sarakkeeseen missä se kohtaisi A sarakkeessa osuman.
        Koska en ymmärrä vba:ta niin mitä tarkoittaa Offset(0,1) ja pitääkö sen edessä olla nuo kaksi pistettä ?


    • muuta rivi
      If Not Intersect(Range("A1"), Target) Is Nothing Then
      seuraavaksi
      If Not Intersect(Range("A:A"), Target) Is Nothing Then

      .Offset(0,1) tarkoittaa siirtymää altiivisesta solusta yhden solun verran oikealle (0- pohjainen-eli aktiivinen solu on (0,0)) vastaavasti vasemmalle solun verran olisi .Offset(0,-1)


      tässä tapauksessa pitää olla kaksoispisteet

      Select Case LCase(.Value)
      Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
      Case "kurkku": .Offset(0, 1).Value = "Vihannes"
      Case "limsa": .Offset(0, 1).Value = "Coca-cola"
      Case Else: .Offset(0, 1).Value = " "
      End Select

      mutta tässä ei...


      Select Case LCase(.Value)
      Case "appelsiini"
      .Offset(0, 1).Value = "Hedelmä"
      Case "kurkku"
      .Offset(0, 1).Value = "Vihannes"
      Case "limsa"
      .Offset(0, 1).Value = "Coca-cola"
      Case Else
      .Offset(0, 1).Value = " "
      End Select

      eli KaPo_31 oli lyhentänyt koodin yhdelle riville, siksi tarvitaan tuo ;-piste

      Keep EXCELing
      @Kunde

    • Kiitos

      Kiitos paljon kunde

    • Pomo vaatii

      Kuinkas tämä sama homma onnistuisi sitten kaavoilla?

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

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      151
      10964
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      52
      5240
    3. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      45
      2453
    4. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      30
      2143
    5. Vanha Suola janottaa Iivarilla

      Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia
      Kemijärvi
      13
      1711
    6. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      42
      1554
    7. Tiedän kuka sinä noista olet

      Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta
      Ikävä
      30
      1251
    8. Känniläiset veneessä?

      Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
      Nurmes
      35
      1186
    9. Daniel Nummelan linjapuhe 2025

      Kansanlähetyksen toiminnanjohtajan Daniel Nummelan linjapuhe tänään. Rehellistä analyysiä mm. evlut kirkosta ja piispo
      Luterilaisuus
      92
      935
    10. TÄSTÄ TAITAA TULLA SUOMEN HISTORIAN SUURIN USKONNONVAPAUDEN OIKEUDENKÄYNTI.

      Sinun täytyy hyväksyä se että jos sinä vetoat uskonnonvapauteen, silloin sinun tulee antaa myös muille vastaava vapaus o
      Hindulaisuus
      317
      892
    Aihe