---
title: "hämta rader med makro"
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/159563-hämta-rader-med-makro"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "samot79"
published: "2007-04-23T09:04:18.000Z"
updated: "2007-04-23T09:04:18.000Z"
replies: 0
views: 295
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/kontorsprogram/159563-hämta-rader-med-makro"
---

# hämta rader med makro

## #1 — samot79, 2007-04-23T09:04Z

Jag försöker att skapa ett makro för att kopiera rad 1, 6, 11, 16 osv tills det inte längre finns värden i någon rad i kolumn A. Rader skall kopieras och klistras in till flik 2

så här ser mitt makro ut, men funkar absolut inte. Det slutar inte, hur jag ska ange do until

Do Until Selection.End(xlDown).Select = ""

    Sheets("Sheet1").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
        :=False, Transpose:=False
    Range("A2").Select
    Sheets("Sheet1").Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
        :=False, Transpose:=False
    Range("A3").Select
    
Loop

End Sub

snälla hjälp, kanske märks att jag inte har någon vana av programmering i VBA??

Permalänk: https://www.webforum.nu/p/159563

---

Tråden på webben: https://www.webforum.nu/amne/kontorsprogram/159563-hämta-rader-med-makro