Hej!
Jag är i behov av att göra inmatningskontroll i en Excelfil som tyvärr måste sparas i version 95. Dess värre är det ju så att alla fina verktyg för inmatningskontroll dök upp i Excel97 och därför är jag hänvisad till att göra det mha ett VBA-makro.

Det jag behöver är en kontroll som utförs när man lämnar en cell oavsett vilket sätt man gör det på. Beroende på resultat skall ett meddelande visas men det kan jag fixa själv bara jag får hjälp med själva kontrollen.


Är det någon som kan hjälpa mig??

Mvh Daniel S

Daniel,

Följande ger dig vägledning i att lösa problemet:

<code>
Sub Auto_Open()
ThisWorkbook.Sheets("Blad1").OnEntry = "Control"
End Sub

Sub Auto_Close()
ThisWorkbook.Sheets("Blad1").OnEntry = ""
End Sub

Sub Control()
Dim rnTarget As Range

Set rnTarget = Range("A1")

If rnTarget.Value = "" Then Exit Sub

Select Case rnTarget.Value
Case Is > 10
MsgBox "Värdet är fel - V v ange ett nytt"
rnTarget.Activate
Case Is < 10
'Din kod
Case Is = 10
'Din kod
End Select

End Sub
</code>

Fungerar också i 97 / 2000 / 2002 ;-)

Mvh
XL-Dennis