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

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

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 paljon kunde

Kuinkas tämä sama homma onnistuisi sitten kaavoilla?