Rem Version 2 - 16-09-2009 Rem ---------------------- Const rød = &HC0C0FF Dim bagGrund Const fraKolNr = 2 'B Const tilKolNr = 14 'N Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ræk As Long, kol As Byte ræk = Target.Row kol = Target.Column
If kol > fraKolNr And kol <= tilKolNr Then checkudfyldt ræk, kol - 1 'Target.Address End If End Sub Private Sub checkudfyldt(ræk, kol) For Each cc In Range(Cells(ræk, fraKolNr), Cells(ræk, kol)).Cells If cc.Value = "" Then cc.Cells.Select MsgBox ("Celle skal udfyldes!") cc.Interior.ColorIndex = 3 Exit Sub Else cc.Interior.ColorIndex = Cells(ræk, fraKolNr).Interior.ColorIndex End If Next End Sub
Synes godt om
Ny brugerNybegynder
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.