Pidän eräänlaista kirjanpitoa Excelillä ja taulukkoon teen välilehdet eri kuukausille. Eri kuukausina on toistuvia nimikkeitä, jotka haluaisin saada soluun automaattisesti kun yksi tai kaksi ensimmäistä kirjainta on syötetty. Eli tekisin vaikka välilehden, jossa olisi yleisimmin esiintyvät nimikkeet, mutta miten saan excelin noutamaan tiedot sieltä? Onko tuollainen mahdollista yleensäkään?
Solun automaattinen täydennys?
3
898
Vastaukset
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- pallo hukassa.......
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?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1592356
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1361895Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1061715- 741364
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet211337- 721306
- 2281086
- 71874
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv212823- 46790