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?
9
90
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
Ikävöin sinua kokoyön!
En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun443126Kova karman laki
Karman lain kautta pahantekijä tehdessään pahaa toteuttaa koston ja rangaistuksen sille jolle pahaa on tehty. Tämä tarko5081917Pä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 tei171900Näen jatkuvasti Sompasaunalla alastomia miehiä ja naisia
jotka menevät siihen viereiseen rantaan myös uimaan alasti. Sompasaunat on siis Mustikkamaalla Helsingissä, ja kuljen si781680- 181502
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, jo431388- 261322
Millainen kaivattusi luonne on?
Millaisia luonteenpiirteitä arvostat kaivatussa? Oletteko samanlaisia luonteeltanne?901319Helena 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.1141147UPM suunnittelee paperintuotannon lopettamista LPR:ssa
Ilta-Sanomissa oli uutinen. Metsäyhtiö UPM suunnittelee paperintuotannon lopettamista Kaukaan-tehtaalla Lappeenrannassa1101123