Avatar billede finnholm Nybegynder
29. april 2005 - 12:47 Der er 3 kommentarer og
1 løsning

Out of memory (kabbak)

Hej

Netop udarbejdede løsning af en userform

//www.eksperten.dk/spm/613974

kommer med en fejl ved lukning af filen - "out of memory" (3 gange OK for at forlade filen). Makroen og userformen virker upåklageligt.

Makroen ser således ud.

    UserForm1.Show

    Range("H7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,2,FALSE),FALSE)"
    Range("J7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,3,FALSE),FALSE)"
    Range("L7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,4,FALSE),FALSE)"
    Range("N7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,5,FALSE),FALSE)"
    Range("P7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,6,FALSE),FALSE)"
    Range("h7").Select


Mangler der en form for "close" funktion i makro?
Avatar billede kabbak Professor
29. april 2005 - 13:13 #1
nej det gør den i formen når du har tryllet på en af knapperne

har rettet i koden


UserForm1.Show
Range("H7").FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,2,FALSE),FALSE)"
    Range("J7").FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,3,FALSE),FALSE)"
    Range("L7").FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,4,FALSE),FALSE)"
    Range("N7").FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,5,FALSE),FALSE)"
    Range("P7").FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,6,FALSE),FALSE)"
    Range("h7").Select
Avatar billede finnholm Nybegynder
29. april 2005 - 13:21 #2
OK - ved at slette "activeCell" så kommer fejlen ikke mere. Smid svar tak...
Avatar billede kabbak Professor
29. april 2005 - 13:24 #3
Ok
Avatar billede kabbak Professor
29. april 2005 - 13:26 #4
tak for point ;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester