Jump to content
Trelkrok

[Løst] Excel svarer ikke

Recommended Posts

Hei, har Norsk Excel, Office 365

 

Når jeg kjører makroen under (Sirkle inn ugyldig data) får jeg meldingen ‘’Excel (Svare ikke)’’

Står og jobber og jobber og går ca. 10-15 sekunder og da kommer regnearket tilbake med markerte celler.

Hvorfor eller hva kan jeg gjøre for å slippe denne feilmeldingen og lange ventetiden?

 

 

Denne makroen ligger i Ark1:

Private Sub Worksheet_Activate()

MarkereUtgåtte

End Sub

 

Denne ligger i modul 11

Sub MarkereUtgåtte()

'Denne markere ting som ikke er i registeret

Dim ws As Excel.Worksheet

Dim cell As Excel.Range

Dim ShapesBefore As Long

Dim ShapesAfter As Long

     

    Set ws = ActiveSheet

    Set cell = ActiveCell

    With ws

        .ClearCircles

        ShapesBefore = ws.Shapes.Count

        .CircleInvalid

        ShapesAfter = ws.Shapes.Count

        If ShapesAfter > ShapesBefore Then

            MsgBox "Her er det varer som ikke lenger er i vareregisteret. Slett disse varene og klikk Grønn knapp."

        End If

    End With

    End Sub

 

Share this post


Link to post

Hei

 

Jeg får ikke prøvekjørt denne før tidligst i kveld. Den ser ufarlig ut, så litt rart. Men et generelt råd for å kjappe opp makroer er å slå av beregning og skjermoppdatering før koden begynner å gjøre ting:

 

Application.Calculation = xlManual

Application.Screenupdating = False

 

Husk å avslutte med

 

Application.Calculation = xlAutomatic

 

og få med dette også i eventuell feilhåndtering, On Error...

 

Ser litt mer på det senere.

 

Beste hilsen Harald

Share this post


Link to post

Takk for svar, prøvd og gjøre som du beskrev men det hjelper ikke. 

Har prøvd og ''Sirkle inn ugyldig data'' manuelt nå. Oppfører seg sånn da også så tviler på at det er noe feil med selve makroen.

Kan det være en feil i selve Excel tro?

 

Mvh

RA

Share this post


Link to post
Annonse

Jeg merker meg at du ikke begrenset omfanget av evalueringen så du kjører vel da funksjonen på hele arket. En ikke uvanlig "feil" folk gjør er å ha tusenvis av tomme celler i alle retninger, noe som ofte er drepen på makroer da datamengden de må gå igjennom blir ganske stor.

En opprydning pleier å hjelpe om dette er tilfellet for deg.

 

EDIT:

For de av dere som er ukjente med opprydding i Excel så gjøres det ved å trykke Ctrl+End som da velger cellen lengst til høyre på siste reelle linje.

Dersom man da havner langt nedenfor der man har data må man velge alle de tomme linjene man vil ta bort og så trykke høyre knapp på de valgte linjene og velge "Delete" derfra. Trykker man "Delete" på tastaturet vil ikke de tomme linjene bli borte.

Operasjonen gjentas for overflødige kolonner.

Edited by fokkeslasken

Share this post


Link to post

Hei

 

Jeg er usikker på hva denne koden gjør, om om det er den optimale løsningen på hva du er ute etter. Men selve koden kjører lynraskt på min Pc, så det er nok noe med miljøet den kjører i.

 

Beste hilsen Harald

Share this post


Link to post

Hei igjen Harald og takk for svar, ja tror det jeg også. Skal prøve og forklare litt bedre hva jeg ønsker med koden.

 

1. I fanen ''Hjelpemiddelregister'' har jeg oppført alle hjelpemiddler i område A3 til J1000 og navngitt alle kolonner.

 

2. I fanen ''Navn og Oversikt hjelpemiddler'' ( område B3 til AQ1000) velges hjelpemiddler via nedtreksmeny (Betinget datavalidering) fra fanen ''Hjelpemiddelregister'' 

 

3. Hvis ett hjelpemiddel blir slettet i Hjelpemiddelregisteret vi jeg at ugyldig data skal sirkles inn fanen  ''Navn og Oversikt hjelpemiddler'' sånn at de som registrerer får en påminnelse om og slette disse.

 

Dvs. koden skal markere hjelpemidler som ikke lenger står i ''Hjelpemiddelregisteret'') 

 

Håper dette var litt oppklarende

 

Mvh

RA

Share this post


Link to post

Skjønner. Jeg tror jeg heller ville brukt betinget formatering i de cellene, med en formel a la

 

=ERFEIL(SAMMENLIGNE(A2;'Hjelpemiddelregister'!A:A;0))

 

og farget disse lyserøde eller noe. Litt enklere, og ingen makroer.

 

Beste hilsen Harald

Share this post


Link to post

Skjønner. Jeg tror jeg heller ville brukt betinget formatering i de cellene, med en formel a la

 

=ERFEIL(SAMMENLIGNE(A2;'Hjelpemiddelregister'!A:A;0))

 

og farget disse lyserøde eller noe. Litt enklere, og ingen makroer.

 

Beste hilsen Harald

 

Takk igjen Harald, skal se på dette. Kommer tilbake med tilbakemelding

 

Mvh

RA

Share this post


Link to post

Hei igjen.

Kan godt henne og ikke minst vært like bra og slippe makro på denne Harald. Men jeg får det ikke til  :dribble:

Har lagt ved deler av arbeidsboken. Det er i grønn fane jeg ønsker og få markert hjelpemiddler som ikke lenger står i Hjelpemiddelregisteret.

 

NB! Gul linje indikerer hvilken rad jeg stå i (makro) så den trengs ikke å ta hensyn til.

 

Mvh

RA

 

HJELPEMIDDLER med 10 områder utkast 100 under utvikling.xlsx

Share this post


Link to post

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...