Ændring af makro

Kan du ikke bare lave en makro, som kun opdaterer når du kører den?
Det kunne jo tyde på, at din makro ligger under Workbook_open hændelsen.

Hmmm.. den må godt opdatere når den kopieres over. Når så man gemmer den der er kopierer over i, må den ikke opdatere når den åbner igen.

Så kan man jo nøjes med at kopiere værdier over.
Test lige det her.

Application.CutCopyMode = False
    Filnavn = Range("C4").Value & ".xls"
    Workbooks.Open Filename:="\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\" & Filnavn, UpdateLinks:=3
    Sheets(1).Rows("3:58").Select
    Selection.Copy
    Workbooks("Testkalk.xls").Sheets(1).Range("A12").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
    Application.CutCopyMode = False

Den kommer med Fejl 9, indekset er uden for omårdet.

Lige en lille ændring


Application.CutCopyMode = False
    Filnavn = Range("C4").Value & ".xls"
    Workbooks.Open Filename:="\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\" & Filnavn, UpdateLinks:=3
    Sheets(1).Rows("3:58").Select
    Selection.Copy
    Workbooks("Testkalk.xls").Activate
    Sheets(1).Range("A12").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
    Application.CutCopyMode = False

I hvilken linie melder den fejl ?

Ingen ændring.. fejlen skulle ligge i denne sætning:

Workbooks("Testkalk.xls").Activate

Bør måske kigge på den oprinde makro... idet jeg havde samme fejl i denne, som blev udbedret.. se evt.: http://www.eksperten.dk/spm/312965

Det var vist også dig, der hjalp mig der...

Kode 9 kan man få hvis projektmappen ikke er åben.
Kig efter stavefejl.

Det var det...

Nu kommer denne fejl: Kørselsfejl "1004"

Oplysningerne kan ikke sættes ind, fordi kopier området og indsætningsområdet ikke har samme størrelse og form.

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Application.CutCopyMode = False
    Filnavn = Range("C4").Value & ".xls"
    Workbooks.Open Filename:="\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\" & Filnavn, UpdateLinks:=3
    Sheets(1).Rows("3:58").Select
    Selection.Copy
    Workbooks("Testkalk.xls").Activate
    Sheets(1).
Range("A12").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
    Application.CutCopyMode = False

Hovsa -- fik trykket på udfør før jeg var færdig.
Prøv lige det her. Jeg har ændret en smule.

Application.CutCopyMode = False
    Filnavn = Range("C4").Value & ".xls"
    Workbooks.Open Filename:="\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\" & Filnavn, UpdateLinks:=3
    Sheets(1).Rows("3:58").Select
    Selection.Copy
    Workbooks("Testkalk.xls").Activate
    Sheets(1).Activate
    Range("A12").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
    Application.CutCopyMode = False

Samme fejl.. samme sted..

Men kan ikke få den til at "kille" alle links i arket...

Det er selvfølgelig også det du er ved...

Det må jeg sige... Det funker fint ved mig. Du ændrer vel ikke i makroen ??? fx. i denne linie
Range("A12").Select
Det SKAL stå A...

Nej.... jeg ændrer ikke noget... den stopper ved denne linie. Måske hjælper det hvis du får filen...

Husk det foregår i 97.

send til tommybak@netscape.net

Sendt...

Nu tror det virker. der kopieres nu af to gange, først normalt og dernæst laves dette om til værdier.
Du har hængt fast i roden til alt ondt i excel --Flettede celler--
Dette burde afskaffes i fremtidige xl-versioner


Sub Makro16()
    Application.ScreenUpdating = False
    Filnavn = Range("C4").Value & ".xls"
    Workbooks.Open FileName:="C:\Documents and Settings\Dokumenter\" & Filnavn, UpdateLinks:=3
    Sheets(1).Rows("3:58").Select
    Selection.Copy Destination:=Workbooks("Testkalk23.xls").Sheets(1).Range("A12")
    Workbooks("Testkalk23.xls").Activate
    Sheets(1).Rows("12:67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
    Application.ScreenUpdating = True
End Sub

PS. husk lige at sætte rigtig sti ind.

Nu er den ved at være der....

Det laver dog fejl, hvis det ark den skal kopiere fra, ikke er gemt i det rigtige ark. Den skal altid kopiere fra det første ark.

Fejl:

Sheets(1).Rows("3:58").Select

Tror jeg... det er fejl 1004.

hvis det ark der skal kopieres fra altid har samme navn er det ikke noget problem.
Sheets("Ark1").Rows("3:58").Select

bare erstat Ark1 med dit arknavn

Det har det desværre ikke... men det har virket tidligere.. at den bare skulle tage fra det forreste ark.

Hvor kan du så identificere selve arket der skal hentes data fra ?

At det er det første ark, i projektmappen...

Hvis det kan lade sig gøre?

Måske har jeg misforstået dig. Skal den altid tage det første ark ?

ja!

Så skal Sheets(1).Rows("3:58").Select også virke.
Jeg har ingen problemer med dine ark, men jeg vil da gerne se på det igen.

det gør det bare desværre ikke...

Jeg sender lige noget nyt.

Sendt...

Ok, det var fordi filen var gemt med ark2 som aktiv.
Jeg har ændret makroen så det ikke længere er et problem

Sub Makro16()
    Application.ScreenUpdating = False
    Filnavn = "\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\\" & Range("C4").Value & ".xls"
    Workbooks.Open FileName:=Filnavn, UpdateLinks:=3
    Sheets(1).Activate
    Rows("3:58").Select
    Selection.Copy Destination:=ThisWorkbook.Sheets(1).Range("A12")
    ThisWorkbook.Activate
    Sheets(1).Rows("12:67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
    Application.ScreenUpdating = True
End Sub

Hmm.. ja.. nu stopper den her:

Workbooks(Filnavn).Close savechanges:=False

Med fejl 9. Indekset er ud for området.

Check stien for fejl

Der er dobbelt \\ i slutningen

Det hjalp ikke.... fejlen kommmer også længere nede...

Hovsa
jeg opdagede først nu at du havde ændret makroen.
det her duer ikke, vend tilbage til det første.

Filnavn = "\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\\" & Range("C4").Value & ".xls"
    Workbooks.Open FileName:=Filnavn, UpdateLinks:=3


Dette skal du bruge.

Filnavn = Range("C4").Value & ".xls"
    Workbooks.Open FileName:="C:\Documents and Settings\Dokumenter\" & Filnavn, UpdateLinks:=3

Når jeg ikke opfangede fejlen skyldes det at inden jeg tester fjerner jeg jo stien til biblioteket

Så spiller det!

Tusind tak for hjælpen...