VBA script gevraagd voor overzetten gegevens naar ander werkblad

Status
Niet open voor verdere reacties.

jan excel

Gebruiker
Lid geworden
4 mrt 2007
Berichten
437
Hoi Expert,

In een excel file wil ik data overzetten naar een ander werkblad waarbij de tussen liggende kop titels niet wordt mee genomen.
Er is een bijlage toegevoegd dat duidelijk maakt wat precies de bedoeling is, althans dat hoop ik.

Aantal regels in het voorbeeld is niet de werkelijkheid, dit kan oplopen tot wel 150.000 regels.

Bij voorbaat dank.
Jan M


Bekijk bijlage voorbeeldhlpmij 1.0.xlsx
 
Zoiets:
Code:
Sub Overzetten()
    Dim r As Long
    r = 3
    
    For i = 2 To Sheets("data").UsedRange.Rows.Count Step 2
        Sheets("overzetten").Range("A" & r & ":G" & r).Value = _
        Sheets("data").Range("A" & i & ":G" & i).Value
        r = r + 1
    Next i
End Sub

Waarbij ik zelf de ScreenUpdates uit zou zetten en een voortgangsbalkje zou laten meelopen als het om zoveel regels kan gaan.
 
Laatst bewerkt:
Ik denk dat deze een ietsje sneller gaat.

Code:
Sub VenA()
With Sheets("data").Cells(1).CurrentRegion
    .AutoFilter 1, "<>machine nummer"
    .Copy Sheets("Overzetten").[A1]
    .AutoFilter
End With
End Sub
 
Netjes :thumb:
Geeft wel een andere uitvoer op het blad Overzetten.
 
Laatst bewerkt:
Voor de liefhebbers:

Code:
Sub M_snb()
    sn = Sheet1.Cells(1).CurrentRegion
    Sheet2.Cells(20, 1).Resize(UBound(sn) \ 2, UBound(sn, 2)) = Application.Index(sn, Evaluate("2*row(1:" & UBound(sn) \ 2 & ")"), Evaluate("transpose(row(1:" & UBound(sn, 2) & "))"))
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan