Miten toteuttaa?

Anonyymi

Mulla ois Taul2 dokumentti josta pitää korvata kaikki Taul1 A -sarakkeen rivit B -sarakkeen riveillä kunnes A -sarakkeessa lopuu täytetyt rivit.

Aloitin jo väkertää:

For a = Range("Taul1!A2:A10").Cells.Count To 1 Step -1
Cells.Replace What:=Range("Taul1!B2:B10").Select, Replacement:=Range("Taul1!C2:C10").Select, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next a

Oisko jollain antaa hyviä vinkkejä?

9

126

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Tehtävänannossa väärinymmärryksen vaara olemassa, mutta jos ymmärsin oikein niin... kaikessa lyhykäisyydessään ratkaisu voisi olla esim. seuraava:

      Sub KopiointiBtoA()
      Dim lastrow1 As Long
      lastrowA = Cells(Rows.Count, "A").End(xlUp).Row
      Range("B1:B" & lastrowA).Select
      Selection.Copy
      Range("A1").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
      End Sub

      • Anonyymi

        Korjataan saman tien typo edelliseen:

        Sub KopiointiBtoA()
        Dim lastrowA As Long
        lastrowA = Cells(Rows.Count, "A").End(xlUp).Row
        Range("B1:B" & lastrowA).Select
        Selection.Copy
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        End Sub

    • Anonyymi

      Taisin selittää vähän huonosti :D

      Eli tarkoitus olis että mulla on toisella välilehdellä dokumentti ja toisessa taulukossa sarakkeessa A etsittävät tekstit siitä dokumentista ja sarake B vastaavasti miten ne sarake A tekstit korvataan.

      Eli esim. A1 = moi, A2 = päivää, B1 = moikka, B2 = iltaa
      A1 solun siltä korvataa dokumentissa B1 solun sisällöllä

      Kiitos Kunde :)

      • Anonyymi

        Toisella välilehdellä on dokumentti
        Toisessa taulukossa on sarakkeita

        Kysyjällä on lahjakkaasti sekaisin tiedostonimet eli dokumentit, tiedostoissa olevat välilehdet ja välilehdillä olevat sarakkeet ja rivit. Voinemme vain ihmetellä miten ko. yrityksen henkilöstöpäällikkö voi olla ylpeä henkilöstöstään. Kalliit kurssitukset ovat haihtuneet tuhkana ilmaan :(

      • Anonyymi
        Anonyymi kirjoitti:

        Toisella välilehdellä on dokumentti
        Toisessa taulukossa on sarakkeita

        Kysyjällä on lahjakkaasti sekaisin tiedostonimet eli dokumentit, tiedostoissa olevat välilehdet ja välilehdillä olevat sarakkeet ja rivit. Voinemme vain ihmetellä miten ko. yrityksen henkilöstöpäällikkö voi olla ylpeä henkilöstöstään. Kalliit kurssitukset ovat haihtuneet tuhkana ilmaan :(

        OK, pahoitteluni, selviätkö nyt tästä kammottavasta virheestä?

        Joo siis toisella välilehdellä on dokumentti ja toisella nämä korvattavat A- ja B- sarakkeet.

      • Anonyymi
        Anonyymi kirjoitti:

        OK, pahoitteluni, selviätkö nyt tästä kammottavasta virheestä?

        Joo siis toisella välilehdellä on dokumentti ja toisella nämä korvattavat A- ja B- sarakkeet.

        Sub KorvaaTeksti()
        Dim sht1 As Worksheet
        Dim sht2 As Worksheet
        Dim fnd As Variant
        Dim rplc As Variant
        Dim lastrowA As Long

        Set sht1 = Sheets("Taul1")
        Set sht2 = Sheets("Taul2")

        sht2.Activate
        lastrowA = Cells(Rows.Count, "A").End(xlUp).Row

        For i = 1 To lastrowA
        sht2.Range("A" & i).Select
        fnd = ActiveCell.Text
        rplc = ActiveCell.Offset(0, 1).Text
        sht1.Cells.Replace what:=fnd, Replacement:=rplc, _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
        SearchFormat:=False, ReplaceFormat:=False
        Next i

        sht1.Activate
        End Sub

      • Anonyymi
        Anonyymi kirjoitti:

        Sub KorvaaTeksti()
        Dim sht1 As Worksheet
        Dim sht2 As Worksheet
        Dim fnd As Variant
        Dim rplc As Variant
        Dim lastrowA As Long

        Set sht1 = Sheets("Taul1")
        Set sht2 = Sheets("Taul2")

        sht2.Activate
        lastrowA = Cells(Rows.Count, "A").End(xlUp).Row

        For i = 1 To lastrowA
        sht2.Range("A" & i).Select
        fnd = ActiveCell.Text
        rplc = ActiveCell.Offset(0, 1).Text
        sht1.Cells.Replace what:=fnd, Replacement:=rplc, _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
        SearchFormat:=False, ReplaceFormat:=False
        Next i

        sht1.Activate
        End Sub

        Osaaks toi käydä rivin kerrallaan läpi eli a1, a2, a3...

      • Anonyymi
        Anonyymi kirjoitti:

        Osaaks toi käydä rivin kerrallaan läpi eli a1, a2, a3...

        Taul2 A-sarakkeessa n kpl vanhoja sanoja (A1, A2, An)
        Taul2 B-sarakkeessa n kpl uusia sanoja (B1, B2, Bn)

        Tsydeemi kahlaa kaikki Taul2-sarakkeet A ja B rivi kerrallaan läpi ja tekee niiden mukaiset tekstien korvaukset (vanha sana korvataan uudella) Taul1 -välilehden kaikkiin soluihin.

      • Anonyymi
        Anonyymi kirjoitti:

        Taul2 A-sarakkeessa n kpl vanhoja sanoja (A1, A2, An)
        Taul2 B-sarakkeessa n kpl uusia sanoja (B1, B2, Bn)

        Tsydeemi kahlaa kaikki Taul2-sarakkeet A ja B rivi kerrallaan läpi ja tekee niiden mukaiset tekstien korvaukset (vanha sana korvataan uudella) Taul1 -välilehden kaikkiin soluihin.

        Kiitän kovasti :)

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Jos venäjällä olisi kansan valitsema presidentti, olisiko Ukrainan sotaa?

      Ei varmasti olisi. Sehän on tiedossa, että raskaalla vaalivilpillä putin jatkaa pressana.
      Maailman menoa
      325
      4308

    2. Riikka jytkytti naftan hinnan jo yli 2,3 euroon

      Sannan aikaan esimerkiksi dieseliä selvästi kalliimpaa bensaakin sai 1,3 eurolla. https://www.is.fi/autot/art-200001188
      Maailman menoa
      159
      4006

    3. Päivän Sanna: Suomi maailman onnellisin maa

      Sanna muutti Suomen maailman onnellisimmaksi maaksi. Hänen pyyteetön työnsä maailmalla tuottaa edelleen tulosta.
      Maailman menoa
      92
      3448

    4. Vasemmiston feministinaiset puolustavat islamia

      mikä on täysin järjenvastaista, mutta eihän femakoilla paljon järkeä olekkaan, leijuvat siellä omassa kuplassaan. Myös
      Maailman menoa
      242
      2923

    5. Ei se halua mitään!!

      Arkailija koko tyyppi!
      Ikävä
      61
      2458

    6. Olet kyllä erittäin huono yhdistelemään pisteitä.

      Etkä vain sinä vaan kaikki teilläpäin.
      Ikävä
      34
      1797

    7. Onko jo liian "vanha" vai mitä mieltä olet? 57-v. saa raakaa tekstiä tv:ssä

      The Summit Suomi tv-ohjelmassa 57-vuotiaan Maritan jaksamista kyseenalaistettiin iän takia. Onko tässä iässä jo liian "v
      50 plus
      37
      1496

    8. Etkö sitten itse

      ole koskaan ylittänyt rajaa?
      Ikävä
      44
      1450

    9. Mitä järkeä iskeä

      Varattua ja yrittää saada sitä eroamaan
      Ikävä
      45
      1315

    10. Suomi edelleen maailman onnellisin maa

      Olemme hyvällä tiellä. Laitetaan nyt talous kuntoon.
      Maailman menoa
      162
      1297
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt