Datavalidering af beregnede værdier.

Hvilken beregning har du sat op nu? Og hvad ønsker du at foretage dig?

Jeg har tre katogorier af timeantal der skal udregnes. Dette gøres udfra to kolonner med henholdsvis start og sluttidspunkt, og en kontrolcelle der angiver hvilken en hvilken katori timerne tilhører.

Jeg har så et andet ark, der angiver hvor mange timer af hver kategori der er til rådighed.

Det jeg gerne vil have er en kontrolfunktion hvor der kommer en boks op, hvis antallet af timer i en af kategorierne overstiger det antal der er til rådighed.

Jeg har lavet en datavalidering, men den virker kun hvis jeg indtaster timetaller manuelt, den validerer ikke på værdien, når den udregnes automatisk.

Håber det forklarer mit problem lidt bedre.

Datavalidering fungerer udelukkende på data, der indtastes i en celle.

Fungerer således ikke på formler og på data, der kopieres til en celle.

Jeg havde det godt på fornemmelsen. Øv.

Har du et godt bud på hvordan jeg så kan få en advarsel ved et for stort timeantal i de forskellige rubrikker?

VBA kan sikkert klare det..

Ja, det kan klares via VBA (nødvendigt hvis du skal have en boks op, som den der kommer ifm. en datavalidering). Alternativt kan du lave en betinget formattering, således at en celle eller et celleområde f.eks. markeres med rødt (eller der anvendes en anden formattering efter dit eget valg).

Jeg har siddet og leget lidt med VBA, men kan kun finde ud af at oprette dem som macroer, altså indspille handlinger.

Men hvis i siger det kan lade sig gøre på den måde, må jeg jo kigge lidt mere på det.

Mange tak for hjælpen.

lidt inspiration:
Const celleDerTestes = "$J$2"              'justeres
Const celleMedRådighed = "$G$2"            'justeres
Const meddelelseHvisEjTilRådighed = "Det til rådighed værende er overskredet"  'justeres
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = celleDerTestes Then
        If Target.Value > Range(celleMedRådighed).Value Then
            MsgBox meddelelseHvisEjTilRådighed
        End If
    End If
End Sub

Det ser ud som om at det ville kunne løse mit problem. Jeg ved bare slet ikke nok om VBA til, at jeg kan finde ud af ligge den ind i mit ark.

Jeg skal vist på et kursus i VBA.

Ok:

- Kopier koden fra #8
- Højreklik på det relevante ark
- Vis programkode
- Indsæt koden m/Ctrl+v
- Gem & luk
- Prøv ..

Nu funger det vist. Mange tak for hjælpen;)

Hvilken løsning anvendte du?
Hvem vil du give point?

og så velkommen til Eksperten....

Jeg havde helt glemt det emd point. Undskyld, og mange tak for velkomsten;)

Prøver lige om jeg kan hitte ud af at give de der point.

Jeg kan ikke finde ud af at give point, hvordan er det lige jeg gør det?

Ok - jeg lægger et svar. Du afviser dine egne svar (det er kun forslagsstillere, der lægger svar eller kommentar). Du skal som opgavestiller kun kommentere og acceptere svar, hvis de kan anvendes.