Worksheet change code
Ah yes, thank you.
Todd
-----Original Message-----
Hi Todd
try
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Counter As Long
Dim Location
Counter = Application.WorksheetFunction.CountA(me.Range
("K:K"))
On Error Resume Next
Set myRange = Intersect(Range("K2:K" & Counter), Target)
If Not myRange Is Nothing Then
target.Offset(0, 15).Select
SendKeys "%{down}"
End If
End Sub
-----Original Message-----
hey guys
Below is a code that is supposed to sendkeys to a
certain
cell if a change is made in the specified range.
However,
it does not work. Can anyone tell me whats wrong? When
I
change a cell in the specified cells, nothing happens.
If
I change the event to the worksheet_SelectionChange, it
works but it never gives me the chance to enter anything
into the cell I want to.
Can anyone tell me whats wrong?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Counter As Long
Dim Location
Counter = Application.WorksheetFunction.CountA(Worksheets
(1).Range("K:K"))
Location = ActiveCell.Address
On Error Resume Next
Set myRange = Intersect(Range("K2:K" & Counter), Target)
If Not myRange Is Nothing Then
Range(Location).Offset(0, 15).Select
SendKeys "%{down}"
End If
End Sub
Thanks
Todd Huttenstine
.
.
|