Hej! Daniel,Inmatningskontroll i Excel95 mha VBA
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 SSv: Inmatningskontroll i Excel95 mha VBA
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