ByVal Target as Range to Last Row

[Redled89]

Hello All,

I am having trouble with the falling code to go to last row. Here is my code so far:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim LR As Long
LR = Range("J" & Rows.Count).End(xlUp).Row

If Target.Address(False, False) = "K21" Then
Application.EnableEvents = False
If Target.Value > 0 Then
Range("K22:K" & LR).FormulaR1C1 = Target.Value
Else
Range("K22:K" & LR).ClearContents
End If
Application.EnableEvents = True
End If
End Sub

Any help would be greatly appreciated.

[daffodil11]

Edit: OP added tags

Are you intentionally detecting lastrow in J, and then outputting in K?

Please Login or Register  to view this content.

[Redled89]

My apologies. Noted. Yes, I am intentionally detecting lastrow in J and out putting in K.

Please Login or Register  to view this content.

[daffodil11]

All of the examples I've put this in ran just fine.

Can you fabricate an example to show me what isn't happening on your end?

[Redled89]

Yes, Please see attached example.

[daffodil11]

I type in 10, it copies from K22 to K36. If I type in -10 it deletes it.

Is this not correct?

[Redled89]

Correct. Thank you for assisting. I caught my error. I will mark as solved.

[daffodil11]

No problem. Sometimes all it takes is a fresh set of eyes.