Pop-up-dims ved nået beløb/km-tal..

Det var nemmere, hvis ikke der var sum nederst.

Denne kode skal i arkets modul.( højreklik på arkfanen, vælg vis programkode )

Koden er lavet efter at i D kolonnen skrives kilometertælleren, og i E sættes et x eller lignende for at der er smurt/skiftet olie.

Der må ikke være sum nederst, jeg har selv regnskab for brændstof, jeg har sum øverst, og så har jeg frosset de øverste rækker.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then    ' trikker på D kolonnen
        Dim Start As Long, Slut As Long
        Start = Range("E65536").End(xlUp).Offset(0, -1).Value    ' Kolonne E, hvor man sætter et X eller lignende ved smøring, og den ser efter km i D kolonnen
        Slut = Range("D65536").End(xlUp).Value  ' sidste indtastning af kilometer tallet i kolonne D
        If (Slut - Start) >= 10000 Then
            MsgBox " du skal have smurt bilen, du har kørt " & (Slut - Start) & " km."
        Else
            MsgBox "der er " & 10000 - (Slut - Start) & " km. til smøring"
        End If
    End If
End Sub

Tak for dit indlæg.. desværre fik jeg det aldrig til at fungere efter hensigten.

Vær rar at afgive et indlæg med et svar, så du kan få tildelt dine point.


Mvh.
Gitte Daphne

hvis ikke du har brugt mit svar, så tag point selv. ;-))

Oki.

Du kunne måske vælge en celle, evt. flette flere celler i toppen af arket, og så skrive formlen: =HVIS(A1>=10000;"10.000 km kørt";"")
Du kunne jo så formatere teksten stort, evt. rød, så ville det ikke være til at overse.

Det er ikke aktuelt længere.. men takker for responsen.


Mvh.
Gitte Daphne

Sorry, havde ikke lige set at det var et gammelt spørgsmål.  :-)

Det går nok :-)