Worksheet Change event VB

[snap88]

This is first time I've used VB since college many years ago.

I'm trying to create a spreadsheet for loging asset use at work.

See below for example

NAME	SCANNER ID	TIME OUT	SCANNER ID	TIME IN

<TBODY>
</TBODY>

I've currently got the sheet set up so when data is input to SCANNER ID a timestamp appears in TIME OUT this works great.

I want to use the same change event idea, so I can book the scanners back in.

The code I have is as follows,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
With Cell
If .Column = Range("B:B").Column Then
Cells(.Row, "C").Value = DateValue(Date) & " " & TimeValue(Now())
End If
End With
Next Cell
End Sub

​

I thought I could just copy this and insert it again with Range / Row Changed, but excel keeps telling me off.

Any help would be great!!!

Chris

 

[VoG]

You can only have one Worksheet_Change per sheet so you'll need to combine them.

 

[snap88]

I thought that. How would I combine them?

 

[VoG]

Post the code for both of them using code tags

[code]
code goes here
[/code]

 

[snap88]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cell As Range
For Each Cell In Target
With Cell

If .Column = Range("B:B").Column Then
Cells(.Row, "C").Value = DateValue(Date) & " " & TimeValue(Now())

End If
End With
Next Cell

End Sub

That's what I have so far for the first set of columns.

 

[VoG]

Try like this

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cell As Range
For Each Cell In Target
    With Cell
    
    If .Column = Range("B:B").Column Then
        Cells(.Row, "C").Value = DateValue(Date) & " " & TimeValue(Now())
    ElseIf .Column = Range("D:D").Column Then
        'code here
    End If
    End With
Next Cell

End Sub

 

[snap88]

Thanks, that works perfectly.