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


Definer Multi Range i Sheets(1)

 Besvar Besvar
Forfatter
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15-04-2014
Land: Danmark
Status: Offline
Point: 606
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Ib Hansen Citér  BesvarSvar Direkte Link til dette indlæg Emne: Definer Multi Range i Sheets(1)
    Sendt: 25-01-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 2016 Dk på samme computer.
Bruger dog stadig mest 2010, da jeg syntes 2016 mangler features..
Men sådan er der jo så majet :o)
Til top



Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15-04-2014
Land: Danmark
Status: Offline
Point: 606
Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Ib Hansen Citér  BesvarSvar Direkte Link til dette indlæg Sendt: 27-01-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 2016 Dk på samme computer.
Bruger dog stadig mest 2010, da jeg syntes 2016 mangler features..
Men sådan er der jo så majet :o)
Til top
maxzpad Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 04-08-2016
Land: Danmark
Status: Offline
Point: 451
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér maxzpad Citér  BesvarSvar Direkte Link til dette indlæg Sendt: 05-02-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-04-2014
Land: Danmark
Status: Offline
Point: 606
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Ib Hansen Citér  BesvarSvar Direkte Link til dette indlæg Sendt: 07-02-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 2016 Dk på samme computer.
Bruger dog stadig mest 2010, da jeg syntes 2016 mangler features..
Men sådan er der jo så majet :o)
Til top
 Besvar Besvar
  Del emne   

Skift forum Forum tilladelser Se dropdown

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