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
Kunde tai joku muu Macro vastaava
Excel.Dummy
1
211
Vastaukset
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
- 1581991
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1311774Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021547- 721240
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 tunnet171233- 681191
- 220988
- 70815
- 45750
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv194723