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

86

    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. Hengenvaaralliset kiihdytysajot päättyivät karmealla tavalla, kilpailija kuoli

      Onnettomuudesta on aloitettu selvitys. Tapahtuma keskeytettiin onnettomuuteen. Tapahtumaa tutkitaan paikan päällä yhtei
      Kauhava
      172
      6263
    2. Ootko rakastunut?

      Kerro pois nyt
      Ikävä
      147
      1734
    3. Onhan sulla nainen parempi mieli

      Nyt? Ainakin toivon niin.
      Ikävä
      113
      1528
    4. Ujosteletko tosissaan vai mitä oikeen

      Himmailet???? Mitä pelkäät?????
      Ikävä
      51
      1280
    5. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      46
      952
    6. Möykkähulluus vaati kuolonuhrin

      Nuori elämä menettiin täysin turhaan tällä järjettömyydellä! Toivottavasti näitä ei enää koskaan nähdä Kauhavalla! 😢
      Kauhava
      30
      870
    7. Älä mies pidä mua pettäjänä

      En petä ketään. Älä mies ajattele niin. Anteeksi että ihastuin suhun varattuna. Pettänyt en ole koskaan ketään vaikka hu
      Ikävä
      97
      856
    8. Reeniähororeeniä

      Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?
      Kouvola
      5
      809
    9. Tarvitsemme lisää maahanmuuttoa.

      Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan
      Maailman menoa
      230
      771
    10. Kävit nainen näemmä mun

      Facessa katsomassa....
      Ikävä
      41
      759
    Aihe