Gå til innhold

Kommentar fra Innholdsansvarlig på Diskusjon.no: Fullt navn er ingen garanti for en saklig debatt

Foto

[Løst] Excel svarer ikke

makro som sirkler inn ugyldig


14 svar i denne tråden

#1 Trelkrok

Trelkrok

    Bruker

  • Medlemmer
  • 132 innlegg
  •   4. april 2016

Skrevet 14. juli 2019 - 12:37

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

 



Beste svar Harald Staff, 16. juli 2019 - 13:55

Hei igjen

 

Litt mer fikling var det jo, som alltid :-)  Demo ned t.o.m. rad 20:

 

 

Beste hilsen Harald

Gå til hele innlegget

  • 0

#2 Harald Staff

Harald Staff

    Bruker

  • Medlemmer
  • 2 411 innlegg
  •   25. april 2005

Skrevet 14. juli 2019 - 12:59

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
  • 0

#3 Trelkrok

Trelkrok

    Bruker

  • Medlemmer
  • 132 innlegg
  •   4. april 2016

Skrevet 14. juli 2019 - 13:12

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


  • 0

#4 Trelkrok

Trelkrok

    Bruker

  • Medlemmer
  • 132 innlegg
  •   4. april 2016

Skrevet 14. juli 2019 - 14:01

Legger ved ett bild av hvordan det ser ut

:hmm:  :hmm:

Vedlagte miniatyrbilde(r)

  • Excel svarer ikke.png

  • 0

#5 fokkeslasken

fokkeslasken

    Bruker

  • Medlemmer
  • 5 816 innlegg
  •   26. november 2014

Skrevet 14. juli 2019 - 14:12

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.

Dette innlegget har blitt redigert av fokkeslasken: 14. juli 2019 - 14:26

  • 0
There are no feminists in a house fire. -Bill Burr
i-hate-it-here.com
Hadde barn gjort som foreldrene sa hadde vi fortsatt bodd i huler.

#6 Trelkrok

Trelkrok

    Bruker

  • Medlemmer
  • 132 innlegg
  •   4. april 2016

Skrevet 14. juli 2019 - 15:05

Takk for tips. Har prøvd og kjøre denne makroen over bare aktuelle rader og kolonner men får samme resultat da også.
  • 0

#7 Harald Staff

Harald Staff

    Bruker

  • Medlemmer
  • 2 411 innlegg
  •   25. april 2005

Skrevet 15. juli 2019 - 10:41

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


  • 0

#8 Trelkrok

Trelkrok

    Bruker

  • Medlemmer
  • 132 innlegg
  •   4. april 2016

Skrevet 15. juli 2019 - 13:44

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


  • 0

#9 Harald Staff

Harald Staff

    Bruker

  • Medlemmer
  • 2 411 innlegg
  •   25. april 2005

Skrevet 15. juli 2019 - 14:49

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


  • 0

#10 Trelkrok

Trelkrok

    Bruker

  • Medlemmer
  • 132 innlegg
  •   4. april 2016

Skrevet 15. juli 2019 - 16:06

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


  • 0

#11 Trelkrok

Trelkrok

    Bruker

  • Medlemmer
  • 132 innlegg
  •   4. april 2016

Skrevet 16. juli 2019 - 13:35

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

 

Vedlagt(e) fil(er)


  • 0

#12 Harald Staff

Harald Staff

    Bruker

  • Medlemmer
  • 2 411 innlegg
  •   25. april 2005

Skrevet 16. juli 2019 - 13:55   Beste svar

Hei igjen

 

Litt mer fikling var det jo, som alltid :-)  Demo ned t.o.m. rad 20:

 

Vedlagt fil  HJELPEMIDDLER2.xlsx   168,82K   5 nedlastinger

 

Beste hilsen Harald


  • 0

#13 Trelkrok

Trelkrok

    Bruker

  • Medlemmer
  • 132 innlegg
  •   4. april 2016

Skrevet 16. juli 2019 - 14:08

Artig med litt fikling. Sitter bare med mobil nå. Skal se på det etterhvert 🙂

Dette innlegget har blitt redigert av Trelkrok: 16. juli 2019 - 14:09

  • 0

#14 Trelkrok

Trelkrok

    Bruker

  • Medlemmer
  • 132 innlegg
  •   4. april 2016

Skrevet 16. juli 2019 - 15:41

Tusen takk Harald, denne hadde jeg ikke klart selv :ninja:


  • 0

#15 Harald Staff

Harald Staff

    Bruker

  • Medlemmer
  • 2 411 innlegg
  •   25. april 2005

Skrevet 17. juli 2019 - 00:47

Fine greier, RA. Bare moro dette. Takk for tilbakemeldinger!

Beste hilsen Harald
  • 0


0 bruker(e) leser denne tråden

0 medlemmer, 0 gjester, 0 skjulte brukere