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
243
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
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äämin1342724Miten juhlitte ensi lauantaina?
Se on kalenteriin merkitty juhlapäiväksi, niin sitä kai kuuluu juhlia.2612307Kumpaan rahat, mummojen vaippoihin vai Nalle WahIroosille?
JOS siis sinä saisit päättää?221413- 1151082
- 971040
Uudestisyntyminen ei tapahdu kasteessa
Tässä Apostolien tekojen kohdassa näemme, että Filippus julisti hoviherralle ensin evankeliumia ja kuulusteli sitten tar2041013Ryöstö Punkaharjulla
Punkaharjun k-market ryöstetty tänään keskellä päivää, ketä lie asialla? Poliiseja ainakin pörrää ympäriisee13932Lasse Lehtonen on yhtä aikaa sairauslomalla ja työmatkalla
Kelan johtaja näyttää vötkyilyn mallia, otti sairaslomaa ja lähti Brysseliin sitten ryyppäämään! 😂 Kelan pääjohtaja La55828Mistä juttelit viimeisen kerran
Mistä juttelitte viimeisen kerran ikävöinnin kohteen kanssa? Irl tai viesteillä.50771Evoluutioon ja alkuräjähdykseen uskominen vaatii todella vahvaa uskoa
Että tyhjästä syntyi ja kehittyi kaikki se mitä näemme ympärillämme.277752