Kunde tai joku muu Macro vastaava

Kundelle; joo kiitoksia tossa alempana kun vinkkasit että hakuakin vois käyttää. Löytyi paljon käyttökelpoisia makroja historiasta.

Seuraavaan makroon jos saisi jelppiä, nyt kun tuo siirtää Taul1;stä Taul2;n "ehdoilla" rivit.
Kun makron ajaa vaikka kaksi kertaa putkeen, Taul2:n siirtyy allekkain samat arvot kaksi kertaa.
Pystyisikö tuon estämään millä, esim. jollain käskyllä että se ensin vaikka pyyhkii Taul2 puhtaaksi ja heti perään ajaa Sub Siirrä() makron.

Tiedä sitten tajusiko kukaan kyssääni mutta aina kannatta yrittää, makro olisi muuten juuri sitä mitä olin vailla.

------------------------------------------------------------
Joku joskus kysyi näin:

Tarvitsisin apua seuraavaan ongelmaan:

Pitäisi poimia taulukosta toiseen taulukkoon tiettyjen sarakkeiden tiedot, mikäli kyseisen rivin tietyssä sarakkeessa on määritelty arvo.

Esim. jos sarakkeessa F on tietty arvo, niin poimitaan siltä riviltä tiedot sarakkeista B, I, J, L, M toiseen taulukkoon. Mikäli sarakkeessa F on joku muu arvo, ei riviltä poimita mitään.

Kyseessä on iso ja jatkettava taulukko ja poiminta pitäisi saada automaattiseksi.
---------------------------------------------------------------
Kunden vastaus:

moduuliin...
muuta hakuehto sopivaksi

Sub Siirrä()
Dim vika As Integer
Dim vika2 As Integer
Dim Alue As Range
Dim i As Integer
vika = Worksheets("Taul1").Range("F65536").End(xlUp).Row
For i = 1 To vika
If Worksheets("Taul1").Range("F" & i).Value = 0 Then 'nyt etsitään 0 muuta sopivaksi, tekstillä muista lainausmerkit sanan ympärille "hakusana"
vika2 = Worksheets("Taul2").Range("B65536").End(xlUp).Row 1
Worksheets("Taul1").Range("B" & i).Copy Destination:=Worksheets("Taul2").Range("B" & vika2)
Worksheets("Taul1").Range("I" & i).Copy Destination:=Worksheets("Taul2").Range("I" & vika2)
Worksheets("Taul1").Range("J" & i).Copy Destination:=Worksheets("Taul2").Range("J" & vika2)
Worksheets("Taul1").Range("L" & i).Copy Destination:=Worksheets("Taul2").Range("L" & vika2)
Worksheets("Taul1").Range("M" & i).Copy Destination:=Worksheets("Taul2").Range("M" & vika2)
End If
Next
End Sub