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
246
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äämin2093133Miten juhlitte ensi lauantaina?
Se on kalenteriin merkitty juhlapäiväksi, niin sitä kai kuuluu juhlia.3002728Suomen veroaste 5 %-yks liian matala
Palauttamalla kokonaisveroaste 1990-luvun tasolle saadaan hyvinvointivaltion palvelut rahoitettua ilman velan ottoa.751788Kolme neljästä suomalaisesta kannattaa miljonääriveroa
Kertoo vasemmistoliiton teettämä kysely. Veron ulkopuolelle jätettäisiin asunto. "Puolet vastaajista oli sitä mieltä, e501687Kumpaan rahat, mummojen vaippoihin vai Nalle WahIroosille?
JOS siis sinä saisit päättää?391551- 1221356
Ryöstö Punkaharjulla
Punkaharjun k-market ryöstetty tänään keskellä päivää, ketä lie asialla? Poliiseja ainakin pörrää ympäriisee171240- 1051239
Evoluutioon ja alkuräjähdykseen uskominen vaatii todella vahvaa uskoa
Että tyhjästä syntyi ja kehittyi kaikki se mitä näemme ympärillämme.4091218MTV: Harvinainen haastattelu! Vappu Pimiä kommentoi vihdoinkin uutta TTK-juontajaa
TTK-juontajaspekuloinnit käyvät edelleen kuumana. Kenet sinä haluaisit uudeksi TTK-juontajaksi? Kommentoi alle! Lue,91183