Kontrollere at celle er udfyldt inden udskrift

OK

Marker alle de celler der skal udfyldes, navngiv dem som "Udfyldes", det gøres der hvor du kan se celleadressen

Koden herunder skal i ThisWorkbook modulet.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Formular" Then    ' ret til den side der skal udskrives
        For Each C In Range("Udfyldes")
            If IsEmpty(C) Then
                MsgBox "Celle " & C.Address & " Er ikke udfyldt," & vbCrLf & " udfyld den og prøv igen"
                Cancel = True
                Exit Sub
            End If
        Next
    End If
End Sub


NB husk at rette
ActiveSheet.Name = "Formular"
til navnet på dit ark

AWESOME! Point til kabbak :D

Og dog - Kan jo ikke give flere felter det samme navn? :O Når jeg skriver navnet, hopper den jo bare til den første jeg kaldte "udfyld"..

Men kan man skrive celle pos. ind manuelt er det også ok? F.eks. c5, h4 osv.?

Navnet er et område, kan også være en enkelt celle, når det er et område, gennemløber man cellerne i en for next løkke.

"Når jeg skriver navnet, hopper den jo bare til den første jeg kaldte "udfyld".."
ja, men resten er også markeret ;-))

Nu kan du farvelægge cellerne, dem som de skal taste ind i, farven fjernes ved udskrift.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Formular" Then    ' ret til den side der skal udskrives
        For Each C In Range("Udfyldes")
            If IsEmpty(C) Then
                MsgBox "Celle " & C.Address & " Er ikke udfyldt," & vbCrLf & " udfyld den og prøv igen"
                Cancel = True
                Exit Sub
            End If
        Next
        Range("Udfyldes").Interior.ColorIndex = xlNone ' fjerner farven inden udskrivning
    End If
End Sub

eksempel her
http://gupl.dk/716859/

Vil du uddybe hvordan jeg navngiver flere celler? Selvom jeg markerer flere, farver dem, og skriver udfyldes - er det kun den sidste jeg har markeret der får det navn?

Muligvis det forkerte sted jeg navngiver? Bruger feltet TV for fx?

Klik ind på første celle,hold CTRL nede, klik så enkeltvis på de celler der skal udfyldes.
Til sidst klikkes der hvor du kan navngive, slip CTRL, skriv navnet, tryk ENTER.

så skulle den være der

Desværre ikke :(

Bum . Fandt ud af det - Formler -> navnstyring -> tilføj, marker dem :D

Du er stadig dagen helt! Takker!

velbekomme

Lige et sidespørgsmål - Når nu jeg sender det her dokument til en vil den vel ikke afvikle koden vel? Er der en metode til at man kun kan bruge arket hvis de vil afvikle koden?

Jo den vil afvikle, hvis vedkommende har godkendt at makroer må køres, det er jo en sikkerheds opsætning i Excel