Datavalidering i forhold til anden celle

=E8<=D8
Data> datavalidering >
Vælg brugerdefineret i tillad og sæt formlen ind i formelfeltet

eller
=E8>=D8
hvis du mener det omvendt.

Datavalideringen skal være på D8

Der kommer bare ingen popup! Måske er det, fordi det hænger sådan sammen:
a / b = c
hvis c < d skal der komme en popup
Mèn a og b ændres i andre faner. Er det derfor der ikke sker noget?

Jeg mener at datavalidering kun virker, hvis cellen er aktiv, altså når man har klikket ind i den, og ikke hvis den skifter værdi p.g.a. en formel.

Konklusion: det virker ikke i dette tilfælde?

Læg denne kode på det pågældende arks kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("a1").Value < Range("a2").Value Then
        MsgBox "A1 er minde end A2", vbonkonl + vbExclamation
    End If
End Sub

Ret cellerne til de, du vil teste indbyrdes.

Der sker ikke noget :-( JEg tror jeg opgive, ikke så slemt, men regnede ikke med, at det ville være så svært.

JOOOOO DET VIRKER!!!

Hvilket virker :-)

Eller, det virker, hvis jeg retter tallene i samme ark, men ikke hvis jeg retter dem i andre ark, hvilket er meningen... :-S

Dit virker ikrons, men ikke helt endnu...

Hvad mangler?  Måske kan jeg hjælpe.

Og så skal jeg lige lære atv læse inden ad :-(

Arket reagerer kunm, hvis du retter i det ark, som indeholder koden.

Hvis det kun er et enkelt ark, du retter i, skal koden ligge på dette arks kodemodul og se sådan ud:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Sheets("ark1").Range("a1").Value < Sheets("Ark1").Range("a2").Value Then
        MsgBox "A1 er mindRe end A2", vbOKOnly + vbExclamation
    End If
End Sub


Er der flere ark, kan du lægge den på kodemodulerne i hvert af arkene.

Ret Ark1 til navnet på det ark, hvor cellerne du tester på findes.

Eller endnu nemmere - jeg skal lige vågne først:

Læg koden på det oprindelige ark, altså det hvor cellerne du sammenligner, findes, og brug Calculate hændelsen i stedet, altså

Private Sub Worksheet_Calculate()
  If Range("a1").Value < Range("a2").Value Then
        MsgBox "A1 er mindRe end A2", vbOKOnly + vbExclamation
    End If
End Sub

Tak skal du have for hjælpen, meget godt!

Velbekomme ;-)