Hei!
Minulla on probleema, jonka kanssa olen painiskellut jo jonkin aikaa muttei ratkaisua tunnu löytyvän. Viisaammat neuvokaa. Suuri kiiitos!
Eli minulla on neljä solua (esim. B1:E1, B2:E2.. sadalla rivillä). Neljässä solussa lukee yhdessä satunnaisesti teksti "Taso1", "taso2", "taso3" tai "taso4" ja muut kolme solua ovat tyhjiä. Jollain rivillä teksti on solussa C1, toisella rivillä solussa D2 tms.
Kuinka saan haettua A1 -soluun sen solun tekstin, jossa tuo "taso" -sana on? Tarkoitus on luoda jokaiselle riville oma haku, jonka avulla haetaan juuri sillä rivillä esiintyvä "taso" -teksti.
Tietojenhaku toiseen soluun
entto
6
227
Vastaukset
ei päätä eikä häntää selityksessä...
- entto
Voi ei, yritin parhaani, mutta ilmeisesti selitin vain niin että itse ymmärsin. Uusi yritys. Oisiko yksinkertainen selitys luettavampi?
Minun tarvitsee siis hakea soluun A1 soluissa B1-E1 esiintyvä teksti. Tekstiä on vain yhdessä B1-E1 soluista. Kuinka saan tekstin A1 soluun niin, että teksti päivittyy muutoksia tehdessä? taulukon moduuliin...
Option Explicit
Private Sub Worksheet_Change(ByVal target As Range)
Dim solu As Variant
On Error Resume Next
Application.EnableEvents = False
solu = target
If Not Intersect(target, Range("B1:E1")) Is Nothing Then
Range("B1:E1") = ""
Range("A1") = solu
target = solu
End If
Application.EnableEvents = True
End Sub
Keep EXCELing
Keep ARCHAing
@Kunde- entto
Suurkiitos nopeasta vastauksesta, pitää testailla tuon toimivuutta. Tämä on ilmeisesti makro (jotka ei tietenkään tällä työkoneella toimi). Onko samaa asiaa mahdollista tehdä perusfunktioilla?
- herra nro 31
kunde kirjoitti:
EI
Onnistuuko tuo yksinkertaisesti ketjuttamalla, jos teksti on vain yhdessä solussa ja muut ovat siis aivan tyhjiä? Ei siis sisällä numerodataa.
A1=B1&C1&D1&E1 ja kopioi kaava 99 muuhun soluun.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Asiakkaalle ei myyty energiajuomaa - tuomio tuli syrjinnästä
Vaikka oli ilmeisesti täysi-ikäinen. Tosin ei lapsiakaan saisi syrjiä, koska oppivat helposti itsekin syrjimään, jos koh673907Miksi aina pitää kilpailla parhaudesta?
Mua ärsyttää se, että kaikki kilpailut ja visailut keskittyvöt aina siihen, kuka on paras missäkin. Tänäkin aamuna tuli813202Pakkoruotsista luopumalla kymmenien miljoonien säästöt
Pakkoruotsin opiskelun kustannuksista ei ole juurikaan tehty kustannusselvityksiä, mutta joidenkin arvioiden mukaan siit802985- 962797
Luterilaisen kirkon koko kastekaava on väärä
Uudessa testamentissa on kaksi täysin ristiriidassa olevaa kastekäskyä Matt 28:19 ja Ap. t. 2:38. Matteuksen evankeluimi412544Seksuaalinen ahdistelu, naisten vähättely ja törkeä käytös naisia kohtaan kukkii rakennustyömailla
Tällainen lienee ihan tavallisista kaikilla "äijävaltaisilla" työpaikoilla. Kaikki miesvaltaiset alat eivät ole toksise1822284Miten Yxäri iskettiin?
Voisin tässä unta odotellessani kertoa, miten mieheni lähestyi minua. Tunsimme entuudestaan. Hän kyseli minulta aina j2092252Kerro minulle
Miksi teit niinkuin teit? Miksi kielsit tunteesi minua kohtaan. Miksi et halunnut että tiedän oikeasti mitä tunnet. Etkö662175Rakkaalle J miehelle.
Hitto mulla on sua ikävä. Haluisin heti nyt tulla sun syliin ja suudella sua.ja, ja ja... Hirveä ikävä.902120Kristinuskossa Isän ja Pojan ja Pyhän Hengen nimessä
Jeesuksen kehoitus kastamiseksi Isän ja Pojan ja PH:n nimeen. Matt 28:19: "Menkää siis ja tehkää kaikki kansat minun4022088