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

120

Ää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. Purra hyökkää nyt suomalaisen duunarin kimppuun teettämällä mamuilla palkatonta työtä

      Niinpä niin. Persut duunaripuolue, HAH. Joko alkaa kovapäisinkin persu älyämään, että persut ovat Suomen kansan vastain
      Maailman menoa
      180
      11026

    2. Mitä hyvää rikkaiden hyysääminen Suomelle tuonut?

      Minäpä vastaan: ei yhtikäs mitään, vaan pelkkää vahinkoa. Demareiden ansiosta Suomen valtio oli käytännössä vielä 1980-
      Maailman menoa
      92
      10492

    3. Tytti Tuppurainen häpäisi Suomen epäisänmaallisella lausunnollaan USA:n ulkoministerille Rubiolle.

      https://www.is.fi/politiikka/art-2000011816267.html Miksi Tytti Tuppurainen päästetään antamaan typeriä lausuntoja noin
      Maailman menoa
      235
      5930

    4. Purra ehdottaa vaan Tanskan mallia, joka on erittäin hyvä malli

      Purra ehdotti helmikuussa Suomeen Tanskan mallia, jossa maahanmuuttajilta vaaditaan työntekoa sosiaalitukien saamiseksi.
      Maailman menoa
      180
      4744

    5. Kokoomusnuoret: Sosiaalitukien työvelvoitteen tulisi koskea kaikkia

      Riikka Purra on esittänyt, että maahanmuuttajilta tulisi edellyttää palkatonta työtä sosiaalitukien vastineeksi. Kokoom
      Maailman menoa
      131
      3226

    6. Pystyisitkö olla

      Kanssani kaiken sotkun jälkeen? Ainakaan tunteet ei ole loppuneet
      Ikävä
      171
      3215

    7. L/OVER ikuisesti minun

      Aivan järkyttävä sarja. Ei voi olla katsomatta, mutta tuo omat muistot mieleen. Näyttelijät näyttelevät turhankin hyvin
      Ikävä
      39
      2033

    8. Mitä voisit miehenä tehdä?

      Suojellaksesi kaikkia naisia ja että heillä olisi juuri sinun käytöksen takia edes vähän turvallisempaa. Mitä miehenä
      Ikävä
      298
      1608

    9. Jyrki Linnankivi, Jyrki 69 - Goottirokkarista kirkonmieheksi Lappiin!

      Jyrki Linnankivi eli Jyrki 69 on The 69 Eyes -rockyhtyeen vokalisti. Lauluhommien lisäksi hän sanoittaa, säveltää ja sov
      Työ ja opiskelu
      6
      1450

    10. Onnea Maria ja Vilma Amazing Race -voitosta!

      Maria Guzenina ja Vilma Vähämaa voittivat Amazing Race Suomi -kisan. Voiton hetkellä Guzenina paljasti, miksi valitsi Vi
      Tv-sarjat
      16
      1374
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt