Kunde tai joku muu Macro vastaava

Excel.Dummy

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

1

243

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • lisaa rivi ennen rivia
      vika2=...

      WorkSheets("Taul2").Range("A:M")=""
      muuta toi alue sopivaksi
      @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Persuja ei aluevaltuustoissa näy

      Ei tunnu persuja paljon paikalliset asiat kiinnostavan, vaan ainoastaan ulkomaalaiset, joku Israel ja Trumpin fanitus.
      Maailman menoa
      92
      3965
    2. Päivän Riikka: Uudenkaupungin autotehdas hiljeni

      Näin ne 100 000 uutta pysyvää ei-tempputyötä yksityiselle sektorille tämän hallituksen ansiosta syntyy. Työntekijöille j
      Maailman menoa
      97
      3317
    3. Riikka vie Suomen kohta ykköseksi työttömyyskisassa

      Espanja: 10,5 % Suomi: 10,3 % Ruotsi: 9,3 % Kisa on tiukkaa, mutta Riikalla hyvä draivi päällä. Vasemmistolaisen päämin
      Maailman menoa
      126
      2627
    4. Miten juhlitte ensi lauantaina?

      Se on kalenteriin merkitty juhlapäiväksi, niin sitä kai kuuluu juhlia.
      Maailman menoa
      214
      2021
    5. Laita tunniste josta kaivattusi tietää sun kirjoittavan täällä

      Joku yksilöity yhteinen juttu joka on sun ja kaivattusi välillä. Tuntomerkkinä esim. punainen pipopää, tonttu-ukko tai m
      Ikävä
      89
      1806
    6. Mikä ihme teitä savolaisia tuossa

      p*rs*reiässä niin kiinnostelee? Että siitä pitää päntönnään huutaa.
      Tuusniemi
      20
      1794
    7. Varusmiehen kuolema

      Ei ollut vahinko, ei aiheuttanut vaaraa muille, eikä ollut rikos, mitä jää jäljelle? Oliko kyseessä oman käden kautta lä
      Kajaani
      97
      1729
    8. Mikä tekee naisesta

      Seksikkään ja viehättävän? Entä miehestä?
      Ikävä
      110
      1559
    9. Kumpaan rahat, mummojen vaippoihin vai Nalle WahIroosille?

      JOS siis sinä saisit päättää?
      Maailman menoa
      1
      1301
    10. Mitä ajattelet rakkaastasi tällähetkellä?

      Itse haluaisin jo hänen viereen..
      Ikävä
      57
      1212
    Aihe