Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketDefiner Multi Range i Sheets(1)
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652 		Direkte link til dette indlæg Emne: Definer Multi Range i Sheets(1)
    Sendt: 25.Jan.2019 kl. 16:39
Hej Forum.

Jeg har beskrevet problemet i Test arket.
Men jeg beskriver det også her under.
------------------------------------------

Afhængig af det valgte område bliver cellerne gule On Focus og skifter baggrundsfarve tilbage Off Focus.

Farverne skifte kun inde i de valgte områder.


Mit problem er koden i Sheets(1) = Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range i mit "store ark" er for stort og giver BUG.

Koden kører, hvis jeg kun definerer Range til 2/3 af det, den er i koden.


Nederst i Ark1 er der en kopi af koden fra mit "store ark".

Her har jeg prøvet at definere en Multi Range, for at splitte koden op.


Der er en REM-linje i både det Lille område og Store område i koden.

REM-linjerne er original koderne, der laver BUG.


Under de to REM-linjer er koden, jeg har prøvet at lave.

Den skal definere r1-r2 (lille omåder) og r3-r4 (stort område).


Men jeg kan ikke gennemskue, hvordan det skal laves.

Jeg håber at få lidt hjælp.


Mvh.

Ib
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top



Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 27.Jan.2019 kl. 17:53
Hej Forum.

Jeg løste problemet ved, istedet for at prøve at lave Multi Range, delte jeg koden op ved at bruge AND.
    On Error Resume Next
    If Intersect(Target, Sheets("Forside").Range("G5:K11, G30:K36, G55:K61, G80:K86, G105:K111, G130:K136, G155:K161, G180:K186, G205:K211, G230:K236, G255:K261, G280:K286, G305:K311, G330:K336, G355:K361, G380:K386, G392:K398")) Is Nothing _
    And Intersect(Target, Sheets("Forside").Range("D17:M23, D42:M48, D67:M73, D92:M98, D117:M123, D142:M148, D167:M173, D192:M198, D217:M223, D242:M248, D267:M273, GD292:M298, D317:M323, D342:M348, D367:M373, D392:M398")) Is Nothing Then
        oPrev.FormatConditions.Delete
    End If
Mvh.
Ib
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 709 		Direkte link til dette indlæg Sendt: 05.Feb.2019 kl. 09:31
Du kunne også have defineret et navngivet område, der bestod af de enkelte, adskilte områder.
Så skal du ikke rette i koden, hvis området skal udvides eller indsnævres.

If Intersect(Target, Sheets("Forside").Range("MitOmråde") ....
Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652 		Direkte link til dette indlæg Sendt: 07.Feb.2019 kl. 08:37
Hej Max.

Hvis jeg forstår dig ret, er det netop det jeg gjorde i den første kode.
En masse små områder "G5:K11, G30:K36" osv.
Problemet er, når koden komme ud over en vis længde eller områderne over et vist antal, laver den BUG.

Jeg har det samme problem i en anden kode, jeg måske skriver om lidt senere.
Lige nu har jeg ligget brak siden fredag aften med lunebetændelse og febervildelse.

Jeg har ikke spist eller sovet siden fredag - Det lyder voldsomt, men er rent faktisk sandt.
Når jeg var lige ved at falde i søvn, dukke et virtuelt Regneark op på "skærmen".
Det indeholdte nogle koder, jeg skulle prøve at løse.
Spændende, men det forhindrede jeg fik sovet og jeg kunne ikke holde det ude af hovedet - Det poppede bare op i febervildelsen.

Det sluttede heldigvis onsdag, da jeg fik nogle sovepiller af lægen.

Lige nu, er jeg total udmattet bare ved at skrive denne tekst.
Jeg skriver konstant fejl og alt foregår i slowmotion, så jeg vil finde sofaen og tage en slapper Embarrassed

Mhv.
Ib
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk