Why not slow down and wait for a response.

try turning on events as I suggested.

if you want a debug.print statement, just add it

Debug.Print Target.address

--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote:

How do I get a debug.print statement to work within this. That would help
me figure out what's going on.

"witek" wrote:

Are you sure that excel recalculated formula?
Try to add .Calculate before .Copy
or don't disable events.



Barb Reinhardt wrote:
This is a continuation of another thread. That was getting a bit unweildy.

I have the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub

If Not Intersect(Target, Range("A1:A20")) Is Nothing Then
Application.EnableEvents = False
If Target.Value < "" Then
Target.Offset(0, 1).Resize(1, 4).FormulaR1C1 = _
"=VLOOKUP(RC1,DBExtract,MATCH(R1C,DBExtract!R1,0), FALSE)"
Target.Offset(0, 1).Resize(1, 4).Copy
Target.Offset(0, 1).Resize(1, 4).PasteSpecial xlValues
Else
Target.Offset(0, 1).Resize(1, 4).Value = ""
End If
Application.EnableEvents = True
End If
End Sub

I'm not seeing anything being displayed in the adjacent cells. What have I
done wrong. It worked at one time (before I added the IF TARGET.value =
""), but now I can't even get it to work at all.

Thanks,
Barb Reinhardt