Rekisteröidy

EtsiJaSiirrä

Kellään vinkkejä kuinka sais tämän toimimaan oikein?! Haetaan vaikkapa sarakkeesta G jotain sanaa ja kunnes sana löytyy niin kopioidaan saman rivin sarakkeet A,B ja C sheetille2. Olen pyöritellyt tämäm foorumin vinkkejä ja alkaa jo kohta hermo menee... :/

Mitähän muutosta tähän pitäis tehdä???

Function EtsiJaSiirrä2(Hakuehto As Variant) As Range

Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
With Range("G:G")
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä2 = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä2 = Union(EtsiJaSiirrä2, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
End Function

Sub Testi2()
Dim Löydetty As Range
On Error GoTo virhe
Set Löydetty = EtsiJaSiirrä2("Nok")
Union(Löydetty, Löydetty).Copy Range("Sheet2!A65536").End(xlUp).Offset(1, 1)
Exit Sub
virhe:
MsgBox "hakuehdoilla ei löytynyt tietoja!", vbInformation
End Sub
2411
Äänestä

Muut lukivat myös

Vastaukset 2

Vanhimmat

Function EtsiJaSiirrä2(Hakuehto As Variant) As Range

Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
With Range("G:G")
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä2 = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä2 = Union(EtsiJaSiirrä2, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
End Function

Sub Testi2()
Dim Löydetty As Range
Dim solu As Range
On Error GoTo virhe
Set Löydetty = EtsiJaSiirrä2("Nok")
For Each solu In Löydetty
Union(solu.Offset(0, -6), solu.Offset(0, -5), solu.Offset(0, -4)).Copy Range("Sheet2!A65536").End(xlUp).Offset(1, 0)
Next
Exit Sub
virhe:
MsgBox "hakuehdoilla ei löytynyt tietoja!", vbInformation
End Sub

Äänestä

  • Kiitoksia....Nyt pelaa!!!

    Äänestä

Luetuimmat keskustelut

  1. Älä unohda minuaNainen ethän unohda minua. Asiat olisivat voineet mennä toisin, olisi vain pitänyt uskaltaa lähestyä sinua kun annoit siihen mahdollisuuden. Olen pettynyt itseeni, ja se kyllä närästää. Naiselle Mieheltä
    Ikävä100 vastausta1088 lukukertaa
  2. Eläkeikä nousee 70 vuoteen. Joudunko palaamaan työelämään?Nyt se on sitten päätetty, että eläkeikä Suomessa nostetaan 70 vuoteen. https://www.is.fi/politiikka/art-2000012324133.html Pääsin 67 vuotiaana eläkkeelle viime syksynä. Tarkoittaakohan tämä, että joudun palaamaan takai…
    Maailman menoa197 vastausta836 lukukertaa
  3. Moi kulta😍Eikös se ollut marraskuuta kun se meidän "flirttailu" alkoi silloin vuosia sitten? tarkoitan lähinnä niitä pitkiä katseita 🤩☺️ Kohta on siis maata mullistavien katseiden vuosipäivä 😘🤭
    Ikävä70 vastausta667 lukukertaa
  4. Perussuomalaiset nostamassa eläkeiän 70 vuoteenRiikka Purran johtama valtiovarainministeriö haluaa nostaa eläkeiän 70 vuoteen ja taloutta sopeutettaisiin ensi vaalikaudella 8–11 miljardilla eurolla. Perussuomalaisten johtama ministeriö ilmeisesti arvelee, että seits…
    Perussuomalaiset148 vastausta594 lukukertaa
  5. Nyt on nytTurha miettiä menneitä tapahtumia. Niitä ei saa tekemättömäksi. Tärkeintä on mitä tekee nyt ja tulevaisuudessa. Korjausliikkeetkin voi tehdä jos niihin tuntee tarvetta. Paluu tulevaisuuteenkin voi olla mahdollinen jos v…
    Ikävä55 vastausta569 lukukertaa
  6. Kadutko mies?Silloin kuin vielä yritin lähestyä, etkä tarttunut siihen. Asioista pitäisi voida aina keskustella.
    Ikävä34 vastausta527 lukukertaa
  7. Pitäisikö Vantaa liittää Helsinkiin.Mitä mieltä olette asiasta?
    Maailman menoa108 vastausta465 lukukertaa
  8. Onko tällainen kuvio teistä okOnko tällainen kuvio teidän mielestänne ihan normaali ja hyväksyttävä? Nainen seurustelee miehen kanssa, mutta pitää samaan aikaan läheistä yhteyttä toiseen mieheen kertomatta tälle toiselle, että on parisuhteessa. Tämä…
    Ikävä60 vastausta462 lukukertaa
  9. Niin haluaisin sut nähdä ja jutella!🙂
    Ikävä31 vastausta439 lukukertaa
  10. Hyvää huomentaEräälle Naiselle ❤️‍🩹
    Ikävä54 vastausta417 lukukertaa
  11. Empaattiset ihmisetOnko empaattiset ihmiset, etenkin naiset antavaisempia, kun ns. tavikset? Kaverin puolesta kysyn Oisko niinku mahkui?
    Ikävä92 vastausta407 lukukertaa
  12. Tunnut niinKaukaiselta jo.
    Ikävä34 vastausta378 lukukertaa
  13. Et nosta minua ylösOk ei se mitään. Vajoan syvempiin vesiin💔
    Ikävä37 vastausta362 lukukertaa
  14. TTK-juontaja Veronica Verho lataa suorat sanat tatuointien arvostelijoille: "Mä toivoisin, että..."Veronica Verho juontaa Tanssii Tähtien Kanssa -ohjelmaa yhdessä Ernest Lawsonin kanssa. ​Yksi puhuttaneimmista aiheista on ollut, miten suosikkijuontajan näyttävät tatuoinnit sopivat ohjelman pukuohjeistukseen ja tullaa…
    Kotimaiset julkkisjuorut26 vastausta359 lukukertaa
  15. Tuntuu kuin olisin vaimosiSe on erikoista se.
    Tunteet56 vastausta351 lukukertaa
  16. Haluatko ettäUnohdetaan toisemme?
    Ikävä36 vastausta350 lukukertaa
  17. Jos haluat viestin...Olen vielä tämän illan palstalla. Laita halutessasi vinkki, sinä komea keski-ikäinen mies 😗
    Ikävä39 vastausta346 lukukertaa
  18. Nyt kun kaikki on ohiToivon, että sulla menee hyvin ja pystyisin sinut kokonaan unohtamaan. Joskus on vaikeita hetkiä ja olen tosi pahoillani, miten sinua loukkasin ja loukkaan yhä. Se täytyy saada loppumaan.
    Ikävä28 vastausta335 lukukertaa
  19. Pussaisitko mihinKohtaan?
    Ikävä38 vastausta324 lukukertaa
  20. Sut tahtoisinSinä senkin kusimutteri menit ja katkaisit kaiken yhteyden minuun. Tajuan nyt, että meidän roolit vaihtuivat ja sinä projektoit omia pelkojasi minuun. Anna minun välittää sinusta, älä työnnä mua pois. En oo vaatinut sul…
    Ikävä15 vastausta317 lukukertaa

Kommentoi aloitusta

H_J_H kirjoitti:

Kellään vinkkejä kuinka sais tämän toimimaan oikein?! Haetaan vaikkapa sarakkeesta G jotain sanaa ja kunnes sana löytyy niin kopioidaan saman rivin sarakkeet A,B ja C sheetille2. Olen pyöritellyt tämäm foorumin vinkkejä ja alkaa jo kohta hermo menee... :/

Mitähän muutosta tähän pitäis tehdä???

Function EtsiJaSiirrä2(Hakuehto As Variant) As Range

Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
With Range("G:G")
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä2 = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä2 = Union(EtsiJaSiirrä2, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
End Function

Sub Testi2()
Dim Löydetty As Range
On Error GoTo virhe
Set Löydetty = EtsiJaSiirrä2("Nok")
Union(Löydetty, Löydetty).Copy Range("Sheet2!A65536").End(xlUp).Offset(1, 1)
Exit Sub
virhe:
MsgBox "hakuehdoilla ei löytynyt tietoja!", vbInformation
End Sub

Anonyymi
5000

Ilmoita asiaton sisältö

  • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

  • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

  • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

  • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

  • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

  • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

Jaa keskustelu