Notifikationer

Markér alle som læst Log ud

Lauraann Nybegynder

09. maj 2011 - 13:09 Der er 2 kommentarer og
1 løsning

Automatisk slet af betinget formattering

Jeg har et excelark hvor hver række i excelarket er et specifikt projekt på mit arbejde. Cellerne i rækken indeholder bl.a. felter med datoer med betinget formattering der farver feltet rødt når deadline nærmer sig, så jeg ved at jeg skal huske at arbejde på projektet.

Når projektet er slut ville jeg gerne kunne slette alle disse farvekoder, så al tekst står tilbage som sort. Fx ved at jeg kan skrive "finish" i den sidste celle i rækken og at Excel derved automatisk sletter betinget formler samt andre farver på den specifikke række.

N.b. Jeg har excel 2007 på engelsk.

Tak for hjælp!

Synes godt om

jens48 Ekspert

09. maj 2011 - 23:16 #1

Denne makro kan slette formatteringen i de rækker hvor der står "Finished" (i eksemplet i kolonne F)

Sub CondFormat()
Dim LastRow As Long
LastRow = [A65536].End(xlUp).Row
For i = 1 To LastRow
If Cells(i, 6) = "Finished" Then '6 bestemmer hvilken kolonne der testes for "Finished" i
With Rows(i & ":" & i).EntireRow
.FormatConditions.Delete
End With
End If
Next i
End Sub

Synes godt om

Lauraann Nybegynder

10. maj 2011 - 12:12 #2

Hej Jens48 - tak det virker!

Dog skal jeg skrive Finish og så vælge "run macro" førend den sletter. Kan Excel ikke køre Macroen hele tiden?

Synes godt om

jens48 Ekspert

10. maj 2011 - 22:29 #3

Prøv med:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F:F")) Is Nothing Then
Exit Sub
Else
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = [A65536].End(xlUp).Row
For i = 1 To LastRow
If Cells(i, 6) = "Finished" Then '6 bestemmer hvilken kolonne der testes for "Finished" i
With Rows(i & ":" & i).EntireRow.FormatConditions.Delete
End With
End If
Next i
Application.ScreenUpdating = True
End If
End Sub

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Beregn alder (i år, måneder og dage) på personer født før år 1900. Af Balar Seir i Excel	5	11/11/202509:38	13/11/202522:09
Flere ark (tabeller) samlet under et ark i en tabel Af Peder Lund Nielsen i Excel	12	06/11/202522:17	08/11/202509:44
Afskrivningskurve Af tummes1983 i Excel	5	31/10/202513:28	11/11/202521:37
Finde mindsteværdi som er større end 00:00:00 Af Peder Lund Nielsen i Excel	6	20/10/202511:14	20/10/202518:52
HVIS + LOPSLAG til flere værdier Af SQF i Excel	4	09/10/202510:50	14/10/202516:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS