kriterier i excel -

I ThisWorkbook modulet

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Ark1" Then  ' ret til dit ark
If RekNR = "" Then                  ' ret til dit cellenavn
MsgBox " Bilnummer skal indtastes"
Cancel = True
Exit Sub
End If
If BarnetsNavn = "" Then              ' ret til dit cellenavn
MsgBox " Barnets navn skal indtastes"
Cancel = True
Exit Sub
End If
If CPRnummer = "" Then                  ' ret til dit cellenavn
MsgBox " CPR nummer skal indtastes"
Cancel = True
Exit Sub
End If
End If

End Sub

hmm kan ikke helt få det til at fungere der sker slet ingen ting!!

BeforePrint, aktiveres også ved vis udskrift, så du behøver ikke at printe.

Jeg lurede lidt på dine navne, hvis det er et navngivet område, kan jeg ikke forstå at du får lov til at have mellemrum i navnet.

Må jeg se den kode, du er kommet frem til nu. ?

Kabbak den er noget lang fordi den hænger sammen med andre - Kan jeg evt. maile dig det??

ja.sendtil#kabbak@tiscali.dk

fjern sendtil#

er det for svær at løse eller

Hej, her kommer koden for biler, det med børn håber jeg at du selv kan finde ud af, ved at kikke på min kode.

Som du kan se har jeg lagt koden øverst i din Sub opdaterkundedata.


Sub opdaterkundedata()
Dim Antal As Byte
Antal = 0

BilAbbNormal:
For Each C In Range("D26:D29") ' Normal abb.
  If C.Value <> "" Then
      For Each CE In Range("B65:B69") ' hvis en af felterne med reg.nr er udfyldt, så ok
        If CE.Value <> "" Then
        GoTo BilSuper
        End If
      Next CE
    MsgBox "Der skal indtastes Registrerings nummer på bil(er)"
    Exit Sub
  End If
Next C

BilSuper:
  If Range("D30").Value <> "" Or Range("D31").Value <> "" Then ' BilSuper og BilSuper kombirabat
      For Each CE In Range("B65:B69") ' tjekker om der er mere end 1 bil
          If CE.Value <> "" Then
          Antal = Antal + 1
          End If
        Next
    If Antal = 0 Then
      MsgBox "Der Skal indtastes registrerings nummer på en' bil"
        Exit Sub
  Else
        MsgBox "Der må kun indtastes registrerings nummer på en' bil" & vbLf _
        & "Når der er valgt Bil Super"
        Exit Sub
    End If
End If


DataOK:

bare helt kanon virker perfekt nu - Nu vil jeg forsøge selv at lave de andre, men det skulle jo ikke være så svært!!

Tak for point ;-))

der er lige en fejl i Bil super, den kom med fejl hvis der kun var valgt 1.

Det er rettet her.

BilSuper:
  If Range("D30").Value <> "" Or Range("D31").Value <> "" Then ' BilSuper og BilSuper kombirabat
      For Each CE In Range("B65:B69") ' tjekker om der er mere end 1 bil
          If CE.Value <> "" Then
          Antal = Antal + 1
          End If
        Next
    If Antal = 0 Then
      MsgBox "Der Skal indtastes registrerings nummer på en' bil"
        Exit Sub
  ElseIf Antal > 1 Then
        MsgBox "Der må kun indtastes registrerings nummer på en' bil" & vbLf _
        & "Når der er valgt Bil Super"
        Exit Sub
    End If
End If