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

LÖST Långsam flytt av data

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.

 

 

Dela detta inlägg


Länk till inlägg
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.

Dela detta inlägg


Länk till inlägg
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:

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...