Jeg har lavet en Loop funktion, hvor der på den ene eller anden måde går noget galt efter data er kopieret ind. Den skriver ikke en fejl til mig, men Excel går "kold" dvs. (Svare ikke) vises og Excel lukker. Jeg har prøvet at reducere mængden af data fra knap 3500 linjer til 33, med samme resultat.
Jeg har søgt blandt "loop" spørgsmål her inde og resoneret mig frem til virkemåde. Det kan bestemt være der fejlen ligger!
Jeg har haft MSGbox (som også ses i programmet) som kom op ved kørsel af de forskellige IF funktioner, så jeg er overbevist om at disse fungere (dog skal man aldrig sige aldrig)
Nogle der har forstand på denne funktion?
Sub sortereData() ' ' sortereData '
Do
Sheets("Import").Select
If ActiveSheet.range("A12").Value = "INDEX,OPR" Then
If ActiveSheet.range("A12").Value = "MASKIN" Then ' fejl ved manglende værktøjsskifts registering
' Indsæt andet kendt data ' MsgBox ("data mangler ved VKT slut tool ved NMP:" & ActiveSheet.range("D3").Value & "& Tool" & ActiveSheet.range("D6").Value)
Case Is = "MASKIN" ' fejl ved manglende værktøjsskifts registering
' Indsæt andet kendt data ' MsgBox ("data mangler ved VKT slut tool ved NMP:" & ActiveSheet.range("D3").Value & "& Tool" & ActiveSheet.range("D6").Value)
Uden og kan gennemskue din kode vil jeg foreslå at du lige inden koden End Sub indsætter følgende: MsgBox "OK" Hvis denne meddelelsesbox ikke kommer på skærmen, er det fordi din loop bliver ved med og kører/gentage sig, så er problemet måske denne linie i din kode: Loop Until ActiveSheet.range("D1").Value = 0 Din loop kører jo endtil celle D1 får/har værdien 0
Svla: Jeg tror du er inde på noget af det rigtige... Excel går i selv-sving da den gentager sig igennem hele arket, og det magter mig pc ikke... Jeg har prøvet at indsætte Loop Until ActiveSheet.range("D1").Value = 0
og for fejlen: Loop without Do ; hvilket jeg tror kommer af at man ikke kan lave loop without funktion når jeg har så mange If statment inde. Jeg har brugt den før og har været glad for at bruge den funktion, så var lidt flad på ideér da det ikke virkede!
Hvis du har opfattelsen af at din loop ikke stopper, så prøv følgende:
Lige inden din kode: "Loop Until ActiveSheet.range("D1").Value = 0
Indsætter du følgende: Range("D1").Select ActiveCell.FormulaR1C1 = "0"
Det bevirker at lige før din loop når afslutningen sætter den værdien i D1 til 0, hvis så din loop nu stopper er der det galt at værdien i celle D1 ikke bliver sat til 0 på noget tidspumnkt inden loop'en starter eller når den kører.
Synes godt om
Ny brugerNybegynder
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.
