Advarsel ved manglende værdi i celle.

Hej Du kan ligge denne kode ind under thisworkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = tjek
   
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = tjek
End Sub


Function tjek() As Boolean

tjek = False

For Each c In Range("A1:A10")
    If c = Empty Then
        MsgBox ("felt er ej udfyldt " & c.Address)
        tjek = True
    End If
Next
End Function

lidt bedre:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = Tjek
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = Tjek
End Sub


Function Tjek() As Boolean
Tjek = False
For Each c In Range("A1:A46")
    If c = Empty Then
        MsgBox ("Felt er ej udfyldt: " & c.Address)
        Tjek = True
        Exit Function
    End If
Next
End Function

Tusind tak for det...det var lige hvad jeg søgte. Lægger du lige et svar, så du kan få dine point?

Velbekomme :-)

Hmm...helt klar var den ikke endnu...hvad nu hvis cellerne ikke ligger i et interval? Altså A1, B4, D10 osv.?

Ja, så her vi nød til at lave en tabel de står.
Kan du prøve at liste dem allesammen op?

således:
"A1:A5","B1","D10"

Der er da vist noget galt med mit tastatur :-)

Ja, så er vi nød til at lave en tabel hvor de står i.