Just nu i M3-nätverket
Gå till innehåll

Långsam flytt av data


short

Rekommendera Poster

och jag kan inte låta bli att peta :)

  Dim i As Integer
    For i = 5 To 8

        Workbooks(Tillnamn).Sheets("Timplanering helår").Range("TP_Aktivitet").Columns(kolumn + i).Value = _
        Sheets("Timplanering helår").Range("TP_Aktivitet").Columns(kolumn + i).Value
    Next i

För tusan, man ska aldrig skriva (nästan) samma kod två gånger!

:)

 

Eller bara denna rad:

        Workbooks(Tillnamn).Sheets("Timplanering helår").Range("TP_Aktivitet").Columns(kolumn + i).Resize(, 4).Value = _
        Sheets("Timplanering helår").Range("TP_Aktivitet").Columns(kolumn + i).Resize(, 4).Value

Inte ens en For-slinga :)

Allt i ett svep.

 

 

Länk till kommentar
Dela på andra webbplatser

Vilken av varianterna?

Variant med for borde vara exakt lika snabb som din

Varianten med allt på en rad borde vara snabbare.

 

 

MEN det är VBA och Excel vi pratar om, vad som borde vara är inte alltid sant.

Länk till kommentar
Dela på andra webbplatser

Mja det var ett misslyckat skämt. När jag utökade flytten till att omfatta den tredubbla mängden "flyttar" och således borde ha tagit närmare tre minuter att köra med min första kod så blev körtiden efter att ha följd dina råd sju sekunder!!!! :thumbsup:

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...