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
238
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
- 1582639
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1351976Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1081846- 731500
- 801466
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet241452- 2271100
- 65969
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv230942- 73920