26. september 2012 - 14:12Der er
17 kommentarer og 1 løsning
Formater hvis betalingsfrist er overskredet og der ikke er betalt
Jeg har en kolonne (A) med betalingsfrist og en kolonne (B) med betalingsstatus.
Jeg vil gerne have en automatisk proces hvor betalingsstatus skifter skriftfarve til rød, hvis betalingsfristen er overskredet og betalingsstatus er "Ikke betalt".
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Skal det VBA: Dim antalRækker As Long, ræk As Long Const startRæk = 2 Public Sub visualiserIkkeBetalt() antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
For ræk = startRæk To antalRækker If Range("A" & ræk) < Now And _ Range("B" & ræk) = "Ikke betalt" Then Range("B" & ræk).Interior.ColorIndex = 3 Else Range("B" & ræk).Interior.ColorIndex = xlColorIndexNone End If Next ræk End Sub Private Sub Worksheet_Activate() visualiserIkkeBetalt End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And IsDate(Target.Offset(0, -1)) = True Then visualiserIkkeBetalt End If End Sub
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.