Kopioi välilehdestä "täältä" välilehdelle "tänne" tietyt rivit

Question

Haluaisin kopioitua välilehdeltä "täältä" välilehdelle "tänne" tietyt rivit. Mulla on erilaista tietoa välillä A5:X51 ja juuri tuon X sarakkeen mukaan haluaisin, että makro hakisi tekstit "valitse", kopioisi kyseisen rivin ja pasteisi "tänne" välilehdelle. eli jos rivillä a5 on sarakkeessa x sana "valitse", että macro valitsisi rivin (eli pätkä A5:X5) ja copypasteisi sen välilehdelle "tänne". Jos sarakkeella X ei lue "valitse", niin hyppäisi ohi. Kiitos avusta!

Tällaisen koodin räpelsin:

Sub haku()

Dim rng As Range

Dim rivi, rivi2 As Integer

rivi = 5

rivi2 = 5

Application.ScreenUpdating = False

Sheets("täältä").Activate

Set rng = Range("X5:x51")

rng.Activate

Do

rivi = rivi + 1

rivi2 = rivi2 + 1

If ActiveCell.Text = "valitse" Then

Range(Cells(rivi, 1), Cells(rivi, 24)).Select

Selection.Copy

Sheets("tänne").Select

Cells(rivi, 3).Select

Selection.PasteSpecial Paste:=xlPasteValues

Sheets("tänne").Select

Cells(2, 23).Select

Else

ActiveCell.Offset(1, 0).Select

End If

Loop Until ActiveCell.Value = ""

Application.ScreenUpdating = True

End Sub

Answer 1

Hei Eki,

Me emme MS:n puolelta valitettavasti voi auttaa sinua oman Makrosi kanssa tätä kautta, mutta toivottavasti joku muu yhteisön jäsen pystyy tähän.

Toisaalta voit postittaa kysymyksesi Excel IT-ammattilaisten foorumille täällä: http://social.technet.microsoft.com/Forums/en/excel/threads. Saat varman vastauksen.