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
Teksti soluun mikäli toisen solun arvo on....
Tsädämm
6
443
Vastaukset 6
- 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
- 601069
- 981044
Tiesitkö? Jorma Uotisen EX-rakas on Helena Lindgren - Nämä ovat välit nyt: "Me ollaan..."
Jorma Uotinen ja Helena Lindgren olivat avoliitossa v. 1982-1999. Pariskunta oli aikansa näyttävä julkkispari, missä i21892Olet nainen ollut vaikein rasti
Eniten olet tunteitani myllännyt ja niitä kuluttanut, ja tuottanut. 🤔62832Anteeksi J-mies
Anteeksi että myötävaikutin siihen että rakastuit minuun, jota et voi koskaan saada. Viimeksi kun näimme ja katselimme t124815- 135812
- 56704
Kenen viisautta on ollut laittaa tie väärällä murskeella pilalle
Kenen viisautta on ollut kun Siimeksen/Kylmänpurontie pantu pilalle kun on ajettu liian karkeaa mursketta. Rengasliikke25699- 45666
Kuhmolainen opettaja tuomittu vainoamisesta
https://yle.fi/a/74-20248184 ”Kuusikymppinen kuhmolaisnainen piinasi naapureitaan lähes kahdeksan vuoden ajan. Nainen15656Minä muistan
Minä muistan sinut nauravana. Sellaisena, joka sai tavallisenkin hetken tuntumaan vähän kevyemmältä, kuin huoneeseen ol45620- 19607
Siinä kävi mies nyt niin että tämä ämmä muuttaa ulkomaille
Vuonojen maa kutsuu, joten ei hätää. Et kuule minusta enää. 😂 Lycka till! Ämmä riittää.82596Mitä muuta on olemassa kuin lisääntyminen
Jos mies ei pääse lisääntymään niin mikä hänen osansa elämässä on? mitä jää jäljelle? Hän on vain muiden palvelija kok128583Koska Martina viettää aikaansa lapsiensa kanssa
Äiti vaan juoksee miehen perässä Tallinnassa, Lontoossa, Turussa. Kyllä oli kätilö oikeassa, kun sanoi, että ei olisi ka142582- 35580
- 46578
Ähtäri on taas TV: n ja radion ykkösuutinen
Uusi podcast on julkaistu ja on nyt kuunneltavissa. Mot on tehnyt hyvää työtä! Mikko Savola ja kepu ei ota mitään vast47568Elämäni biisi -paljastus: Tänä lauantaina 26.9. nämä julkkikset istahtavat sinisille sohville!
Katsotko Elämäni biisiä? Elämäni biisi on monen suomalaisen suosikki. Vieraslista lauantaina 26.9. tarjoilee vieraita m6543Pahkalassa tapahtuu
Mitäs on tapahtunut yöllä pahkalan kerrostaloilla.oli poliisia ja ambulanssia taas vaihteeksi11529