Validerings problem

Du kan evt. gøre noget lignende dette:

1) Højreklik på arkets faneblad og vælg 'View Code'
(hedder vist Vis programkode.. på dansk)
2) Paste denne kode derind

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        Application.EnableEvents = False
        Select Case Target.Value
            Case Is <= 50
                If Not UCase(Range("A1").Value) = "A" Then
                    MsgBox "Når 'A1' = A kan du kun indtaste et beløb <= 50", _
                        vbExclamation + vbOKOnly, "Systeminformation"
                    Target.Value = ""
                    Target.Select
                End If
            Case Is <= 100
                If Not UCase(Range("A1").Value) = "B" Then
                    MsgBox "Når 'A1' = B kan du kun indtaste et beløb <= 100", _
                        vbExclamation + vbOKOnly, "Systeminformation"
                    Target.Value = ""
                    Target.Select
                End If
            Case Is <= 200
                If Not UCase(Range("A1").Value) = "C" Then
                    MsgBox "Når 'A1' = C kan du kun indtaste et beløb <= 200", _
                        vbExclamation + vbOKOnly, "Systeminformation"
                    Target.Value = ""
                    Target.Select
                End If
            Case Else
                MsgBox "Du kan kun indtaste beløb under 200", _
                    vbExclamation + vbOKOnly, "Systeminformation"
        End Select
        Application.EnableEvents = True
    End If
End Sub

Brug Datavalidering I B1

Klik ind på B1

Data > Datavalidering fra menulineien

Under indstilleinger vælg helttal

Data: Mellem

Mindste: =HVIS(A1="A";1;HVIS(A1="B";51;HVIS(A1="C";101;"Fejl")))

Maksimum : =HVIS(A1="A";50;HVIS(A1="B";100;HVIS(A1="C";200;"Fejl")))


Find selv på noget til meddelse og fejlmeddelese

Rigtigt kabbak - det er noget nemmere

Hej

Har forsøgt "kabbak" metoden, men får følgende meddelse:
"A named range you specified cannot be found" ?

Ideen er at i kolonne A - vil jeg uvilkårlig kunne taste værdi A - B - C som jeg har lyst - kolonne B skal kunne validere værdi og sætte begrænsninger som:
A 0-50 - B 51-100 - C 101-250 o.s.v

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Application.EnableEvents = False
          If Target.Offset(0, -1) = "A" Or Target.Offset(0, -1) = "a" Then
            If Target > 50 Then
                    MsgBox "Når 'A" & Target.Row & "' =" & Target.Offset(0, -1) _
                    & " kan du kun indtaste et beløb mellem 1 og 50", _
                        vbExclamation + vbOKOnly, "Systeminformation"
                    Target.Value = ""
                    Target.Select
                End If
                End If
         
                If Target.Offset(0, -1) = "B" Or Target.Offset(0, -1) = "b" Then
                If Target < 51 Or Target > 100 Then
              MsgBox "Når 'A" & Target.Row & "' =" & Target.Offset(0, -1) _
              & " kan du kun indtaste et beløb mellem 51 og 100", _
                        vbExclamation + vbOKOnly, "Systeminformation"
                    Target.Value = ""
                    Target.Select
                End If
                End If
       
              If Target.Offset(0, -1) = "C" Or Target.Offset(0, -1) = "c" Then
              If Target < 101 Or Target > 250 Then
                MsgBox "Når 'A" & Target.Row & "' =" & Target.Offset(0, -1) _
                & " kan du kun indtaste et beløb mellem 101 og 250", _
                        vbExclamation + vbOKOnly, "Systeminformation"
                    Target.Value = ""
                    Target.Select
                End If
                End If
          Application.EnableEvents = True
  End If
End Sub

Det er en modifiseret udgave af flemmingdakls kode.


Højreklik på din arkfane, vælg vis programkode, sæt den ind der.

Det kan også gøres ved at sætte kabbak's formler ind i hver sin celle, og lade datavalideringen henvise til dem - det virker fint...... formlerne kan jo bare gemmes af vejen.... evt med hvid skrift.......

Tak for det - det var det jeg skulle bruge

Jeg smider er svar, hvis du kunne bruge mit, men giv også flemmingdahl nogen eller alle.

Svar

tak for point ;-))