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.
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.
Vastaukset 3
Vanhimmat
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
Thanks! Täältä löytyy aina ratkaisu. :)
..taul1:ssä on solu F6, jossa on milloin mikäkin tunnus, joka toimii hakuehtona. Taul1:een haettaisiin sarakkeisiin D,E,F,G ja H tietoa Taul2:sta sarakkeista P,B,C,D ja E niiltä riveiltä, joiden A-sarakkeessa on tuo hakuehtona toimiva tunnus. Tiedot tuotaisiin siis taul1:een sarakkeisiin D,E,F,G ja H mutta riveille 51-70 (tiedot on lajiteltu nousevasti taul2:ssa, joten tuo 20 suurinta arvoa).
Auttakkee tyhmempäänne :)