Jos joku tietää, auttakaa onnetonta.
Minulla on hirveä määrä ainakin tuhat riviä sisältäviä tiedostoja, ja tarkoitus olisi VALITA JOKA 5. Rivi ja saada nuo valitut rivit kopioitua uuteen työkirjaan. Mutta onko joka 5. rivin valintaan oikeasti mitään muuta keinoa kuin turhauttava ctrl pohjassa näpyttely?
KIITOOSSSS!
Minulla on hirveä määrä ainakin tuhat riviä sisältäviä tiedostoja, ja tarkoitus olisi VALITA JOKA 5. Rivi ja saada nuo valitut rivit kopioitua uuteen työkirjaan. Mutta onko joka 5. rivin valintaan oikeasti mitään muuta keinoa kuin turhauttava ctrl pohjassa näpyttely?
KIITOOSSSS!
Vastaukset 2
Vanhimmat
http://support.microsoft.com/?kbid=213438
nyt kopioi aktiivisen taulukon joka 3 rivin Taul2 alkaen A1
Sub KopioiJokaNs()
Dim Kopioalue As Range
Set Kopioalue = ActiveCell
Worksheets("Taul2").Cells = ""
Do Until Selection = ""
Set Kopioalue = Union(Kopioalue, Selection)
Selection.Offset(3, 0).Select 'nyt joka kolmas rivi kopioidaan ,muuta haluamaksesi
Loop
Worksheets("Taul2").Cells = ""
Kopioalue.EntireRow.Copy Destination:=Range("Taul2!A1")
End Sub