Millainen makro tulisi tehdä että saisi tietystä sarakkeesta etsittyä tiettyä sanaa, ja sitten kun sana/sanat on löydetty niin makro kopioisi nämä rivit eri sheetille. Olen aloittelija asian suhteen joten olisi tarvetta viisaapien neuvoille.
Tälläista olen ite yrittänyt...
Sub NokHaku()
Dim Solu As Range
Dim OkNok As Range
Set OkNok = Range("E:E")
For Each Solu In OkNok
If Solu = "Nok" Then
Selection.EntireRow.Select
Selection.Copy
Sheets("Sheet2").Select
Rows("2:2").Select
ActiveSheet.Paste
End If
Next Solu
End Sub
Ohjelma ei herjaa mitään eikä se kyllä kopioikkaan oikeaa riviä.
Onko järkee vai ei....? kiitos jo etukäteen
silmukka ongelma
H_J_H
1
251
Vastaukset
hakusanoja etsijasiirrä haejasiirrä
kirjoittaja kunde ja kymmeniä esimerkkejä ja melkeimpä suoran toimiva koodi
Keep Excelling
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu842139Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä
Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu4262030Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä771402Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1101400- 671293
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien.
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien. Norjassa on käynnissä ve1071035Haluatko tietää totuuden?
Olen kyllästynyt sinuun. Et herätä enää mielenkiintoa. Samat jutut x 100. Kuten narskuilla aina. Samalla tunnen myötätun811002Teräväkielinen Virta jauhotti totaalisesti sössöttävän Keskisarjan
Harvoin on noin suvereenia jauhotusta A-studiossa nähty. Ja minä äänestän demareita, joita ei oltu paikalle edes kutsut256990Sofia Virta pyyhkii pöytää Keskisarjalla A studiossa
Hurjaa on meno. Keskisarja ihan kanveesissa.266987- 131898