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ä?
Miten toteuttaa?
Anonyymi
9
61
Vastaukset
- 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 SubOsaaks 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
Järkyttävä tieto Purrasta
Purra tapasi nykyisen miehensä täällä. Suomi24:ssä! Tulipa likainen olo. Nyt loppuu tämä roikkuminen tällä palstalla.2214370Näin asia on
Tiedän ettei hän koskaan aio lähestyä minua eikä niin ole koskaan aikonutkaan, eikä lähesty ja enkä minä enää tee sitä k223339Mikseivät toimittajat vaadi Orpoa vastuuseen lupauksistaan
Missä ne 100.000 uutta työpaikkaa muka ovat? Eivät yhtään missään. Näin sitä Suomessa voi puhua ja luvata mitä sattuu. E2621935Taas varoitusta lumesta ja jäästä
Ai kauhea! Vakava säävaroitus Lumi-/jäävaroitus Varsinais-Suomi, Satakunta, Uusimaa, Kanta-Häme, Päijät-Häme, Pirkanmaa,61533Aavistan tai oikeastaan
tiedän, että olet hulluna minuun. Mutta ilman kommunikointia, tällaisenaan tilanne ja kaikki draama ovat mun näkökulmast381217Mistä erotat onko joku kiinnostunut vai muuten mukava?
Voi sekaantua yleiseen ystävällisyyteen vai voiko?1611179Poliisi tahtoo pääsyn 4 miljoonan suomalaisen sormenjälkiin.
https://www.is.fi/digitoday/art-2000011009633.html Tämä sormenjälkiin poliisin pääsy on erittäin tärkeä rikollisten kiin96885- 63755
- 30747
- 176730