jelleverslype
Nieuwe gebruiker
- Lid geworden
- 28 mrt 2014
- Berichten
- 2
beste,
bij het schrijven van een stuk programma wil volgende code de gewenste bewerking niet doen:
waar er staat "If Worksheets("Sheet4").Cells(20, 4).Value = "5" Then" als ik in de cel D20 iets invul in tabblad 4 gebeurt er niets.
Maar als ik een 5 typ in cel D20 in tabblad 1 (waar de code is geschreven) voerd hij de bewerking wel uit.
ik heb al vanalles geprobeerd maar hij kijkt nooit naar de waarde in tabblad 4
hopelijk kan iemand me verder helpen.
De code staat hieronder.
MVG Jelle
[ code ]Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cell As Range
Dim SHandles(4) As Long 'parameter value
Dim Values() As Variant 'return value
Dim Errors() As Long 'return value
Dim Qual As Variant 'return value
Dim TS As Variant 'return value
Dim i As Integer
On Error GoTo haveError
If Worksheets("Sheet4").Cells(20, 4).Value = "5" Then
'save ServerHandles
SHandles(1) = MyOPCItems(1).ServerHandle
SHandles(2) = MyOPCItems(2).ServerHandle
SHandles(3) = MyOPCItems(3).ServerHandle
SHandles(4) = MyOPCItems(4).ServerHandle
Call MyOPCGroup.SyncRead(OPCCache, 4, SHandles, Values, Errors, Qual, TS)
'fill the cells with the read values
For i = 1 To 4
Worksheets("Sheet3").Cells(Range("A2").Value, i) = Values(i) 'column "read"
Worksheets("Sheet3").Cells(Range("A2").Value, i + 5) = Qual(i) 'column "quality"
Worksheets("Sheet3").Cells(Range("A2").Value, i + 10) = TS(i) 'column "timestamp"
Next i
End If
Application.EnableEvents = True
Exit Sub
haveError:
MsgBox Err.Description
Application.EnableEvents = True
End Sub[ /code ]
bij het schrijven van een stuk programma wil volgende code de gewenste bewerking niet doen:
waar er staat "If Worksheets("Sheet4").Cells(20, 4).Value = "5" Then" als ik in de cel D20 iets invul in tabblad 4 gebeurt er niets.
Maar als ik een 5 typ in cel D20 in tabblad 1 (waar de code is geschreven) voerd hij de bewerking wel uit.
ik heb al vanalles geprobeerd maar hij kijkt nooit naar de waarde in tabblad 4
hopelijk kan iemand me verder helpen.
De code staat hieronder.
MVG Jelle
[ code ]Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cell As Range
Dim SHandles(4) As Long 'parameter value
Dim Values() As Variant 'return value
Dim Errors() As Long 'return value
Dim Qual As Variant 'return value
Dim TS As Variant 'return value
Dim i As Integer
On Error GoTo haveError
If Worksheets("Sheet4").Cells(20, 4).Value = "5" Then
'save ServerHandles
SHandles(1) = MyOPCItems(1).ServerHandle
SHandles(2) = MyOPCItems(2).ServerHandle
SHandles(3) = MyOPCItems(3).ServerHandle
SHandles(4) = MyOPCItems(4).ServerHandle
Call MyOPCGroup.SyncRead(OPCCache, 4, SHandles, Values, Errors, Qual, TS)
'fill the cells with the read values
For i = 1 To 4
Worksheets("Sheet3").Cells(Range("A2").Value, i) = Values(i) 'column "read"
Worksheets("Sheet3").Cells(Range("A2").Value, i + 5) = Qual(i) 'column "quality"
Worksheets("Sheet3").Cells(Range("A2").Value, i + 10) = TS(i) 'column "timestamp"
Next i
End If
Application.EnableEvents = True
Exit Sub
haveError:
MsgBox Err.Description
Application.EnableEvents = True
End Sub[ /code ]
Laatst bewerkt: