19. juli 2005 - 11:26Der er
17 kommentarer og 1 løsning
Makro stopper, hvorfor ?
Hejsa, er der mon nogen der kan hjælpe med hvorfor nedennævnte makro stopper efter at have kopieret 50-55 ark ? Sub Kopier_DEMO_ark() Dim ktnr As Long, arknr As Integer, demonr As Long arknr = 2 Sheets("Budget").Select Range("b5").Select ActiveCell.Offset(1, 0).Select ktnr = ActiveCell.Value Sheets("DEMO").Select Sheets("DEMO").Copy After:=Sheets(arknr) demonr = 2 Sheets("DEMO (" & demonr & ")").Select Sheets("DEMO (" & demonr & ")").Name = ktnr
For i = 0 To 270 Sheets("Budget").Select ActiveCell.Offset(1, 0).Select ktnr = ActiveCell.Value arknr = arknr + 1 demonr = 2 Sheets("DEMO").Select Sheets("DEMO").Copy After:=Sheets(arknr) Sheets("DEMO (" & demonr & ")").Select Sheets("DEMO (" & demonr & ")").Name = ktnr Calculate Next i End Sub
Jeg forstår bare ikke hvad du bruger den første kopiering til, den kunne du jo lave i løkken
Sub Kopier_DEMO_ark() Dim ktnr As Long, arknr As Integer, demonr As Long arknr = 2 ktnr = Sheets("Budget").Range("b6").Value Sheets("DEMO").Copy After:=Sheets(arknr) ActiveSheet.Name = ktnr
For I = 0 To 270 ktnr = Sheets("Budget").Cells(I + 7, "B").Value arknr = arknr + 1 Sheets("DEMO").Select Sheets("DEMO").Copy After:=Sheets(arknr) ActiveSheet.Name = ktnr Calculate Next I End Sub
Jeg får det problem, at programmet bryder helt sammen, når jeg prøver (uanset hvilket makro jeg bruger). Det er dog lykkedes mig, at rode så meget med det, at jeg nu har et regneark (hvor jeg har kopieret dine ark over i), og nu kan jeg få det til at virke - næsten. Programmet kører meget længere, og jeg har lidt ideer til hvordan, jeg måske kan forhindre det i at gå ned.
Har fundet din mail - jeg er åbenbart lidt langsom idag. Sender ark.
Har tilføjet en kontrol af at der findes et ktnr (ellers skal der vel ikke oprettes et ark) og at antallet af ark ikke overskrider 255 (uden den går programmet ned hos mig).
Hej sjap, sorry hvis jeg har "gemt" mailadr, men jeg fik din mail og du har ret - det virker perfekt indtil grænsen på de 255 ark træder ind. 1000-tak. mvh alj
Jeg ved IKKE hvorfor det virker, men er da glad for at høre, at det gør :0)
Det jeg har gjort er
- Opret et nyt tomt regneark med to faneblade - Kopier arket DEMO fra Alans fil til det FØRSTE ark (ved ikke om det er vigtigt, men det var det jeg gjorde) i den nye fil - Kopier arket Budget fra Alans fil til det andet ark i den nye fil - Kopieringen virker ikke korrekt for formlen i DEMO!C4 der skal rettes til =LOPSLAG(B4;Budget!B6:C282;2;FALSK) - Til sidst kopieres koden ind i det nye ark
Jeg forstår det stadig ikke, men det er der måske andre der gør (OG SÅ HØRER JEG GERNE NÆRMERE!)
sjap - som du dog kan råbe :) Point er dine - vel fortjent - og jeg fatter heller ikke hvorfor det virker efter det du beskriver, men er glad for det alligevel. Der ER åbenbart mere mellem himmel og jord end vi skal forstå. mvh alan
Tjah, det har du nok ret i. Men det kan jo være med til at gøre livet spændende - dit problem, går vel mere over i kategorien irriterende ;0)
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.
