Navigation

   Hej Forum.
Den her er vanskelig og jeg kan desværre ikke uploade arket, da det fylder alt for meget - Ca. 25 Mb.

Første linje på en fanen, består af 111 kolonner, med alm. Excel koder i de sidste ca. 100 af de 111.
De alm. Excel koder kan ikke undværes og bruges til beregninger.

- I de første 10 kolonner indsættes værdier på næste frie linje, vha. en Userform Textboxe.
- Herefter køres en kode for hver kolonne, der kopierer cellen oven over og de sidste af de 111 kolonner beregnes ud fra de 10 første kolonner.
- Herefter vises de 10 første kolonner i en Listbox.

Problem
Pga. den voldsomme kopiering og beregning, tager det umindelig lang tid, før Listboxen opdateres.
I den tid venter man bare på, at dén skal blive færdig, så en ny linje/vagt kan indtastes i Textboxene.

Er det muligt at speede den proces op ?
Måske en anden måde at kopierer de sidste 100 kolonner ?

Jeg ved godt det er svært at svare på, når man ikke kan se selve arket med koderne.
Men det her er min eneste mulighed, for at løse problemet 

Her er en lille del af koden.

'nrf = next free row    Dim nfr As Range
'Finder den næste frie række
    Set nrf = Worksheets("IndtastVagt").Range("A1000").End(xlUp).Offset(1, 0)

'Indsætter data fra textboxene
    nrf.Offset(0, 0).Value = TextBox2.Value '................Vagt..............Kol 1
    nrf.Offset(0, 1).Value = TextBox4.Value '................Start tid.........Kol 2
    nrf.Offset(0, 2).Value = TextBox7.Value '................1. del slut.......Kol 3
    nrf.Offset(0, 3).Value = TextBox8.Value '................2. del start......Kol 4
    nrf.Offset(0, 4).Value = TextBox5.Value '................Slut tid..........Kol 5

'-----------------------------------------------'............Betalt pause......Kol 6
' 5-6-7 = Kol 6-7-8 skal kopieres nedad i fanen '............Selvbetalt pause..Kol 7
'-----------------------------------------------'............Eff timer.........Kol 8

    nrf.Offset(0, 8).Value = TextBox3.Value '................By................Kol 9
    nrf.Offset(0, 9).Value = TextBox9.Value '................Km................Kol 10
    nrf.Offset(0, 10).Value = TextBox6.Value '...............Pause 1 start.....Kol 11
    nrf.Offset(0, 11).Value = TextBox10.Value '..............Pause 1 slut......Kol 12
    nrf.Offset(0, 12).Value = TextBox11.Value '..............Pause 2 start.....Kol 13
    nrf.Offset(0, 13).Value = TextBox12.Value '..............Pause 2 slut......Kol 14
    '--------------------------------------------------------------------------------

    Sheets("IndtastVagt").Range("F1").Copy
    nrf.Offset(0, 5).PasteSpecial xlPasteFormulas '............................Kol 6

    Sheets("IndtastVagt").Range("G1").Copy
    nrf.Offset(0, 6).PasteSpecial xlPasteFormulas '............................Kol 7

    Sheets("IndtastVagt").Range("H1").Copy
    nrf.Offset(0, 7).PasteSpecial xlPasteFormulas '............................Kol 8
    Osv - 111 kolonner i alt
Userformen ser således ud.

På forhånd tak.

Mvh.
Ib

Navigation

Kode kører langsomt pga. størrelsen