Hente hver 7. celleværdi fra et ark til et andet

hvis vi nu siger at den første som skal med står i række 2 i b kolonnenog data slutter i række 1000


Public Sub Hent7()
    Dim I, X
    I = 2
    For X = 2 To 1000 Step 7
        Cells(I, 1) = Worksheets("Data").Cells(X, "B")
        I = I + 1
    Next
End Sub

Du skal stå på det nye ark, når du kører koden, data sættes ind i A kolonnen, fra række 2

Vil du være sød at skrive det samme som svar, så skal du få point - Det virker HURRA

et svar ;-))

Mange tak for hjælpen

Nu har jeg accepteret dit svar 4 gange, men det går ikke igennem!

du skal markere mit navn i boksen til venstre først

tak for point