Solun automaattinen täydennys?

sanasto Taul2 sarakkeessa C
kirjoitettavat sanat Taul1 sarakkeessa A

kirjoita kirjain ja enter- jos löytyy uniikkivastine niin kirjoittaa sen, jos useampi vastine, niin jatka kirjain kerrallaan kunnes uniikki sana löytyy...
jos ei löydy vastinetta niin sitten hyväksyy kirjoitetun tekstin
jos haluat osan vastinesanasta niin silloin pitää lopettaa ALT ENTER ja vielä kerran ENTER

taulukon moduuliin...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim solu As Range
Dim Löydetty1 As Range
Dim Löydetty2 As Range
Dim Sanasto As Range
Dim Alue As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo virhe
Set Sanasto = Worksheets("Taul2").Range("C:C")
Set Alue = Worksheets("Taul1").Range("A:A")

For Each solu In Alue
If Not IsError(solu) Then
If solu "" And Right(solu, 1) Chr(10) Then
Set Löydetty1 = Nothing
Set Löydetty1 = Sanasto.Find(solu & "*", lookat:=xlWhole, MatchCase:=False)
If Not Löydetty1 Is Nothing Then
Set Löydetty2 = Sanasto.FindNext(after:=Löydetty1)
If Löydetty2.Address = Löydetty1.Address Then
solu = Löydetty1
Else
solu.Activate
Application.SendKeys ("{F2}")
End If
Else
End If
Else
If solu "" And Right(solu, 1) = Chr(10) Then solu = Left(solu, Len(solu) - 1)
End If
End If
Next solu
virhe:
Application.EnableEvents = True
On Error GoTo 0
Application.ScreenUpdating = True
End Sub

Keep EXCELing
@Kunde

Kiitos neuvosta, mutta en saanut toimimaan. Tässä kuvakaappaus tilanteesta:

http://simplest-image-hosting.net/jpg-0-excel

Eli esim. tuohon kesäkuun välilehteen tulee sarakkeiden B, C, D, E, F soluihin tietoa, joka pitäisi hakea sieltä sanasto-välilehdestä sarakkeesta A. Miten tuota kaavaasi pitää "säätää", että homma toimisi?

Entä jatkossa kun kuukausi vaihtuu?