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

90

    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ä.

    Luetuimmat keskustelut

    1. Ikävöin sinua kokoyön!

      En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun
      Ikävä
      44
      3126
    2. Kova karman laki

      Karman lain kautta pahantekijä tehdessään pahaa toteuttaa koston ja rangaistuksen sille jolle pahaa on tehty. Tämä tarko
      Hindulaisuus
      508
      1917
    3. Päivieni piristys, missä olet?

      Toit iloa ja valoa mun elämään ☀️ Nyt mennyt kohta viikko ettei ole nähty. Kaipaan nähdä sua silti ja pelkään vaikka tei
      Ikävä
      17
      1900
    4. Näen jatkuvasti Sompasaunalla alastomia miehiä ja naisia

      jotka menevät siihen viereiseen rantaan myös uimaan alasti. Sompasaunat on siis Mustikkamaalla Helsingissä, ja kuljen si
      Maailman menoa
      78
      1680
    5. Älä mahdollisesti ota itseesi

      En voinut tietää. Sitäpaitsi.. niin
      Ikävä
      18
      1502
    6. Jos sinä olisit pyrkimässä elämääni takaisin

      Arvelisin sen johtuvan siitä, että olisit taas polttanut jonkun sillan takanasi. Ei taida löytyä enää kyliltä naista, jo
      Tunteet
      43
      1388
    7. Ota nainen yhteyttä ja tee Tikusta asiaa?

      Niin sitten minä teen Takusta asiaa.
      Ikävä
      26
      1322
    8. Millainen kaivattusi luonne on?

      Millaisia luonteenpiirteitä arvostat kaivatussa? Oletteko samanlaisia luonteeltanne?
      Ikävä
      90
      1319
    9. Helena ja Mikko Koivun ero jatkuu edelleen ja loppua ei näy.

      Voi eikä, miksi menee noin vaikeaksi avioero ja sopua ei tää ex- pari vaan saa.
      Kotimaiset julkkisjuorut
      114
      1147
    10. UPM suunnittelee paperintuotannon lopettamista LPR:ssa

      Ilta-Sanomissa oli uutinen. Metsäyhtiö UPM suunnittelee paperintuotannon lopettamista Kaukaan-tehtaalla Lappeenrannassa
      Lappeenranta
      110
      1123
    Aihe