Farvelæg række

Det er ikke den hurtigste løsning, da den cykler alle kolonner igennem... kan gøres hurtigere, hvis du f.eks. ved, at du ikke har data/farvede celler fra f.eks. kolonne AA og udad...
(url=https://smartofficedk-my.sharepoint.com/:x:/g/personal/fv_smartoffice_dk/EQ4jRW5FrKNBlaQ_ylwoGbYBojjUZRM1P-15D3fbPQlXTQ?e=XVEQwE) Hent eksempel (/url)

Hent eksempel

Hej Flemming Vadet
Jeg kan desværre ikke se, hvad jeg skal søge i, når jeg logger ind på dit link. Men jeg har lavet noget betinget formatering til de linjer jeg ønsker en anden farve end gul.
Tak for hjælpen

Der ligger kode på/bagved sheet1 på det's selectionchange event - ligesom i sprøgsmålet

Hej
Kan man også få den til at lave en streg over og en streg under den linje står i, eller bare lave en streg over og under linjen man står i?

Ja, det kan du sagtens, men skal den også tage højde for om der er streger i forvejen, så begynder det at blive noget tungt at danse med

Nej den skal ikke tage højde for streger i forvejen

Prøv at downloade eksemplet igen, så er der lidt at kigge på...
Hvis den ikke skal checke for farver - så kan koden blive meget hurtigere

Mange tak Flemming Vadet
Du har ret det er noget tungt. Hvad hvis jeg kun vil have stregerne, og der ikke er noget streger i forvejen? Kan det lade sig gøre kun at lave det fra kolonne A-W, eller bliver det tungere af det?

Hvis vi fjerner farve checket så bliver det hurtigt - prøv at downloade eksemplet igen

Hej igen
Den skal bare indsætte streger i stedet for denne, med farver
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    x = Target.Row
    Cells.Interior.ColorIndex = 0
    Rows(x).Interior.ColorIndex = 6
End Sub

Hej Flemming Vadet
Tusind tak, det er præcist det jeg ønsker mig (nu), dem der sætter mig i arbejde har det meda t skifte mening en gang i mellem :-), men det er jo kun udfordrende :-)
Rigtig god weekend

Lige et spørgsmål mere, er det behov for et Sheet2 til at skrive hvilken linje den står i?

Hvis nu du har farve eller som nu borders andre steder i arket, så fjerner du jo alle farver med din kode
Cells.Interior.ColorIndex = 0
Så jeg har blot brugt en navngiven celle i sheet2 til at holde rækkenummeret på den række som er farvet... således kan jeg fjerne borders eller color for kun den række du sidst have markeret

lRow = WorksheetFunction.Max(1, Application.Names("sheet1_colored_row").RefersToRange)
Set rColorIt = Me.Rows(lRow)

Men det kan gøres på andre måder... du kan skrive til CustomDocProperties så du ikke skal have et ekstra (skjult) ark som hukommelse