CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Hvorfor virker det ikke mere Af mefa i Excel	3	30/08/202417:14	30/08/202418:24
Hjælp til LOPSLAG Af golferscaddie i Excel	3	30/08/202411:17	I dag 06:53
Hvis formular Af Malou i Excel	3	29/08/202415:23	30/08/202413:14
genvejstast Af birdbrain i Excel	3	29/08/202413:18	29/08/202418:21
Hjælp til at fjerne mulighed for scroll Af golferscaddie i Excel	1	28/08/202417:27	30/08/202408:01

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