[Løst] Fargelegge aktiv celle

[Trelkrok]

Hei, Office 365, norsk.

 

Jeg bruker følgende kode og betinget formatering for og markere raden det jobbes på. (Hele raden blir fargelagt)

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

Sheets("Grunnoplysninger").Cells(2, 7) = ActiveCell.Row

 

End Sub

 

 

Betinget formatering formel er:

=RAD()=Grunnoplysninger!$G$2

 

Jeg ønsker i tillegg at den aktive cellen skal bli grønn når markøren står i en celle.

NB! Dette må ikke slette andre farger eller kantlinjer

 

Er dette mulig?

 

På forhånd takk

 

Mvh

RA

[trn100]

Prøv å lime inn denne koden i "ThisWorkbook":
 

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

 

Static xLastRng As Range

 

On Error Resume Next

 

Target.Interior.ColorIndex = 4

xLastRng.Interior.ColorIndex = xlColorIndexNone

Set xLastRng = Target

 

End Sub

[Trelkrok]

trn100, denne virker ikke. Sletter fargen på fargelagte celler og blinker bare grønt i den cellen som var valgt før ny cellevalg

Endret 29. mai 2019 av Trelkrok

[trn100]

Snodig, det virket her!? Da kan det være noe jeg ikke har i test-arket mitt som du har i ditt... Da er jeg rådløs dessverre.

[Trelkrok]

Snodig, det virket her!? Da kan det være noe jeg ikke har i test-arket mitt som du har i ditt... Da er jeg rådløs dessverre.

Mulig det, men TAKK for forsøket

[Trelkrok]

trn100, koden din virker fint på en bok som ikke inneholder farger. :-)

 

Prøv og fargelegg arket så ser du at fargen blir borte 

 

Mvh

RA

[trn100]

Ser det nå ja. Betinget formatering overstyrer koden, og hvis cellene ellers også har ulike farger i utgangspunktet og du vil ha de tilbake etter å ha valgt en annen celle i en annen rad er dessverre dette et stykke over min kunnskap på området.

 

Selv med kode og om du har ulike farger i forskjellige kolonner forekommer det meg at dette kan bli vanskelig. Hvis f.eks. kolonne A er gul, kolonne B er rød og kolonne C er blå i utgangspunktet, må en eventuell kode lagre fargene i variabler om jeg ikke tenker feil? (Kommer sikkert noen eksperter som henger meg for dette! ;-))

Du kan jo legge til i koden din Sheets("Grunnoplysninger").Cells(2, 8) = ActiveCell.Column og kanskje bruke den til å utvide din betingede formatering, men har ikke helt funnet ut hvordan enda.

Det beste er nok å finne en kode som ikke bruker betinget formatering.

Endret 29. mai 2019 av trn100

[Trelkrok]

Takk igjen trn100

 

Ved bruk av denne makroen og betinget formatering få jeg markert rad og kolonne men kunne tenkt meg og fått markert bare raden og aktiv celle.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

  Sheets("Grunnoplysninger").Cells(2, 7) = ActiveCell.Row  'finner aktiv rad

  Sheets("Grunnoplysninger").Cells(3, 7) = ActiveCell.Column 'finner aktiv kolonne

 

     'Sheets("Grunnoplysninger").Cells(4, 7) = ActiveCell.Address 'finner aktiv celle

End Sub

 

 

Betinget formatering er:

=RAD()=Grunnoplysninger!$G$2

=KOLONNE()=Grunnoplysninger!$G$3

 

Hvis jeg legger til  'Sheets("Grunnoplysninger").Cells(4, 7) = ActiveCell.Address i makroen får jeg fram hvilken celle som er aktiv men hjelper lite da jeg ikke finner ut om det lar seg gjøre og få aktiv celle farget.

 

Får vente i spenning trn100, sikkert noen som har en løsning hvis det lar seg løse.

 

Mvh

RA

[Trelkrok]

Hei igjen, da har jeg funnet en løsning på dette. (tror jeg)

Legger ved eksempel hvis det er interesse for det, tar gjerne imot kommentarer.

 

Forklaring:

For at dette skal virke MÅ Koden under settes inn i fanen ‘’Utfylling’’ og lagres som makroaktivert

Det er brukt betinget formatering for og få fram ønsket farger.

NB! Gjør oppmerksom på at fanen ‘’Hjelpeark 1’’ inneholder matriseformler så disse må endres ved behov.

I fanen ‘’Grunnoplysninger’’ skal det ikke endres noe.

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  

  Sheets("Grunnoplysninger").Cells(1, 2) = ActiveCell.Row  

  Sheets("Grunnoplysninger").Cells(2, 2) = ActiveCell.Column   

   Sheets("Grunnoplysninger").Cells(3, 2) = ActiveCell.Address

  

End Sub

 

Fargelegge rad kolonne og cell.xlsx