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

121

Ää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. Persujen kannatusromahduksen syynä bensan ja kaljan hinnan nostot

      Marinin aikaan bensalitra 1,3e ja laatikon Sandelsia sai Lidlistaä 22 eurolla. Nyt hinnat ovat nousseet noin 50 prosent
      Maailman menoa
      34
      2578

    2. Juhana Vartiainen(ex-sd): Köyhien pitää tehdä jotain elämälleen säilyttääkseen tukensa

      Juhana Vartiainen ehdottaa Suomeen ”Tanskan mallia”, jossa sosiaaliturvaa saadakseen pitäisi hakea ensisijaisesti etuuks
      Maailman menoa
      169
      2559

    3. Miksi tunnustukselliset muslimit saapuvat länteen?

      Onko koskaan kysytty, että miksi islamilaisesta maailmasta tuleva tunnustuksellinen muslimi tarvitsisi turvapaikkaa väär
      Maailman menoa
      56
      1823

    4. En ymmärrä näitä SDP:n ja muun vasemmiston kannattajia

      Eivätkö ihmiset tiedä, että Suomen ongelmat johtuvat vasemmistolaisesta yhteiskuntamallista? Suomessa on ollut vasemmis
      Maailman menoa
      104
      1487

    5. Kuka tekee näitä aloituksia

      jotka aina ovat tällaisia.... Nämä on jonkun saman ihmisen käsialaa, joka paukuttaa tänne loputtomasti ketjuja, joissa
      Ikävä
      28
      1265

    6. Mikä on mielestäsi paras miestyyppi?

      Esimerkit kärjistettyinä: a) perustavallinen/tasainen b) himourheilija c) varakas, turvallinen elättäjä d) puolikrimina
      Ikävä
      183
      1169

    7. viikonloppu lähestyy

      ja tiiän sen jo valmiiks et en pysty olee selvinpäin. oisitpa kieltämässä ja rauhoittamassa minua. en tiedä olisiko sinu
      Ikävä
      12
      890

    8. Rippituoli

      Kerro joku synkkä tai outo salaisuus, joka liittyy ikävääsi kaivattuasi kohtaan. Tee tunnustus anonyyminä. Se helpottaa
      Ikävä
      61
      862

    9. Ei rakennuslupaa

      Eihän hyvinvointitalon työmaalla tehdä luvattomia ja keskeytettyjä töitä pimeyden turvin?
      Pyhäjärvi
      83
      831

    10. Kyllä se on mukavoo kahtoa kun tämä Pipe Hannele tekköö terveellistä

      suolapalloo (siis savolaisittain terveellistä) itelleen. Ihan tullee itellekin vesi kilelle.
      Tuusniemi
      54
      777
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt