ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Why won't this simple VDB script work on Excel 2002. (https://www.excelbanter.com/excel-programming/362687-why-wont-simple-vdb-script-work-excel-2002-a.html)

Calle

Why won't this simple VDB script work on Excel 2002.
 
I made a script with help from members on this forum in excel 2003. Now I
sent it to my boss and it doesnt work on his machine. I have also tried it
now on excel 2002 and it wont work.

What am I doing wrong? I get an error message that it can't compile and that
it can't find project or library...
Script:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRng As Range

Set myRng = Me.Range("I16,I19,E27,G24")

With Target
If .Cells.Count 1 Then Exit Sub
If Intersect(.Cells, myRng) Is Nothing Then Exit Sub
If .Value = "" Then Exit Sub

Select Case LCase(.Address(0, 0))
Case Is = "i16"
If LCase(.Value) = LCase("klicka här fär utrustning") Then
'skipit
Else
If LCase(.Value) = LCase("rensa val") Then
Selection.Offset(1, -2).ClearContents
Selection.Offset(0, 0).ClearContents
Else
Application.EnableEvents = False
Me.Range("G17").Value = Me.Range("G17").Value & .Value
..ClearContents
Application.EnableEvents = True
End If
End If
Case Is = "i19"
If LCase(.Value) = LCase("klicka här fär utrustning") Then
Else
If LCase(.Value) = LCase("rensa val") Then
Selection.Offset(1, -2).ClearContents
Selection.Offset(0, 0).ClearContents
Else
Application.EnableEvents = False
Me.Range("G20").Value = Me.Range("G20").Value & .Value
..ClearContents
Application.EnableEvents = True
End If
End If
Case Is = "e27"
If LCase(.Value) = LCase("ej tröskel") Then
Selection.Offset(1, 0).ClearContents
Selection.Offset(2, 0).ClearContents
End If
End Select
End With
End Sub


Calle

Why won't this simple VDB script work on Excel 2002.
 
I mean VBA script


Bob Phillips

Why won't this simple VDB script work on Excel 2002.
 
Go to ToolsReferences in the VBIDE on his machine, and if there are any
checked items with MISSING in it, uncheck them.

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"Calle" wrote in message
...
I mean VBA script




Calle

Why won't this simple VDB script work on Excel 2002.
 
thx, it worked. that was the most insane bug ever....

Calle

Bob Phillips

Why won't this simple VDB script work on Excel 2002.
 
It's could be argued that it is not a bug, you had a type library referenced
that your boss didn't, so it couldn't link it. Though why that stops things
like Mid and Left work I suppose constitutes a bug.

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"Calle" wrote in message
...
thx, it worked. that was the most insane bug ever....

Calle





All times are GMT +1. The time now is 07:28 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com